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

gtk2 intf: shrink close buttons of TNoteBook tabs, bug #9856

Browse Source 
git-svn-id: trunk@13699 -
This commit is contained in:
mattias 2008-01-09 21:13:01 +00:00
parent 2b1ed1ccae
commit 4f6a0dcd48
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk/gtkproc.inc
View File

@ -4355,6 +4355,7 @@ var
Mask: PGdkBitmap; Mask: PGdkBitmap;
{$Else} {$Else}
Img: PGdkPixbuf; Img: PGdkPixbuf;
x, y: gInt;
{$EndIf} {$EndIf}
begin begin
{$IfDef GTK1} {$IfDef GTK1}
@ -4370,6 +4371,11 @@ var
// there is no close button yet // there is no close button yet
// -> add one to the right side of the label in the tab // -> add one to the right side of the label in the tab
TabCloseBtnWidget:=gtk_button_new; TabCloseBtnWidget:=gtk_button_new;
{$ifdef gtk2}
gtk_widget_get_size_request(TabWidget, @x, @y);
y := 0; // will make it default fit
gtk_widget_set_size_request(TabCloseBtnWidget, x, y);
{$endif}
gtk_object_set_data(PGtkObject(TabWidget), 'TabCloseBtn', gtk_object_set_data(PGtkObject(TabWidget), 'TabCloseBtn',
TabCloseBtnWidget); TabCloseBtnWidget);
begin begin