paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 18:20:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: gtk2: GetPreferredSize: subtract client area

Browse Source 
git-svn-id: branches/fixes_1_4@47870 -
This commit is contained in:
mattias 2015-02-17 23:51:22 +00:00
parent 5a16f8953d
commit 58530e0ae6
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -6405,23 +6405,41 @@ procedure GetGTKDefaultWidgetSize(AWinControl: TWinControl;
var
Widget: PGtkWidget;
Requisition: TGtkRequisition;
FixedWidget: PGtkWidget;
begin
Widget := {%H-}PGtkWidget(AWinControl.Handle);
//if AWinControl.Name='OtherInfoGroupBox' then
// DebugLn(['GetGTKDefaultWidgetSize ',GetWidgetDebugReport(Widget)]);
// set size to default
//DebugLn(['GetGTKDefaultWidgetSize ',GetWidgetDebugReport(Widget)]);
gtk_widget_set_size_request(Widget, -1, -1);
// ask default size
gtk_widget_size_request(Widget,@Requisition);
PreferredWidth:=Requisition.width;
PreferredHeight:=Requisition.height;
{DebugLn(['GetGTKDefaultWidgetSize Allocation=',Widget^.allocation.x,',',Widget^.allocation.y,',',Widget^.allocation.width,',',Widget^.allocation.height,
' requisition=',Widget^.requisition.width,',',Widget^.requisition.height,
' PreferredWidth=',PreferredWidth,' PreferredHeight=',PreferredHeight,
' WithThemeSpace=',WithThemeSpace]);}
{if AWinControl.Name='OtherInfoGroupBox' then
DebugLn(['GetGTKDefaultWidgetSize Allocation=',Widget^.allocation.x,',',Widget^.allocation.y,',',Widget^.allocation.width,',',Widget^.allocation.height,
' requisition=',Widget^.requisition.width,',',Widget^.requisition.height,
' PreferredWidth=',PreferredWidth,' PreferredHeight=',PreferredHeight,
' WithThemeSpace=',WithThemeSpace]); }
if GtkWidgetIsA(Widget,GTK_TYPE_EVENT_BOX) then begin
FixedWidget:=PGtkWidget(GetFixedWidget(Widget));
if FixedWidget<>nil then begin
{if AWinControl.Name='OtherInfoGroupBox' then
debugln(['GetGTKDefaultWidgetSize Fixed ',
' allocation=',FixedWidget^.allocation.x,',',FixedWidget^.allocation.y,',',FixedWidget^.allocation.width,',',FixedWidget^.allocation.height,
' requisition=',FixedWidget^.requisition.width,',',FixedWidget^.requisition.height]);}
dec(PreferredWidth,Max(0,FixedWidget^.requisition.width));
dec(PreferredHeight,Max(0,FixedWidget^.requisition.height));
end;
end;
// restore size
gtk_widget_set_size_request(Widget, AWinControl.Width, AWinControl.Height);
//debugln('GetGTKDefaultSize PreferredWidth=',dbgs(PreferredWidth),' PreferredHeight=',dbgs(PreferredHeight));
//if AWinControl.Name='OtherInfoGroupBox' then
// debugln('GetGTKDefaultSize PreferredWidth=',dbgs(PreferredWidth),' PreferredHeight=',dbgs(PreferredHeight));
end;
procedure SendSizeNotificationToLCL(aWidget: PGtkWidget);