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

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.

File:

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

trunk/IDE/Forms/UFormTargets.pas

@@ -31 +31 @@
 
 uses
-  UFormMain, UCompiler, UFormCompilerSettings, UProducer, UTarget;
+  UCore, UFormMain, UCompiler, UFormCompilerSettings, UProducer, UTarget;
 
 resourcestring
@@ -46 +46 @@
 procedure TFormTargets.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if (Item.Index >= 0) and (Item.Index < FormMain.Compiler.Targets.Count) then
-  with TTarget(FormMain.Compiler.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 := FormMain.Compiler.Targets[Item.Index];
+    Item.Data := Core.Compiler.Targets[Item.Index];
     //Item.SubItems.Add(Producer.CompilerPath);
   end;
@@ -66 +66 @@
 procedure TFormTargets.ReloadList;
 begin
-  ListView1.Items.Count := FormMain.Compiler.Targets.Count;
+  ListView1.Items.Count := Core.Compiler.Targets.Count;
   ListView1.Refresh;
 end;