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

Gtk3: fixed ClientHeight does not equal to Height on wayland.Patch by Anton Kavalenka. issue #41345

Browse Source
This commit is contained in:
zeljan1 2025-02-07 15:52:07 +01:00
parent eba745ba63
commit f14ddd7eea
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -8875,8 +8875,13 @@ begin
end;
{$ENDIF}
NewSize.cx := AGdkRect^.width;
NewSize.cy := AGdkRect^.height;
if decoration_flags(TCustomForm(Actl.LCLObject))<>[] then
PGtkWIndow(Actl.widget)^.get_size(@newSize.cx, @newsize.cy)
else
begin
NewSize.cx := AGdkRect^.width;
NewSize.cy := AGdkRect^.height;
end;
//writeln(format('Gkt3SizeAllocate w=%d h=%d',[NewSize.cx,NewSize.cy]));