From b04540dbcda91b9ad3d651fa696ddc7ec90f9537 Mon Sep 17 00:00:00 2001 From: mattias Date: Thu, 19 Feb 2015 11:41:15 +0000 Subject: [PATCH] LCL: gtk2: GetGTKDefaultWidgetSize: ignore client area with child controls git-svn-id: trunk@47897 - --- lcl/interfaces/gtk2/gtk2proc.inc | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lcl/interfaces/gtk2/gtk2proc.inc b/lcl/interfaces/gtk2/gtk2proc.inc index 7aa042a27e..ebeb5d3393 100644 --- a/lcl/interfaces/gtk2/gtk2proc.inc +++ b/lcl/interfaces/gtk2/gtk2proc.inc @@ -6424,7 +6424,9 @@ begin ' PreferredWidth=',PreferredWidth,' PreferredHeight=',PreferredHeight, ' WithThemeSpace=',WithThemeSpace]); } - if GtkWidgetIsA(Widget,GTK_TYPE_EVENT_BOX) then begin + if GtkWidgetIsA(Widget,GTK_TYPE_EVENT_BOX) + and (AWinControl.ControlCount>0) then begin + // ignore client area (child controls) FixedWidget:=PGtkWidget(GetFixedWidget(Widget)); if FixedWidget<>nil then begin {if AWinControl.Name='OtherInfoGroupBox' then