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

gtk2: clean up

Browse Source 
git-svn-id: trunk@37076 -
This commit is contained in:
mattias 2012-04-29 10:15:27 +00:00
parent e7681a3637
commit eb63525d62
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6269,20 +6269,12 @@ begin
gtk_widget_size_request(Widget,@Requisition);
PreferredWidth:=Requisition.width;
PreferredHeight:=Requisition.height;
if WithThemeSpace then begin
end else begin
//debugLn('GetGTKDefaultWidgetSize ',DbgSName(AWinControl),' ',dbgs(gtk_widget_get_xthickness(Widget)),' ythickness=',dbgs(gtk_widget_get_ythickness(Widget)));
//debugLn(['GetGTKDefaultWidgetSize ',GetWidgetDebugReport(Widget)]);
//dec(PreferredWidth,gtk_widget_get_xthickness(Widget));
//if gtk_class_get_type(gtk_object_get_class(Widget))=GTK_TYPE_BUTTON then
// dec(PreferredHeight,2*gtk_widget_get_ythickness(Widget));
end;
{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]);}
// set new size
// restore size
gtk_widget_set_size_request(Widget, AWinControl.Width, AWinControl.Height);
//debugln('GetGTKDefaultSize PreferredWidth=',dbgs(PreferredWidth),' PreferredHeight=',dbgs(PreferredHeight));
end;