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

IDE: Update windows layout only when it has changed.

Browse Source 
git-svn-id: trunk@49545 -
This commit is contained in:
juha 2015-07-14 11:10:05 +00:00
parent f39f93e728
commit 3fd22d1635
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/frames/window_options.pas
View File

@ -77,6 +77,7 @@ type
FLayout: TSimpleWindowLayout;
FDivider: TSimpleWindowLayoutDividerPos;
FShowSimpleLayout: boolean;
FLayoutChanged: boolean;
procedure EnableGeometryEdits(aEnable: Boolean);
function GetPlacementRadioButtons(APlacement: TIDEWindowPlacement): TRadioButton;
procedure SetLayout(const AValue: TSimpleWindowLayout);
@ -212,6 +213,8 @@ begin
lblWindowPosition.Parent:=nil;
WindowPositionsPanel.Parent:=nil;
end;
FLayoutChanged := False;
end;
procedure TWindowOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
@ -233,6 +236,7 @@ begin
IDEProjectDirectoryInIdeTitle:=ProjectDirInIdeTitleCheckBox.Checked;
end;
if FLayoutChanged then
IDEWindowCreators.RestoreSimpleLayout;
end;
@ -343,6 +347,7 @@ begin
end;
Layout.ApplyDivider(True);
end;
FLayoutChanged := True;
end;
procedure TWindowOptionsFrame.EnableGeometryEdits(aEnable: Boolean);