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

Timestamp:

Mar 4, 2012, 9:56:47 AM (13 years ago)

Author:

chronos

Message:

• Modified: Forms renamed to names with Form prefix.

File:

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

trunk/IDE/Forms/UFormTargets.pas

@@ -31 +31 @@
 
 uses
-  UMainForm, UCompiler, UCompilerSettingsForm, UProducer, UTarget;
+  UFormMain, UCompiler, UFormCompilerSettings, UProducer, UTarget;
 
 resourcestring
@@ -46 +46 @@
 procedure TFormTargets.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if (Item.Index >= 0) and (Item.Index < MainForm.Compiler.Targets.Count) then
-  with TTarget(MainForm.Compiler.Targets[Item.Index]) do begin
+  if (Item.Index >= 0) and (Item.Index < FormMain.Compiler.Targets.Count) then
+  with TTarget(FormMain.Compiler.Targets[Item.Index]) do begin
     Item.Caption := Name;
-    Item.Data := MainForm.Compiler.Targets[Item.Index];
+    Item.Data := FormMain.Compiler.Targets[Item.Index];
     //Item.SubItems.Add(Producer.CompilerPath);
   end;
@@ -57 +57 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    CompilerSettingsForm.LoadFromProducer(TProducer(ListView1.Selected.Data));
-    if CompilerSettingsForm.ShowModal = mrOk then
-      CompilerSettingsForm.SaveToProducer(TProducer(ListView1.Selected.Data));
+    FormCompilerSettings.LoadFromProducer(TProducer(ListView1.Selected.Data));
+    if FormCompilerSettings.ShowModal = mrOk then
+      FormCompilerSettings.SaveToProducer(TProducer(ListView1.Selected.Data));
     ReloadList;
   end;
@@ -66 +66 @@
 procedure TFormTargets.ReloadList;
 begin
-  ListView1.Items.Count := MainForm.Compiler.Targets.Count;
+  ListView1.Items.Count := FormMain.Compiler.Targets.Count;
   ListView1.Refresh;
 end;