Changeset 75 for trunk/IDE/Forms/FormTargets.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (4 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/IDE/Forms/FormTargets.pas (moved) (moved from trunk/IDE/Forms/UFormTargets.pas ) (7 diffs)

trunk/IDE/Forms/FormTargets.pas

@@ -1 @@
-unit UFormTargets;
-
-{$mode objfpc}{$H+}
+unit FormTargets;
 
 interface
@@ -27 +25 @@
   end; 
 
-var
-  FormTargets: TFormTargets;
 
 implementation
@@ -35 +31 @@
 
 uses
-  UCore, UFormMain, UCompiler, UProducer, UTarget,
-  UFormTargetOptions;
+  Core, FormMain, Compiler, Producer, Target, FormTargetOptions;
 
 resourcestring
@@ -50 +45 @@
 
 procedure TFormTargets.ATargetOptionsExecute(Sender: TObject);
+var
+  FormTargetOptions: TFormTargetOptions;
 begin
   if Assigned(ListView1.Selected) then begin
+    FormTargetOptions := TFormTargetOptions.Create(nil);
     FormTargetOptions.LoadControls(TTarget(ListView1.Selected.Data));
     if FormTargetOptions.ShowModal = mrOk then begin
@@ -57 +55 @@
       ReloadList;
     end;
+    FormTargetOptions.Free;
   end;
 end;
@@ -62 +61 @@
 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.Core.Compiler.Targets.Count) then
+  with TTarget(Core.Core.Compiler.Targets[Item.Index]) do begin
     Item.Caption := Name;
-    Item.Data := Core.Compiler.Targets[Item.Index];
+    Item.Data := Core.Core.Compiler.Targets[Item.Index];
     //Item.SubItems.Add(Producer.CompilerPath);
   end;
@@ -72 +71 @@
 procedure TFormTargets.ReloadList;
 begin
-  ListView1.Items.Count := Core.Compiler.Targets.Count;
+  ListView1.Items.Count := Core.Core.Compiler.Targets.Count;
   ListView1.Refresh;
 end;