paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 17:37:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Clear pixmap contents of empty mask. The contents of a new pixmaps is undefined

Browse Source 
git-svn-id: trunk@30134 -
This commit is contained in:
marc 2011-04-02 16:19:42 +00:00
parent c0ca12b0b3
commit e999be5449
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk2/gtk2lclintf.inc
View File

@ -442,7 +442,13 @@ begin
if ARawImage.IsMasked(False)
then Drawable := gdk_bitmap_create_from_data(nil, ImgMask, ImgWidth, ImgHeight)
else Drawable := gdk_pixmap_new(nil, ImgWidth, ImgHeight, 1);
else begin
Drawable := gdk_pixmap_new(nil, ImgWidth, ImgHeight, 1);
// clear drawable, the contents of a new pixmap are indefined
GC := gdk_gc_new(Drawable);
gdk_draw_rectangle(Drawable, GC, 1, 0, 0, ImgWidth, ImgHeight);
gdk_gc_unref(GC);
end;
GdiMaskObject := NewGDIObject(gdiBitmap);
GdiMaskObject^.Depth := 1;