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

Gtk2: set proper margins for GtkFrame. patch by Max Vlasov. issue #19658

Browse Source 
git-svn-id: trunk@31534 -
This commit is contained in:
zeljko 2011-07-03 08:17:22 +00:00
parent fee5993bcc
commit e0012b328b
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/gtk2/gtk2wsextctrls.pp
View File

@ -772,11 +772,24 @@ var
Frame, WidgetClient: PGtkWidget; Frame, WidgetClient: PGtkWidget;
WidgetInfo: PWidgetInfo; WidgetInfo: PWidgetInfo;
Allocation: TGTKAllocation; Allocation: TGTKAllocation;
bwidth: gint;
Style: PGtkRCStyle;
begin begin
Frame := gtk_frame_new(nil); Frame := gtk_frame_new(nil);
gtk_frame_set_shadow_type(PGtkFrame(Frame), gtk_frame_set_shadow_type(PGtkFrame(Frame),
BorderStyleShadowMap[TCustomControl(AWinControl).BorderStyle]); BorderStyleShadowMap[TCustomControl(AWinControl).BorderStyle]);
case TCustomPanel(AWinControl).BorderStyle of
bsSingle:
bwidth:=1
else
bwidth:=0
end;
style := gtk_widget_get_modifier_style(Frame);
style^.xthickness := bwidth;
style^.ythickness := bwidth;
gtk_widget_modify_style(Frame, style);
{$IFDEF DebugLCLComponents} {$IFDEF DebugLCLComponents}
DebugGtkWidgets.MarkCreated(Frame, dbgsName(AWinControl)); DebugGtkWidgets.MarkCreated(Frame, dbgsName(AWinControl));
{$ENDIF} {$ENDIF}