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

gtk2 intf: groupbox: use default frame border until style initialized

Browse Source 
git-svn-id: trunk@23850 -
This commit is contained in:
mattias 2010-03-06 22:35:55 +00:00
parent 09834f1ed5
commit b4dee09450
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -1804,17 +1804,25 @@ class function TGtk2WSCustomGroupBox.GetDefaultClientRect(
var aClientRect: TRect): boolean;
var
FrameBorders: TRect;
Widget: PGtkWidget;
FixedWidget: PGtkWidget;
begin
Result:=false;
//DebugLn(['TGtk2WSCustomGroupBox.GetDefaultClientRect ',DbgSName(AWinControl),' ',aWidth,'x',aHeight]);
if AWinControl.HandleAllocated then begin
Widget:=PGtkWidget(AWinControl.Handle);
FixedWidget:=PGtkWidget(GetFixedWidget(Widget));
//DebugLn(['TGtk2WSCustomGroupBox.GetDefaultClientRect Flags=',WidgetFlagsToString(Widget),' FixedFlags=',WidgetFlagsToString(FixedWidget),' FixedSize=',FixedWidget^.allocation.width,'x',FixedWidget^.allocation.height]);
if not GTK_WIDGET_RC_STYLE(FixedWidget) then
Result:=true;
end else begin
Result:=true;
end;
if Result then begin
FrameBorders:=GetStyleGroupboxFrameBorders;
aClientRect:=Rect(0,0,
Max(0,aWidth-FrameBorders.Left-FrameBorders.Right),
Max(0,aHeight-FrameBorders.Top-FrameBorders.Bottom));
Result:=true;
end;
//if Result then DebugLn(['TGtk2WSCustomGroupBox.GetDefaultClientRect END FrameBorders=',dbgs(FrameBorders),' aClientRect=',dbgs(aClientRect)]);
end;