Changeset 71 for trunk/IDE/Forms

Timestamp:

Aug 1, 2012, 6:20:01 AM (12 years ago)

Author:

chronos

Message:

• Modified: Modules should use modularsystem API object.

Location:

trunk/IDE/Forms

Files:

• UFormAbout.pas (modified) (1 diff)
• UFormMain.lfm (modified) (8 diffs)
• UFormMain.pas (modified) (2 diffs)
• UFormTargets.pas (modified) (2 diffs)

trunk/IDE/Forms/UFormAbout.pas

@@ -48 +48 @@
     BeginUpdate;
     Clear;
-    Add(SApplicationName + ': ' + Name);
+    Add(SApplicationName + ': ' + AppName);
     Add(SVersion + ': ' + Version);
     Add(SReleaseDate + ': ' + DateToStr(ReleaseDate));

trunk/IDE/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 695
   Caption = 'Transpascal IDE'
-  ClientHeight = 482
+  ClientHeight = 476
   ClientWidth = 695
   Font.Height = -11
@@ -20 +20 @@
     Left = 0
     Height = 5
-    Top = 477
+    Top = 471
     Width = 695
     Align = alBottom
@@ -89 +89 @@
     object ComboBoxTarget: TComboBox
       Left = 230
-      Height = 21
+      Height = 27
       Top = 2
       Width = 100
-      ItemHeight = 13
+      ItemHeight = 0
       OnChange = ComboBoxTargetChange
       Style = csDropDownList
@@ -105 +105 @@
   object Splitter1: TSplitter
     Left = 490
-    Height = 345
+    Height = 339
     Top = 26
     Width = 5
@@ -113 +113 @@
   object PageControlRight: TPageControl
     Left = 495
-    Height = 345
+    Height = 339
     Top = 26
     Width = 200
@@ -137 +137 @@
     Left = 0
     Height = 101
-    Top = 376
+    Top = 370
     Width = 695
     ActivePage = TabSheetMessages
@@ -155 +155 @@
     Left = 0
     Height = 5
-    Top = 371
+    Top = 365
     Width = 695
     Align = alBottom
@@ -162 +162 @@
   object PageControlMain: TPageControl
     Left = 0
-    Height = 345
+    Height = 339
     Top = 26
     Width = 490

trunk/IDE/Forms/UFormMain.pas

@@ -330 +330 @@
 
   UpdateMenu;
-  Core.Compiler.Targets.LoadToStrings(ComboBoxTarget.Items);
-  ComboBoxTarget.ItemIndex := Core.Compiler.Targets.IndexOf(Core.Compiler.Target);
+  Core.Compiler.API.Targets.LoadToStrings(ComboBoxTarget.Items);
+  ComboBoxTarget.ItemIndex := Core.Compiler.API.Targets.IndexOf(Core.Compiler.Target);
   FormSourceCode.UpdateInterface;
   FormTargetCode.UpdateInterface;
@@ -435 +435 @@
 begin
   with TMenuItem(Sender) do begin
-    Core.Compiler.Target := TTarget(Core.Compiler.Targets[MenuIndex]);
+    Core.Compiler.Target := TTarget(Core.Compiler.API.Targets[MenuIndex]);
     UpdateInterface;
   end;

trunk/IDE/Forms/UFormTargets.pas

@@ -62 +62 @@
 procedure TFormTargets.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if (Item.Index >= 0) and (Item.Index < Core.Compiler.Targets.Count) then
-  with TTarget(Core.Compiler.Targets[Item.Index]) do begin
+  if (Item.Index >= 0) and (Item.Index < Core.Compiler.API.Targets.Count) then
+  with TTarget(Core.Compiler.API.Targets[Item.Index]) do begin
     Item.Caption := Name;
-    Item.Data := Core.Compiler.Targets[Item.Index];
+    Item.Data := Core.Compiler.API.Targets[Item.Index];
     //Item.SubItems.Add(Producer.CompilerPath);
   end;
@@ -72 +72 @@
 procedure TFormTargets.ReloadList;
 begin
-  ListView1.Items.Count := Core.Compiler.Targets.Count;
+  ListView1.Items.Count := Core.Compiler.API.Targets.Count;
   ListView1.Refresh;
 end;