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

LCL-Win32: Optimize TWindowProcHelper.CalcClipRgn a little. Issue #35467, patch from Serge Anvarov.

Browse Source 
git-svn-id: trunk@61086 -
This commit is contained in:
juha 2019-04-30 12:51:23 +00:00
parent d3ce767c34
commit 02e6ee3196
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -493,7 +493,7 @@ end;
procedure TWindowProcHelper.CalcClipRgn(PaintRegion: HRGN);
var
nSize, BytesCount: DWORD;
nSize: DWORD;
RgnData: PRgnData;
WindowOrg: Windows.POINT;
XFRM: TXFORM;
@ -527,8 +527,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);