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

IDE: mainbar: disable/enable auto sizing on auto height calculation.

Browse Source 
git-svn-id: trunk@54358 -
This commit is contained in:
ondrej 2017-03-07 10:58:04 +00:00
parent f435e4865a
commit ae7acd5803
1 changed files with 31 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/mainbar.pas
View File

@ -419,6 +419,9 @@ begin
if not Showing then Exit; if not Showing then Exit;
//DebugLn(['TMainIDEBar.DoSetMainIDEHeight: IDEStarted=', LazarusIDE.IDEStarted]); //DebugLn(['TMainIDEBar.DoSetMainIDEHeight: IDEStarted=', LazarusIDE.IDEStarted]);
DisableAutoSizing;
try
if Assigned(IDEDockMaster) then if Assigned(IDEDockMaster) then
begin begin
if EnvironmentOptions.Desktop.AutoAdjustIDEHeight then if EnvironmentOptions.Desktop.AutoAdjustIDEHeight then
@ -450,6 +453,9 @@ begin
Constraints.MinHeight := 0; Constraints.MinHeight := 0;
end; end;
end; end;
finally
EnableAutoSizing;
end;
end; end;
function TMainIDEBar.CalcNonClientHeight: Integer; function TMainIDEBar.CalcNonClientHeight: Integer;