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

gtk2: workaround for openbox wm wrong reading of geometry structure. issue #29884

Browse Source 
git-svn-id: trunk@52069 -
This commit is contained in:
zeljko 2016-03-27 10:18:16 +00:00
parent 8ed5c08f14
commit c2d8116ccf
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk2/gtk2wscontrols.pp
View File

@ -17,6 +17,7 @@
unit Gtk2WSControls;
{$mode objfpc}{$H+}
{$I gtk2defines.inc}
interface
@ -725,8 +726,13 @@ begin
if (AForm.Constraints.MaxHeight > 0) or (AForm.Constraints.MaxWidth > 0) then
AHints := AHints or GDK_HINT_MAX_SIZE;
gtk_window_set_geometry_hints({%H-}PGtkWindow(AForm.Handle), nil, @Geometry,
AHints);
{$IFDEF HASX}
if (AHints and GDK_HINT_MIN_SIZE = 0) and (AHints and GDK_HINT_MAX_SIZE = 0) and
(Gtk2WidgetSet.GetWindowManager = 'openbox') then
else
{$ENDIF}
gtk_window_set_geometry_hints({%H-}PGtkWindow(AForm.Handle), nil, @Geometry,
AHints);
end;
gtk_window_resize({%H-}PGtkWindow(AForm.Handle), AForm.Width, AForm.Height);
end;