Changeset 50 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

• Added: Dialog for setting target options.

Location:

trunk/Forms

Files:

• UFormTargetOptions.lfm (added)
• UFormTargetOptions.lrt (added)
• UFormTargetOptions.pas (added)
• UFormTargets.lfm (modified) (1 diff)
• UFormTargets.pas (modified) (2 diffs)

trunk/Forms/UFormTargets.lfm

@@ -8 +8 @@
   ClientWidth = 574
   OnShow = FormShow
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.1'
   object ListView1: TListView
     Left = 8

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;