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

win32 interface: fixed memleak

Browse Source 
git-svn-id: trunk@11868 -
This commit is contained in:
vincents 2007-08-27 09:14:59 +00:00
parent 27ba3ff652
commit 9ec2fe74a3
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/win32/win32winapi.inc
View File

@ -3268,6 +3268,7 @@ function TWin32WidgetSet.StretchMaskBlt(DestDC: HDC; X, Y, Width, Height: Intege
Header.biCompression := BI_RGB;
Result := Windows.CreateDIBitmap(SrcDC, Header, CBM_INIT, Data, Windows.TBitmapInfo((@Header)^), DIB_RGB_COLORS);
Freemem(Data);
end;
var
MaskDC, CopyDC, AlphaDC: HDC;