paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 12:20:37 +01: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; Exit;
end; end;
// create mask // create mask
{$IFDEF VerboseRawImage}
DebugLn('TGtkWidgetSet.CreateBitmapFromRawImage creating mask .. ');
{$ENDIF}
if ARawImage.IsMasked(False) if ARawImage.IsMasked(False)
then begin then Drawable := gdk_bitmap_create_from_data(nil, ImgMask, ImgWidth, ImgHeight)
{$IFDEF VerboseRawImage} else Drawable := gdk_pixmap_new(nil, ImgWidth, ImgHeight, 1);
DebugLn('TGtkWidgetSet.CreateBitmapFromRawImage creating mask .. ');
{$ENDIF}
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); //DbgDumpBitmap(Drawable, 'CreateBitmaps - Mask');
GdiMaskObject^.Depth := 1;
GdiMaskObject^.GDIBitmapType := gbBitmap;
GdiMaskObject^.GDIBitmapObject := Drawable;
//DbgDumpBitmap(Drawable, 'CreateBitmaps - Mask');
end;
Result := true; Result := true;
except except
DeleteObject(ABitmap); DeleteObject(ABitmap);