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

Qt: make SM_CYMENU 1 under darwin, not 0.

Browse Source 
git-svn-id: trunk@35312 -
This commit is contained in:
zeljko 2012-02-11 18:52:41 +00:00
parent cb5cd0503b
commit 7fc44ac9f8
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/qt/qtobject.inc
View File

@ -1305,17 +1305,15 @@ begin
end;
function TQtWidgetSet.GetMenuHeight: Integer;
{$IFNDEF DARWIN}
var
AMenuBar: QMenuBarH;
DummyWindow: QMainWindowH;
DummyStr: WideString;
Size: TSize;
{$ENDIF}
begin
{$IFDEF DARWIN}
FCachedMenuBarHeight := 0;
{$ELSE}
FCachedMenuBarHeight := 1;
{$ENDIF}
if FCachedMenuBarHeight = -1 then
begin
DummyWindow := QMainWindow_create(QApplication_desktop());
@ -1330,7 +1328,6 @@ begin
end;
if (FCachedMenuBarHeight <= 0) then
FCachedMenuBarHeight := 22; // default
{$ENDIF}
Result := FCachedMenuBarHeight;
end;