paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 11:50:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: fix potential bug in TGtkDeviceContext.SelectBitmap

Browse Source 
git-svn-id: trunk@43653 -
This commit is contained in:
paul 2014-01-06 09:34:05 +00:00
parent a597438a7e
commit 849077bfc5
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/gtk2/gtk2devicecontext.inc
View File

@ -1001,7 +1001,7 @@ end;
function TGtkDeviceContext.SelectBitmap(AGdiObject: PGdiObject): PGdiObject;
var
NewPixbuf: PGdkPixbuf = nil;
NewPixbuf: PGdkPixbuf;
NewDrawable: PGdkPixmap;
Mask: PGdkBitmap;
begin
@ -1009,6 +1009,7 @@ begin
Result := GetBitmap;
if CurrentBitmap = AGDIObject then Exit;
NewPixbuf := nil;
CurrentBitmap := AGDIObject;
with FCurrentBitmap^ do
case GDIBitmapType of