Changeset 50 for trunk/Forms


Ignore:
Timestamp:
Jul 13, 2012, 1:37:51 PM (12 years ago)
Author:
chronos
Message:
  • Added: Dialog for setting target options.
Location:
trunk/Forms
Files:
3 added
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormTargets.lfm

    r42 r50  
    88  ClientWidth = 574
    99  OnShow = FormShow
    10   LCLVersion = '0.9.31'
     10  LCLVersion = '1.1'
    1111  object ListView1: TListView
    1212    Left = 8
  • trunk/Forms/UFormTargets.pas

    r42 r50  
    3131
    3232uses
    33   UFormMain, UTarget;
    34 
    35 resourcestring
    36   SCompilerOptions = 'Compiler options';
    37   SCompilerPath = 'Compiler path';
     33  UFormMain, UTarget, UFormTargetOptions;
    3834
    3935{ TFormCompilers }
     
    5753procedure TFormCompilers.ListView1DblClick(Sender: TObject);
    5854begin
    59   with TTarget(ListView1.Selected.Data) do
    60     CompilerPath := InputBox(SCompilerOptions, SCompilerPath,
    61       CompilerPath);
    62   ReloadList;
     55  FormTargetOptions.LoadControls(TTarget(ListView1.Selected.Data));
     56  if FormTargetOptions.ShowModal = mrOk then begin
     57    FormTargetOptions.SaveControls(TTarget(ListView1.Selected.Data));
     58    ReloadList;
     59  end;
    6360end;
    6461
Note: See TracChangeset for help on using the changeset viewer.