paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 02:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-Win32: Optimize TWindowProcHelper.CalcClipRgn a little. Issue

Browse Source 
git-svn-id: branches/fixes_2_0@63463 -
This commit is contained in:
mattias 2020-06-28 16:51:39 +00:00
parent 78d3e2b922
commit b53f32952d
1 changed files with 2 additions and 3 deletions

5
lcl/interfaces/win32/win32callback.inc
View File

@ -491,7 +491,7 @@ end;
procedure TWindowProcHelper.CalcClipRgn(PaintRegion: HRGN);
var
nSize, BytesCount: DWORD;
nSize: DWORD;
RgnData: PRgnData;
WindowOrg: Windows.POINT;
XFRM: TXFORM;
@ -525,8 +525,7 @@ begin
XFRM.eM11:=-1; XFRM.eM12:=0;
XFRM.eM21:=0; XFRM.eM22:=1;
// ToDo: BytesCount is not initialized.
MirroredPaintRgn := ExtCreateRegion(@XFRM, BytesCount, RgnData^);
MirroredPaintRgn := ExtCreateRegion(@XFRM, nSize, RgnData^);
Windows.SelectClipRgn(CurDoubleBuffer.DC, MirroredPaintRgn);
Windows.DeleteObject(MirroredPaintRgn);
Freemem(RgnData);