Changeset 71 for trunk/IDE


Ignore:
Timestamp:
Aug 1, 2012, 6:20:01 AM (12 years ago)
Author:
chronos
Message:
  • Modified: Modules should use modularsystem API object.
Location:
trunk/IDE
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/IDE/Forms/UFormAbout.pas

    r55 r71  
    4848    BeginUpdate;
    4949    Clear;
    50     Add(SApplicationName + ': ' + Name);
     50    Add(SApplicationName + ': ' + AppName);
    5151    Add(SVersion + ': ' + Version);
    5252    Add(SReleaseDate + ': ' + DateToStr(ReleaseDate));

  • trunk/IDE/Forms/UFormMain.lfm

    r68 r71  
    55  Width = 695
    66  Caption = 'Transpascal IDE'
    7   ClientHeight = 482
     7  ClientHeight = 476
    88  ClientWidth = 695
    99  Font.Height = -11
    … …  
    2020    Left = 0
    2121    Height = 5
    22     Top = 477
     22    Top = 471
    2323    Width = 695
    2424    Align = alBottom
    … …  
    8989    object ComboBoxTarget: TComboBox
    9090      Left = 230
    91       Height = 21
     91      Height = 27
    9292      Top = 2
    9393      Width = 100
    94       ItemHeight = 13
     94      ItemHeight = 0
    9595      OnChange = ComboBoxTargetChange
    9696      Style = csDropDownList
    … …  
    105105  object Splitter1: TSplitter
    106106    Left = 490
    107     Height = 345
     107    Height = 339
    108108    Top = 26
    109109    Width = 5
    … …  
    113113  object PageControlRight: TPageControl
    114114    Left = 495
    115     Height = 345
     115    Height = 339
    116116    Top = 26
    117117    Width = 200
    … …  
    137137    Left = 0
    138138    Height = 101
    139     Top = 376
     139    Top = 370
    140140    Width = 695
    141141    ActivePage = TabSheetMessages
    … …  
    155155    Left = 0
    156156    Height = 5
    157     Top = 371
     157    Top = 365
    158158    Width = 695
    159159    Align = alBottom
    … …  
    162162  object PageControlMain: TPageControl
    163163    Left = 0
    164     Height = 345
     164    Height = 339
    165165    Top = 26
    166166    Width = 490

  • trunk/IDE/Forms/UFormMain.pas

    r68 r71  
    330330
    331331  UpdateMenu;
    332   Core.Compiler.Targets.LoadToStrings(ComboBoxTarget.Items);
    333   ComboBoxTarget.ItemIndex := Core.Compiler.Targets.IndexOf(Core.Compiler.Target);
     332  Core.Compiler.API.Targets.LoadToStrings(ComboBoxTarget.Items);
     333  ComboBoxTarget.ItemIndex := Core.Compiler.API.Targets.IndexOf(Core.Compiler.Target);
    334334  FormSourceCode.UpdateInterface;
    335335  FormTargetCode.UpdateInterface;
    … …  
    435435begin
    436436  with TMenuItem(Sender) do begin
    437     Core.Compiler.Target := TTarget(Core.Compiler.Targets[MenuIndex]);
     437    Core.Compiler.Target := TTarget(Core.Compiler.API.Targets[MenuIndex]);
    438438    UpdateInterface;
    439439  end;

  • trunk/IDE/Forms/UFormTargets.pas

    r60 r71  
    6262procedure TFormTargets.ListView1Data(Sender: TObject; Item: TListItem);
    6363begin
    64   if (Item.Index >= 0) and (Item.Index < Core.Compiler.Targets.Count) then
    65   with TTarget(Core.Compiler.Targets[Item.Index]) do begin
     64  if (Item.Index >= 0) and (Item.Index < Core.Compiler.API.Targets.Count) then
     65  with TTarget(Core.Compiler.API.Targets[Item.Index]) do begin
    6666    Item.Caption := Name;
    67     Item.Data := Core.Compiler.Targets[Item.Index];
     67    Item.Data := Core.Compiler.API.Targets[Item.Index];
    6868    //Item.SubItems.Add(Producer.CompilerPath);
    6969  end;
    … …  
    7272procedure TFormTargets.ReloadList;
    7373begin
    74   ListView1.Items.Count := Core.Compiler.Targets.Count;
     74  ListView1.Items.Count := Core.Compiler.API.Targets.Count;
    7575  ListView1.Refresh;
    7676end;

  • trunk/IDE/UCore.pas

    r70 r71  
    5656    procedure LoadFromRegistry(Root: HKEY; const Key: string);
    5757    procedure SaveToRegistry(Root: HKEY; const Key: string);
    58     procedure RegisterModules;
     58    procedure RegisterIDEModules;
     59    procedure RegisterCompilerModules;
    5960  end;
    6061
    … …  
    6768
    6869uses
    69   UFormMain, UProjectTemplates, UIDEModulePascal;
     70  UFormMain, UProjectTemplates, UIDEModulePascal, UModulePascal, UModuleGCC;
    7071
    7172{ TCore }
    … …  
    108109
    109110  ModuleManager := TModuleManager.Create(nil);
    110   RegisterModules;
     111  RegisterIDEModules;
     112
     113  RegisterCompilerModules;
    111114end;
    112115
    … …  
    200203end;
    201204
    202 procedure TCore.RegisterModules;
     205procedure TCore.RegisterIDEModules;
    203206begin
    204207  ModuleManager.RegisterModule(TIDEModulePascal.Create);
     208end;
     209
     210procedure TCore.RegisterCompilerModules;
     211begin
     212  with Compiler.ModuleManager do begin
     213    RegisterModule(TModulePascal.Create, True);
     214    RegisterModule(TModuleGCC.Create, True);
     215{    RegisterModule(TModuleInterpretter.Create);
     216    RegisterModule(TModuleDelphi.Create);
     217    RegisterModule(TModulePHP.Create);
     218    RegisterModule(TModuleJava.Create);
     219    RegisterModule(TModuleASM8051.Create);
     220    RegisterModule(TModuleXML.Create);
     221    RegisterModule(TModuleNASM.Create);}
     222  end;
    205223end;
    206224
Note: See TracChangeset for help on using the changeset viewer.