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

IDE: removed Qt/Qt5 workaround , fixed issue #36874

Browse Source 
git-svn-id: trunk@62888 -
This commit is contained in:
zeljko 2020-04-05 09:20:10 +00:00
parent c51ee7a11e
commit 114f2092b1
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/mainbar.pas
View File

@ -540,15 +540,6 @@ begin
Result := WindowClientRect.Top - WindowRect.Top; Result := WindowClientRect.Top - WindowRect.Top;
{$IF DEFINED(LCLQt) OR DEFINED(LCLQt5)}
// 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 '+IntToStr(Result)+' is below zero.'); Assert(Result >= 0, 'TMainIDEBar.CalcNonClientHeight: Result '+IntToStr(Result)+' is below zero.');
{$IFDEF LCLWin32} {$IFDEF LCLWin32}