mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Close "Options" dialog

Browse source
This commit is contained in:
Alexander Koblov 2011-11-26 11:20:28 +00:00
commit 016667a81d
2 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/foptions.lfm
View file

@ -54,6 +54,7 @@ object frmOptions: TfrmOptions
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
OnClick = btnCancelClick
TabOrder = 1
end
object btnApply: TBitBtn

9
src/foptions.pas
View file

@ -59,6 +59,7 @@ type
sboxOptionsEditor: TScrollBox;
tvTreeView: TTreeView;
splOptionsSplitter: TSplitter;
procedure btnCancelClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure btnOKClick(Sender: TObject);
@ -100,12 +101,20 @@ begin
CloseAction:= caFree;
end;
procedure TfrmOptions.btnCancelClick(Sender: TObject);
begin
// close window
Close;
end;
procedure TfrmOptions.btnOKClick(Sender: TObject);
begin
// save all configuration
SaveConfig;
// write to config file
SaveGlobs;
// close window
Close;
end;
procedure TfrmOptions.btnApplyClick(Sender: TObject);