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

Timestamp:

Jul 17, 2012, 7:25:56 AM (12 years ago)

Author:

chronos

Message:

• Added: Target celection combobox on main toolbar.
• Added: Options of available targets allow to change producer and executor path if available.

File:

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

trunk/IDE/Forms/UFormTargets.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
+  Menus, ActnList;
 
 type
@@ -13 +14 @@
 
   TFormTargets = class(TForm)
+    ATargetOptions: TAction;
+    ActionList1: TActionList;
     ListView1: TListView;
+    PopupMenu1: TPopupMenu;
+    procedure ATargetOptionsExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
-    procedure ListView1DblClick(Sender: TObject);
   private
     { private declarations }
@@ -31 +35 @@
 
 uses
-  UCore, UFormMain, UCompiler, UFormCompilerSettings, UProducer, UTarget;
+  UCore, UFormMain, UCompiler, UProducer, UTarget,
+  UFormTargetOptions;
 
 resourcestring
@@ -44 +49 @@
 end;
 
+procedure TFormTargets.ATargetOptionsExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then begin
+    FormTargetOptions.LoadControls(TTarget(ListView1.Selected.Data));
+    if FormTargetOptions.ShowModal = mrOk then begin
+      FormTargetOptions.SaveControls(TTarget(ListView1.Selected.Data));
+      ReloadList;
+    end;
+  end;
+end;
+
 procedure TFormTargets.ListView1Data(Sender: TObject; Item: TListItem);
 begin
@@ -51 +67 @@
     Item.Data := Core.Compiler.Targets[Item.Index];
     //Item.SubItems.Add(Producer.CompilerPath);
-  end;
-end;
-
-procedure TFormTargets.ListView1DblClick(Sender: TObject);
-begin
-  if Assigned(ListView1.Selected) then begin
-    FormCompilerSettings.LoadFromProducer(TProducer(ListView1.Selected.Data));
-    if FormCompilerSettings.ShowModal = mrOk then
-      FormCompilerSettings.SaveToProducer(TProducer(ListView1.Selected.Data));
-    ReloadList;
   end;
 end;