paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 04:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: update windows layout after loading desktop settings from file.

Browse Source 
git-svn-id: trunk@33007 -
This commit is contained in:
juha 2011-10-21 15:44:48 +00:00
parent 3d195eb2f1
commit d7656977a2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/frames/desktop_options.pas
View File

@ -27,7 +27,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, StdCtrls, Dialogs, LCLProc, Classes, SysUtils, FileUtil, Forms, StdCtrls, Dialogs, LCLProc,
ExtCtrls, EnvironmentOpts, LazarusIDEStrConsts, IDETranslations, InputHistory, ExtCtrls, EnvironmentOpts, LazarusIDEStrConsts, IDETranslations, InputHistory,
IDEProcs, IDEOptionsIntf; IDEProcs, IDEOptionsIntf, IDEWindowIntf;
type type
@ -299,6 +299,8 @@ begin
AnEnvironmentOptions.Filename := OpenDialog.Filename; AnEnvironmentOptions.Filename := OpenDialog.Filename;
AnEnvironmentOptions.Load(true); AnEnvironmentOptions.Load(true);
DoLoadSettings(AnEnvironmentOptions); DoLoadSettings(AnEnvironmentOptions);
if IDEDockMaster=nil then
IDEWindowCreators.RestoreSimpleLayout;
ShowMessage(lisLoadedSuccessfully); ShowMessage(lisLoadedSuccessfully);
finally finally
AnEnvironmentOptions.Free; AnEnvironmentOptions.Free;