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

gtk: create mask if requested even if no mask is present (part of #0011902)

Browse Source 
git-svn-id: trunk@16150 -
This commit is contained in:
paul 2008-08-20 01:07:01 +00:00
parent f3f641e538
commit ffa3f0b8ba
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lcl/interfaces/gtk/gtklclintf.inc
View File

@ -403,24 +403,23 @@ begin
Exit;
end;
// create mask
{$IFDEF VerboseRawImage}
DebugLn('TGtkWidgetSet.CreateBitmapFromRawImage creating mask .. ');
{$ENDIF}
if ARawImage.IsMasked(False)
then begin
{$IFDEF VerboseRawImage}
DebugLn('TGtkWidgetSet.CreateBitmapFromRawImage creating mask .. ');
{$ENDIF}
then Drawable := gdk_bitmap_create_from_data(nil, ImgMask, ImgWidth, ImgHeight)
else Drawable := gdk_pixmap_new(nil, ImgWidth, ImgHeight, 1);
Drawable := gdk_bitmap_create_from_data(nil, ImgMask, ImgWidth, ImgHeight);
GdiMaskObject := NewGDIObject(gdiBitmap);
GdiMaskObject^.Depth := 1;
GdiMaskObject^.GDIBitmapType := gbBitmap;
GdiMaskObject^.GDIBitmapObject := Drawable;
GdiMaskObject := NewGDIObject(gdiBitmap);
GdiMaskObject^.Depth := 1;
GdiMaskObject^.GDIBitmapType := gbBitmap;
GdiMaskObject^.GDIBitmapObject := Drawable;
//DbgDumpBitmap(Drawable, 'CreateBitmaps - Mask');
//DbgDumpBitmap(Drawable, 'CreateBitmaps - Mask');
end;
Result := true;
except
DeleteObject(ABitmap);