Changeset 71 for trunk/IDE/Forms/UFormTargets.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Modules should use modularsystem API object.

File:

• trunk/IDE/Forms/UFormTargets.pas (modified) (2 diffs)

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;