Changeset 92 for trunk/Forms/UFormTargets.pas

Timestamp:

Jul 20, 2018, 9:48:47 AM (6 years ago)

Author:

chronos

Message:

• Modified: Create FormTargetOptions in runtime.

File:

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

trunk/Forms/UFormTargets.pas

@@ -10 +10 @@
 type
 
-  { TFormCompilers }
+  { TFormTargets }
 
-  TFormCompilers = class(TForm)
+  TFormTargets = class(TForm)
     ListView1: TListView;
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView1DblClick(Sender: TObject);
+    procedure ListView1KeyPress(Sender: TObject; var Key: char);
   private
     { private declarations }
@@ -24 +25 @@
 
 var
-  FormCompilers: TFormCompilers;
+  FormTargets: TFormTargets;
 
 implementation
@@ -33 +34 @@
   UCore, UTarget, UFormTargetOptions;
 
-{ TFormCompilers }
+{ TFormTargets }
 
-procedure TFormCompilers.FormShow(Sender: TObject);
+procedure TFormTargets.FormShow(Sender: TObject);
 begin
   ReloadList;
 end;
 
-procedure TFormCompilers.ListView1Data(Sender: TObject; Item: TListItem);
+procedure TFormTargets.ListView1Data(Sender: TObject; Item: TListItem);
 begin
   if (Item.Index >= 0) and (Item.Index < Core.Targets.Count) then
@@ -51 +52 @@
 end;
 
-procedure TFormCompilers.ListView1DblClick(Sender: TObject);
+procedure TFormTargets.ListView1DblClick(Sender: TObject);
 begin
-  FormTargetOptions.LoadControls(TTarget(ListView1.Selected.Data));
-  if FormTargetOptions.ShowModal = mrOk then begin
-    FormTargetOptions.SaveControls(TTarget(ListView1.Selected.Data));
-    ReloadList;
+  FormTargetOptions := TFormTargetOptions.Create(nil);
+  try
+    FormTargetOptions.LoadControls(TTarget(ListView1.Selected.Data));
+    if FormTargetOptions.ShowModal = mrOk then begin
+      FormTargetOptions.SaveControls(TTarget(ListView1.Selected.Data));
+      ReloadList;
+    end;
+  finally
+    FormTargetOptions.Free;
   end;
 end;
 
-procedure TFormCompilers.ReloadList;
+procedure TFormTargets.ListView1KeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = #13 then ListView1DblClick(nil);
+end;
+
+procedure TFormTargets.ReloadList;
 begin
   ListView1.Items.Count := Core.Targets.Count;