mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-19 04:49:40 +02:00
Gtk2: fixed GetSystemMetrics(SM_CYMENU). issue #28034
git-svn-id: trunk@62997 -
This commit is contained in:
parent
f2f8feab9b
commit
2a19f6f24d
@ -5884,17 +5884,9 @@ begin
|
||||
SM_CYMENU:
|
||||
begin
|
||||
Result := 24; // default gtk2 menusize inside menubar.
|
||||
|
||||
P := GetStyleWidget(lgsMenu);
|
||||
if P <> nil then
|
||||
begin
|
||||
Result := GTK_Widget(P)^.requisition.Height;
|
||||
|
||||
P := GetStyleWidget(lgsMenuBar);
|
||||
if P <> nil then
|
||||
Result := Result + GTK_Widget(P)^.requisition.Height;
|
||||
end;
|
||||
inc(Result, FCachedBorderSize);
|
||||
end;
|
||||
SM_CYSMCAPTION:
|
||||
begin
|
||||
|
Loading…
Reference in New Issue
Block a user