Changeset 72 for trunk/IDE/Forms

Timestamp:

Aug 1, 2012, 12:16:08 PM (12 years ago)

Author:

chronos

Message:

• Added: Introduced concept of graph of source file set converters similar to IntToStr, StrToInt, FloatToStr, StrToFloat, e.g.
• Modified: Some target definitions transformed to loadable modules.

Location:

trunk/IDE/Forms

Files:

• UFormMain.pas (modified) (2 diffs)
• UFormTargets.pas (modified) (2 diffs)

trunk/IDE/Forms/UFormMain.pas

@@ -330 +330 @@
 
   UpdateMenu;
-  Core.Compiler.API.Targets.LoadToStrings(ComboBoxTarget.Items);
-  ComboBoxTarget.ItemIndex := Core.Compiler.API.Targets.IndexOf(Core.Compiler.Target);
+  Core.Compiler.Targets.LoadToStrings(ComboBoxTarget.Items);
+  ComboBoxTarget.ItemIndex := Core.Compiler.Targets.IndexOf(Core.Compiler.Target);
   FormSourceCode.UpdateInterface;
   FormTargetCode.UpdateInterface;
@@ -435 +435 @@
 begin
   with TMenuItem(Sender) do begin
-    Core.Compiler.Target := TTarget(Core.Compiler.API.Targets[MenuIndex]);
+    Core.Compiler.Target := TTarget(Core.Compiler.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.API.Targets.Count) then
-  with TTarget(Core.Compiler.API.Targets[Item.Index]) do begin
+  if (Item.Index >= 0) and (Item.Index < Core.Compiler.Targets.Count) then
+  with TTarget(Core.Compiler.Targets[Item.Index]) do begin
     Item.Caption := Name;
-    Item.Data := Core.Compiler.API.Targets[Item.Index];
+    Item.Data := Core.Compiler.Targets[Item.Index];
     //Item.SubItems.Add(Producer.CompilerPath);
   end;
@@ -72 +72 @@
 procedure TFormTargets.ReloadList;
 begin
-  ListView1.Items.Count := Core.Compiler.API.Targets.Count;
+  ListView1.Items.Count := Core.Compiler.Targets.Count;
   ListView1.Refresh;
 end;