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

Qt6: TMainIDEBar.CalcNonClientHeight() updated

Browse Source
This commit is contained in:
rich2014 2023-06-11 14:03:55 +08:00
parent 719253ef26
commit 41a5b150a6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/mainbar.pas
View File

@ -512,7 +512,7 @@ begin
end; end;
function TMainIDEBar.CalcNonClientHeight: Integer; function TMainIDEBar.CalcNonClientHeight: Integer;
{$IF DEFINED(LCLGtk) OR DEFINED(LCLQt) OR DEFINED(LCLQt6)} {$IF DEFINED(LCLGtk) OR DEFINED(LCLQt)}
var var
WindowRect, WindowClientRect: TRect; WindowRect, WindowClientRect: TRect;
{$ENDIF} {$ENDIF}
@ -533,7 +533,7 @@ begin
if not Showing then if not Showing then
Exit(0); Exit(0);
{$IF DEFINED(LCLGtk) OR DEFINED(LCLQt) OR DEFINED(LCLQt6)} {$IF DEFINED(LCLGtk) OR DEFINED(LCLQt)}
//Gtk + Qt //Gtk + Qt
//retrieve real main menu height because //retrieve real main menu height because
// - Gtk, Qt: SM_CYMENU does not work // - Gtk, Qt: SM_CYMENU does not work
@ -552,6 +552,7 @@ begin
//Win32 tested - behaves correctly //Win32 tested - behaves correctly
//Gtk2 tested - behaves correctly //Gtk2 tested - behaves correctly
//Qt5 tested - behaves correctly //Qt5 tested - behaves correctly
//Qt6 tested - behaves correctly
Result := 0; Result := 0;
{$ENDIF} {$ENDIF}
end; end;