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: Do not close then can not write config file

Browse source
This commit is contained in:
Alexander Koblov 2008-04-20 20:48:28 +00:00
commit a22aad9393
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
fmain.pas
View file

@ -923,6 +923,7 @@ procedure TfrmMain.frmMainClose(Sender: TObject; var CloseAction: TCloseAction);
var
x:Integer;
begin
try
(* Save columns widths *)
with FrameLeft do
begin
@ -941,6 +942,8 @@ begin
gIni.WriteInteger('Configuration', 'Main.Height', Height);
gIni.WriteBool('Configuration', 'maximized', (WindowState = wsMaximized));
SaveGlobs; // must be last
except
end;
end;
procedure TfrmMain.frmMainKeyUp(Sender: TObject; var Key: Word;