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

Gtk2: fixed mess with form sizes while being designed under compositing manager. issue #25473

Browse Source 
git-svn-id: trunk@44715 -
This commit is contained in:
zeljko 2014-04-13 11:20:18 +00:00
parent e7cc950b13
commit a3373895f0
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/gtk2/gtk2wsforms.pp
View File

@ -140,11 +140,12 @@ var
ACtl: TWinControl;
Mess : TLMessage;
WInfo: PWidgetInfo;
X,Y: Integer;
X,Y: integer;
{$IFDEF HASX}
XDisplay: PDisplay;
Window: TWindow;
RevertStatus: Integer;
winX, winY, winW, winH: gint;
{$ENDIF}
begin
@ -164,6 +165,23 @@ begin
// see http://bugs.freepascal.org/view.php?id=17523
if Gtk2WidgetSet.compositeManagerRunning then
begin
// issue #25473, compositing manager eg. Mutter (Mint 16) makes
// complete mess with lcl<->gtk2<->x11 when our form is designed.
if (csDesigning in ACtl.ComponentState) then
begin
gdk_window_get_geometry(event^.configure.window, @winX, @winY, @winW, @winH, nil);
if (winW <> event^.configure.width) or (winH <> event^.configure.height) then
begin
// goto hell
{$IF DEFINED(VerboseSizeMsg) OR DEFINED(VerboseGetClientRect)}
DebugLn('Warning: GDK_CONFIGURE: Designed form is misconfigured because of bad compositing manager (see issue #25473).');
DebugLn('Warning: GDK_CONFIGURE: Fixing problem by setting current LCL values ',dbgs(ACtl.BoundsRect));
{$ENDIF}
Result := True;
gdk_window_move_resize(event^.configure.window, ACtl.Left, ACtl.Top, ACtl.Width, ACtl.Height);
exit;
end;
end;
if (X <> ACtl.Left) or (Y <> ACtl.Top) then
Result := gtkconfigureevent(widget, PGdkEventConfigure(event),
Data)