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

IDE: Add a DebugLn message for a hack fixing a wrong main window height value with QT bindings.

Browse Source 
git-svn-id: trunk@53033 -
This commit is contained in:
juha 2016-09-25 13:41:30 +00:00
parent c63ea78901
commit ec97d75bd9
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/mainbar.pas
View File

@ -468,9 +468,7 @@ begin
http://bugs.freepascal.org/view.php?id=28033
http://bugs.freepascal.org/view.php?id=28034
http://bugs.freepascal.org/view.php?id=28036
}
if not Showing then
Exit(0);
@ -489,9 +487,12 @@ begin
// ToDo: fix this properly for QT.
// Result can be negative (-560) when both Coolbar and Palette are hidden.
if Result < 0 then
begin
DebugLn(['TMainIDEBar.CalcNonClientHeight: Height ',Result,' is below zero. Forcing it to 55.']);
Result := 55;
end;
{$ENDIF LCLQt}
Assert(Result >= 0, 'TMainIDEBar.CalcNonClientHeight: Result < 0');
Assert(Result >= 0, 'TMainIDEBar.CalcNonClientHeight: Result '+IntToStr(Result)+' is below zero.');
{$IFDEF LCLWin32}
//Win32 the constrained height has to be without SM_CYSIZEFRAME and SM_CYMENU