Changeset 51 for trunk/Forms/UFormTargets.pas

Timestamp:

Jul 26, 2012, 2:07:15 PM (12 years ago)

Author:

chronos

Message:

• Modified: Non visual related code moved to data module Core in UCore unit.

File:

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

trunk/Forms/UFormTargets.pas

@@ -31 +31 @@
 
 uses
-  UFormMain, UTarget, UFormTargetOptions;
+  UCore, UTarget, UFormTargetOptions;
 
 { TFormCompilers }
@@ -42 +42 @@
 procedure TFormCompilers.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if (Item.Index >= 0) and (Item.Index < MainForm.Targets.Count) then
-  with TTarget(MainForm.Targets[Item.Index]) do begin
+  if (Item.Index >= 0) and (Item.Index < Core.Targets.Count) then
+  with TTarget(Core.Targets[Item.Index]) do begin
     Item.Caption := Name;
-    Item.Data := MainForm.Targets[Item.Index];
+    Item.Data := Core.Targets[Item.Index];
     Item.SubItems.Add(ExecutorPath);
     Item.SubItems.Add(CompilerPath);
@@ -62 +62 @@
 procedure TFormCompilers.ReloadList;
 begin
-  ListView1.Items.Count := MainForm.Targets.Count;
+  ListView1.Items.Count := Core.Targets.Count;
   ListView1.Refresh;
 end;