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

gtk2: fix TBitBtn with Marging (#0011383)

Browse Source 
git-svn-id: trunk@15296 -
This commit is contained in:
paul 2008-06-03 03:41:58 +00:00
parent 72096b4856
commit 3ef54218fb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk/gtkwsbuttons.pp
View File

@ -422,7 +422,8 @@ begin
if (AInfo^.SpaceWidget = nil)
and (ALayout in [blGlyphRight, blGlyphBottom])
then begin
AInfo^.SpaceWidget := gtk_invisible_new;
// dont use gtk_invisible_new - it cannot have parent
AInfo^.SpaceWidget := gtk_image_new;
UpdateLayout(AInfo, ALayout, AMargin);
end
else begin