paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 23:58:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk intf: TGtkWidgetSet.CreateBrushIndirect: gdk_pixbuf_render_pixmap_and_mask creates the pixmap and mask itself

Browse Source 
git-svn-id: trunk@21790 -
This commit is contained in:
mattias 2009-09-20 22:18:46 +00:00
parent f75643d1fa
commit 90d57b132f
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -969,7 +969,6 @@ const
var
GObject: PGdiObject;
TmpMask: PGdkBitmap;
W, H: Integer;
begin
Assert(False, Format('Trace:> [TGtkWidgetSet.CreateBrushIndirect] Style: %d, Color: %8x', [LogBrush.lbStyle, LogBrush.lbColor]));
@ -1046,11 +1045,10 @@ begin
end;
gbPixbuf:
begin
W := gdk_pixbuf_get_width(PGdiObject(lbHatch)^.GDIPixbufObject);
H := gdk_pixbuf_get_height(PGdiObject(lbHatch)^.GDIPixbufObject);
GObject^.GDIBrushPixmap := gdk_pixmap_new(nil, W, H, 24);
TmpMask := gdk_pixmap_new(nil, W, H, 1);
gdk_pixbuf_render_pixmap_and_mask(PGdiObject(lbHatch)^.GDIPixbufObject, GObject^.GDIBrushPixmap, TmpMask, $80);
GObject^.GDIBrushPixmap := nil;
TmpMask := nil;
gdk_pixbuf_render_pixmap_and_mask(PGdiObject(lbHatch)^.GDIPixbufObject,
GObject^.GDIBrushPixmap, TmpMask, $80);
gdk_pixmap_unref(TmpMask);
end;
else