Changeset 50 for trunk/Forms/UFormTargets.pas

Timestamp:

Jul 13, 2012, 1:37:51 PM (12 years ago)

Author:

chronos

Message:

• Added: Dialog for setting target options.

File:

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

trunk/Forms/UFormTargets.pas

@@ -31 +31 @@
 
 uses
-  UFormMain, UTarget;
-
-resourcestring
-  SCompilerOptions = 'Compiler options';
-  SCompilerPath = 'Compiler path';
+  UFormMain, UTarget, UFormTargetOptions;
 
 { TFormCompilers }
@@ -57 +53 @@
 procedure TFormCompilers.ListView1DblClick(Sender: TObject);
 begin
-  with TTarget(ListView1.Selected.Data) do
-    CompilerPath := InputBox(SCompilerOptions, SCompilerPath,
-      CompilerPath);
-  ReloadList;
+  FormTargetOptions.LoadControls(TTarget(ListView1.Selected.Data));
+  if FormTargetOptions.ShowModal = mrOk then begin
+    FormTargetOptions.SaveControls(TTarget(ListView1.Selected.Data));
+    ReloadList;
+  end;
 end;