Changeset 53


Ignore:
Timestamp:
Jun 26, 2012, 7:23:47 AM (12 years ago)
Author:
chronos
Message:
  • Modified: Created main UCore unit and moved non visual code from UFormMain to it.
Location:
trunk
Files:
2 added
16 edited

Legend:

Unmodified
Added
Removed
  • trunk/IDE/Forms/UFormMain.lfm

    r52 r53  
    13231323    }
    13241324  end
    1325   object DebugLog1: TDebugLog
    1326     WriteToFileEnable = False
    1327     FileName = 'DebugLog.txt'
    1328     MaxCount = 100
    1329     left = 344
    1330     top = 88
    1331   end
    1332   object CoolTranslator1: TCoolTranslator
    1333     POFilesFolder = 'Languages'
    1334     left = 344
    1335     top = 136
    1336   end
    13371325end
  • trunk/IDE/Forms/UFormMain.pas

    r52 r53  
    1616
    1717type
    18 
    19   { TCustomCompiler }
    20 
    21   TCustomCompiler = class(TCompiler)
    22     procedure LoadFromRegistry(Root: HKEY; Key: string);
    23     procedure SaveToRegistry(Root: HKEY; Key: string);
    24   end;
    2518
    2619  { TFormMain }
     
    5447    AProjectClose: TAction;
    5548    ActionList1: TActionList;
    56     CoolTranslator1: TCoolTranslator;
    57     DebugLog1: TDebugLog;
    5849    ImageList1: TImageList;
    5950    MainMenu: TMainMenu;
     
    150141    procedure FormDestroy(Sender: TObject);
    151142  private
    152     LastOpenedFiles: TLastOpenedList;
    153     procedure ProjectTemplatesInit;
    154     procedure CompilerDebugLog(Text: string);
    155143    procedure MenuItemTargetClick(Sender: TObject);
    156     procedure OpenRecentClick(Sender: TObject);
    157     procedure LastOpenedFilesChange(Sender: TObject);
    158144    procedure DockInit;
    159     procedure LoadFromRegistry(Root: HKEY; Key: string);
    160     procedure SaveToRegistry(Root: HKEY; Key: string);
    161     procedure ProjectOpen(FileName: string);
    162145    procedure UpdateMenu;
    163146    procedure UpdateToolbar;
    164147  public
    165     ReopenLastOpenedFile: Boolean;
    166     LogParsing: Boolean;
    167     Project: TProject;
    168     ProjectTemplates: TProjectTemplateList;
    169     TargetProject: TProject;
    170     Compiler: TCustomCompiler;
     148    procedure LoadFromRegistry(Root: HKEY; Key: string);
     149    procedure SaveToRegistry(Root: HKEY; Key: string);
     150    procedure OpenRecentClick(Sender: TObject);
    171151    function GetSource(Name: string; var SourceCode: string): Boolean;
    172152    procedure UpdateInterface;
     
    182162
    183163uses
    184   UFormMessages, UFormSourceCode, UFormProject, UCommon, UFormAbout, UFormOptions,
     164  UCore, UFormMessages, UFormSourceCode, UFormProject, UCommon, UFormAbout, UFormOptions,
    185165  UFormTargets, UTarget, UAnalyzer, UProducer, UExecutor, UFormProjectNew,
    186166  UProjectTemplates, UFormTargetProject;
     
    189169  SNewProject = 'New project';
    190170
    191 { TCustomCompiler }
    192 
    193 procedure TCustomCompiler.LoadFromRegistry(Root: HKEY; Key: string);
    194 var
    195   I: Integer;
    196 begin
    197   with TRegistryEx.Create do
    198     try
    199       RootKey := Root;
    200       for I := 0 to Targets.Count - 1 do
    201       with TTarget(Targets[I]) do begin
    202         OpenKey(Key + '\Targets\' + Name, True);
    203         if ValueExists('CompilerPath') then
    204           Producer.CompilerPath := ReadStringWithDefault('CompilerPath', Producer.CompilerPath);
    205       end;
    206       if ValueExists('SelectedTarget') then
    207       Target := Targets.SearchBySysName(ReadString('SelectedTarget'))
    208         else Target := nil;
    209     finally
    210       Free;
    211     end;
    212 end;
    213 
    214 procedure TCustomCompiler.SaveToRegistry(Root: HKEY; Key: string);
    215 var
    216   I: Integer;
    217 begin
    218   with TRegistryEx.Create do
    219     try
    220       RootKey := Root;
    221       for I := 0 to Targets.Count - 1 do
    222       with TTarget(Targets[I]) do begin
    223         OpenKey(Key + '\Targets\' + Name, True);
    224         if Assigned(Producer) then begin
    225           if Producer.CompilerPath <> '' then WriteString('CompilerPath', Producer.CompilerPath)
    226             else DeleteValue('CompilerPath');
    227         end;
    228       end;
    229       if Assigned(Target) then WriteString('SelectedTarget', Target.SysName)
    230         else DeleteValue('SelectedTarget');
    231     finally
    232       Free;
    233     end;
    234 end;
    235 
    236171{ TFormMain }
    237172
     
    239174begin
    240175  FormSourceCode.Save;
    241 
    242   // Compile project file
     176  with Core do begin
     177    // Compile project file
    243178    Compiler.Init;
    244179
     
    262197    FormProject.TreeViewProjectChange(Self, FormProject.TreeViewProject.Selected);
    263198    FormMessages.Reload;
     199  end;
    264200end;
    265201
    266202procedure TFormMain.AResetExecute(Sender: TObject);
    267203begin
    268   Compiler.Target.Executor.Reset;
     204  Core.Compiler.Target.Executor.Reset;
    269205end;
    270206
     
    272208begin
    273209  ABuildExecute(Self);
    274   Compiler.Target.Executor.Run;
     210  Core.Compiler.Target.Executor.Run;
    275211end;
    276212
    277213procedure TFormMain.ARunToCursorExecute(Sender: TObject);
    278214begin
    279   Compiler.Target.Executor.RunToCursor(0); // determine position
     215  Core.Compiler.Target.Executor.RunToCursor(0); // determine position
    280216end;
    281217
    282218procedure TFormMain.AStepInExecute(Sender: TObject);
    283219begin
    284   Compiler.Target.Executor.StepIn;
     220  Core.Compiler.Target.Executor.StepIn;
    285221end;
    286222
    287223procedure TFormMain.AStepOutExecute(Sender: TObject);
    288224begin
    289   Compiler.Target.Executor.StepOut;
     225  Core.Compiler.Target.Executor.StepOut;
    290226end;
    291227
    292228procedure TFormMain.AStepOverExecute(Sender: TObject);
    293229begin
    294   Compiler.Target.Executor.StepOver;
     230  Core.Compiler.Target.Executor.StepOver;
    295231end;
    296232
    297233procedure TFormMain.AStopExecute(Sender: TObject);
    298234begin
    299   Compiler.Target.Executor.Stop;
     235  Core.Compiler.Target.Executor.Stop;
    300236end;
    301237
     
    340276  F: TFileStream;
    341277begin
    342   FileName := ExtractFileDir(Project.FileName) + Name + '.pas';
     278  FileName := ExtractFileDir(Core.Project.FileName) + Name + '.pas';
    343279  if FileExists(FileName) then
    344280  try
     
    358294  Title: string;
    359295begin
     296  with Core do begin
    360297  Title := ApplicationInfo.Name;
    361298  if Project.FileName <> '' then Title := Project.FileName + ' - ' + Title;
     
    384321  AStepOver.Enabled := AStepIn.Enabled;
    385322  ARunToCursor.Enabled := AStepIn.Enabled;
     323  end;
    386324
    387325  UpdateMenu;
     
    460398      RootKey := Root;
    461399      OpenKey(Key, True);
    462       ReopenLastOpenedFile := ReadBoolWithDefault('ReopenLastOpenedFile', True);
    463       Compiler.Target := Compiler.Targets.SearchBySysName(ReadStringWithDefault('TargetName', ''));
    464       LogParsing := ReadBoolWithDefault('LogParsing', False);
    465       if ValueExists('LanguageCode') then
    466         CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
    467         else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
    468400      PageControlRight.Width := ReadIntegerWithDefault('RightPanelWidth', 120);
    469401      PageControlBottom.Height := ReadIntegerWithDefault('BottomPanelHeight', 100);
     
    471403      Free;
    472404    end;
    473   LastOpenedFiles.LoadFromRegistry(RegistryRootKey, Key + '\LastOpenedFiles');
    474   Compiler.LoadFromRegistry(RegistryRootKey, Key + '\Compiler');
    475405end;
    476406
     
    481411      RootKey := Root;
    482412      OpenKey(Key, True);
    483       WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile);
    484       if Assigned(Compiler.Target) then
    485         WriteString('TargetName', Compiler.Target.SysName)
    486         else DeleteValue('TargetName');
    487       WriteBool('LogParsing', LogParsing);
    488       if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
    489         WriteString('LanguageCode', CoolTranslator1.Language.Code)
    490         else DeleteValue('LanguageCode');
    491413      WriteInteger('RightPanelWidth', PageControlRight.Width);
    492414      WriteInteger('BottomPanelHeight', PageControlBottom.Height);
     
    494416      Free;
    495417    end;
    496   LastOpenedFiles.SaveToRegistry(RegistryRootKey, Key + '\LastOpenedFiles');
    497   Compiler.SaveToRegistry(RegistryRootKey, Key + '\Compiler');
    498 end;
    499 
    500 procedure TFormMain.ProjectOpen(FileName: string);
    501 begin
    502   Project.Active := True;
    503   Project.LoadFromFile(FileName);
    504   LastOpenedFiles.AddItem(FileName);
    505   UpdateInterface;
    506418end;
    507419
     
    509421begin
    510422  with TMenuItem(Sender) do begin
    511     Compiler.Target := TTarget(Compiler.Targets[MenuIndex]);
     423    Core.Compiler.Target := TTarget(Core.Compiler.Targets[MenuIndex]);
    512424    UpdateInterface;
    513425  end;
     
    520432begin
    521433  MenuItemProducer.Clear;
     434  with Core do
    522435  for I := 0 to Compiler.Targets.Count - 1 do begin
    523436    NewMenuItem := TMenuItem.Create(MenuItemProducer);
     
    541454begin
    542455  AProjectClose.Execute;
    543   SaveToRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
     456  Core.SaveToRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
    544457end;
    545458
     
    548461  I: Integer;
    549462begin
    550   DeleteFile(DebugLog1.FileName);
    551   Compiler := TCustomCompiler.Create;
    552   Project := TProject.Create;
    553   ProjectTemplates := TProjectTemplateList.Create;
    554   TargetProject := TProject.Create;
    555   LastOpenedFiles := TLastOpenedList.Create(nil);
    556   LastOpenedFiles.OnChange := LastOpenedFilesChange;
    557   LastOpenedFiles.ClickAction := OpenRecentClick;
    558463end;
    559464
    560465procedure TFormMain.FormDestroy(Sender: TObject);
    561466begin
    562   ProjectTemplates.Free;
    563   LastOpenedFiles.Free;
    564   TargetProject.Free;
    565   Project.Free;
    566   Compiler.Free;
    567 end;
    568 
    569 procedure TFormMain.ProjectTemplatesInit;
    570 begin
    571   ProjectTemplates.AddTemplate(TProjectTemplateConsoleApp.Create);
    572   ProjectTemplates.AddTemplate(TProjectTemplateGUIApp.Create);
    573   ProjectTemplates.AddTemplate(TProjectTemplatePackage.Create);
    574   ProjectTemplates.AddTemplate(TProjectTemplateUnit.Create);
    575 end;
    576 
    577 procedure TFormMain.CompilerDebugLog(Text: string);
    578 begin
    579   DebugLog1.Add('', Text);
    580467end;
    581468
     
    583470begin
    584471  if Sender is TMenuItem then
    585     ProjectOpen(StringReplace(TMenuItem(Sender).Caption, '&', '', [rfReplaceAll]));
    586 end;
    587 
    588 procedure TFormMain.LastOpenedFilesChange(Sender: TObject);
    589 begin
    590   LastOpenedFiles.LoadToMenuItem(MenuItemOpenRecent);
     472    Core.ProjectOpen(StringReplace(TMenuItem(Sender).Caption, '&', '', [rfReplaceAll]));
    591473end;
    592474
     
    595477  NewProjectFile: TProjectFile;
    596478begin
    597   LoadFromRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
     479  Core.LoadFromRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
    598480  DockInit;
    599   ProjectTemplatesInit;
    600 
    601   if ReopenLastOpenedFile and (LastOpenedFiles.Items.Count > 0) then begin
    602     ProjectOpen(LastOpenedFiles.Items[0]);
     481  Core.ProjectTemplatesInit;
     482
     483  if Core.ReopenLastOpenedFile and (Core.LastOpenedFiles.Items.Count > 0) then begin
     484    Core.ProjectOpen(Core.LastOpenedFiles.Items[0]);
    603485  end;
    604486
     
    614496begin
    615497  if OpenDialog1.Execute then begin
    616     ProjectOpen(OpenDialog1.FileName);
     498    Core.ProjectOpen(OpenDialog1.FileName);
    617499  end;
    618500end;
     
    621503begin
    622504  //if Project.Modified then ;
    623   Project.Active := False;
     505  Core.Project.Active := False;
    624506  UpdateInterface;
    625507end;
     
    642524procedure TFormMain.APauseExecute(Sender: TObject);
    643525begin
    644   Compiler.Target.Executor.Pause;
     526  Core.Compiler.Target.Executor.Pause;
    645527end;
    646528
     
    651533  if FormProjectNew.ShowModal = mrOk then begin
    652534    if Assigned(FormProjectNew.ListView1.Selected) then
    653       TProjectTemplate(FormProjectNew.ListView1.Selected.Data).InitProject(Project);
     535      TProjectTemplate(FormProjectNew.ListView1.Selected.Data).InitProject(Core.Project);
    654536  end;
    655537  UpdateInterface;
     
    659541begin
    660542  if SaveDialog1.Execute then begin
    661     Project.Active := True;
    662     Project.SaveToFile(SaveDialog1.FileName);
     543    Core.Project.Active := True;
     544    Core.Project.SaveToFile(SaveDialog1.FileName);
    663545    FormSourceCode.Save;
    664     Project.Save;
     546    Core.Project.Save;
    665547    UpdateInterface;
    666     LastOpenedFiles.AddItem(SaveDialog1.FileName);
     548    Core.LastOpenedFiles.AddItem(SaveDialog1.FileName);
    667549  end;
    668550end;
     
    671553begin
    672554  FormSourceCode.Save;
    673   if not FileExistsUTF8(Project.FileName) then AProjectSaveAs.Execute
    674     else Project.SaveToFile(Project.FileName);
     555  if not FileExistsUTF8(Core.Project.FileName) then AProjectSaveAs.Execute
     556    else Core.Project.SaveToFile(Core.Project.FileName);
    675557end;
    676558
  • trunk/IDE/Forms/UFormMessages.pas

    r47 r53  
    3434
    3535uses
    36   UFormMain, UFormSourceCode;
     36  UCore, UFormMain, UFormSourceCode;
    3737
    3838{ TFormMessages }
     
    5252procedure TFormMessages.ListView1Data(Sender: TObject; Item: TListItem);
    5353begin
    54   with FormMain, FormSourceCode do
     54  with Core, FormMain, FormSourceCode do
    5555  with TErrorMessage(Compiler.ErrorMessages[Item.Index]) do begin
    5656    Item.Caption := FileName;
     
    6767  P: TPoint;
    6868begin
    69   with FormMain, FormSourceCode do
     69  with Core, FormSourceCode do
    7070  if Assigned(ListView1.Selected) then
    7171  with TErrorMessage(ListView1.Selected.Data) do begin
     
    8181procedure TFormMessages.Reload;
    8282begin
    83   ListView1.Items.Count := FormMain.Compiler.ErrorMessages.Count;
     83  ListView1.Items.Count := Core.Compiler.ErrorMessages.Count;
    8484  ListView1.Refresh;
    8585end;
  • trunk/IDE/Forms/UFormOptions.pas

    r45 r53  
    3434
    3535uses
    36   UFormMain, ULanguages;
     36  UCore, UFormMain, ULanguages;
    3737
    3838{ TFormOptions }
     
    4141begin
    4242  if ComboBoxLanguage.ItemIndex <> -1 then
    43     FormMain.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
    44   FormMain.ReopenLastOpenedFile := CheckBoxReopenProject.Checked;
     43    Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
     44  Core.ReopenLastOpenedFile := CheckBoxReopenProject.Checked;
    4545end;
    4646
    4747procedure TFormOptions.FormShow(Sender: TObject);
    4848begin
    49   FormMain.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
    50   ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(FormMain.CoolTranslator1.Language);
     49  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
     50  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
    5151  if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
    52   CheckBoxReopenProject.Checked := FormMain.ReopenLastOpenedFile;
     52  CheckBoxReopenProject.Checked := Core.ReopenLastOpenedFile;
    5353end;
    5454
  • trunk/IDE/Forms/UFormProject.pas

    r47 r53  
    2929
    3030uses
    31   UFormMain, UFormSourceCode, UFormTargetCode, UFormCodeTree;
     31  UCore, UFormMain, UFormSourceCode, UFormTargetCode, UFormCodeTree;
    3232
    3333{ TFormProject }
     
    7171  NewNode: TTreeNode;
    7272begin
    73   with FormMain, TreeViewProject, Items do begin
     73  with Core, TreeViewProject, Items do begin
    7474    BeginUpdate;
    7575    Clear;
  • trunk/IDE/Forms/UFormProjectNew.pas

    r48 r53  
    3535
    3636uses
    37   UFormMain, UProject;
     37  UCore, UFormMain, UProject;
    3838
    3939{$R *.lfm}
     
    6666    ListView1.BeginUpdate;
    6767    ListView1.Items.Clear;
    68     with FormMain do
     68    with Core do
    6969    for I := 0 to ProjectTemplates.Count - 1 do
    7070    with TProjectTemplate(ProjectTemplates[I]) do begin
  • trunk/IDE/Forms/UFormSourceCode.lfm

    r45 r53  
    77  ClientHeight = 426
    88  ClientWidth = 535
    9   LCLVersion = '0.9.31'
     9  LCLVersion = '1.1'
    1010  inline SynEditSource: TSynEdit
    1111    Left = 0
  • trunk/IDE/Forms/UFormSourceCode.pas

    r46 r53  
    3232
    3333uses
    34   UFormMain;
     34  UFormMain, UCore;
    3535
    3636{$R *.lfm}
     
    4040procedure TFormSourceCode.SynEditSourceChange(Sender: TObject);
    4141begin
    42   if FormMain.Project.Active then
     42  if Core.Project.Active then
    4343    ProjectFile.Modified := True;
    4444end;
     
    6161procedure TFormSourceCode.UpdateInterface;
    6262begin
    63   SynEditSource.Enabled := FormMain.Project.Active;
    64   if not FormMain.Project.Active then SynEditSource.ClearAll;
     63  SynEditSource.Enabled := Core.Project.Active;
     64  if not Core.Project.Active then SynEditSource.ClearAll;
    6565end;
    6666
  • trunk/IDE/Forms/UFormTargetCode.pas

    r49 r53  
    3535
    3636uses
    37   UFormMain;
     37  UCore;
    3838
    3939procedure TFormTargetCode.SetProjectFile(AValue: TProjectFile);
     
    4848procedure TFormTargetCode.UpdateInterface;
    4949begin
    50   SynEdit1.Enabled := FormMain.Project.Active;
    51   if not FormMain.Project.Active then SynEdit1.ClearAll;
     50  SynEdit1.Enabled := Core.Project.Active;
     51  if not Core.Project.Active then SynEdit1.ClearAll;
    5252end;
    5353
  • trunk/IDE/Forms/UFormTargetProject.lfm

    r49 r53  
    77  ClientHeight = 240
    88  ClientWidth = 320
    9   LCLVersion = '0.9.31'
     9  LCLVersion = '1.1'
    1010  object TreeViewProject: TTreeView
    1111    Left = 0
     
    1414    Width = 320
    1515    Align = alClient
     16    DefaultItemHeight = 16
    1617    ReadOnly = True
    1718    TabOrder = 0
  • trunk/IDE/Forms/UFormTargetProject.pas

    r49 r53  
    3232
    3333uses
    34   UFormMain, UFormTargetCode;
     34  UCore, UFormMain, UFormTargetCode;
    3535
    3636procedure TFormTargetProject.UpdateProjectTree;
     
    3838  NewNode: TTreeNode;
    3939begin
    40   with FormMain, TreeViewProject, Items do begin
     40  with Core, FormMain, TreeViewProject, Items do begin
    4141    BeginUpdate;
    4242    Clear;
  • trunk/IDE/Forms/UFormTargets.pas

    r45 r53  
    3131
    3232uses
    33   UFormMain, UCompiler, UFormCompilerSettings, UProducer, UTarget;
     33  UCore, UFormMain, UCompiler, UFormCompilerSettings, UProducer, UTarget;
    3434
    3535resourcestring
     
    4646procedure TFormTargets.ListView1Data(Sender: TObject; Item: TListItem);
    4747begin
    48   if (Item.Index >= 0) and (Item.Index < FormMain.Compiler.Targets.Count) then
    49   with TTarget(FormMain.Compiler.Targets[Item.Index]) do begin
     48  if (Item.Index >= 0) and (Item.Index < Core.Compiler.Targets.Count) then
     49  with TTarget(Core.Compiler.Targets[Item.Index]) do begin
    5050    Item.Caption := Name;
    51     Item.Data := FormMain.Compiler.Targets[Item.Index];
     51    Item.Data := Core.Compiler.Targets[Item.Index];
    5252    //Item.SubItems.Add(Producer.CompilerPath);
    5353  end;
     
    6666procedure TFormTargets.ReloadList;
    6767begin
    68   ListView1.Items.Count := FormMain.Compiler.Targets.Count;
     68  ListView1.Items.Count := Core.Compiler.Targets.Count;
    6969  ListView1.Refresh;
    7070end;
  • trunk/IDE/Transpascal.lpi

    r52 r53  
    106106      </Item7>
    107107    </RequiredPackages>
    108     <Units Count="17">
     108    <Units Count="18">
    109109      <Unit0>
    110110        <Filename Value="Transpascal.lpr"/>
     
    141141        <IsPartOfProject Value="True"/>
    142142        <ComponentName Value="FormSourceCode"/>
     143        <HasResources Value="True"/>
    143144        <ResourceBaseClass Value="Form"/>
    144145        <UnitName Value="UFormSourceCode"/>
     
    221222        <UnitName Value="UFormTargetProject"/>
    222223      </Unit16>
     224      <Unit17>
     225        <Filename Value="UCore.pas"/>
     226        <IsPartOfProject Value="True"/>
     227        <ComponentName Value="Core"/>
     228        <HasResources Value="True"/>
     229        <ResourceBaseClass Value="DataModule"/>
     230        <UnitName Value="UCore"/>
     231      </Unit17>
    223232    </Units>
    224233  </ProjectOptions>
  • trunk/IDE/Transpascal.lpr

    r49 r53  
    1313  UFormTargetCode, UFormCodeTree, TemplateGenerics, CoolTranslator, Common,
    1414  UFormAbout, UFormOptions, UFormTargets, UFormCompilerSettings,
    15 UFormProjectNew, UProjectTemplates, UFormTargetProject;
     15UFormProjectNew, UProjectTemplates, UFormTargetProject, UCore;
    1616
    1717{$R *.res}
     
    4343  Application.CreateForm(TFormProjectNew, FormProjectNew);
    4444  Application.CreateForm(TFormTargetProject, FormTargetProject);
     45  Application.CreateForm(TCore, Core);
    4546  Application.Run;
    4647end.
  • trunk/IDE/UApplicationInfo.pas

    r52 r53  
    5353  Name := 'Transpascal IDE';
    5454  Identification := 1;
    55   ReleaseDate := EncodeDate(2012, 6, 25);
     55  ReleaseDate := EncodeDate(2012, 6, 26);
    5656  MajorVersion := 0;
    5757  MinorVersion := 1;
Note: See TracChangeset for help on using the changeset viewer.