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

win32: fix range check error

Browse Source 
git-svn-id: trunk@36732 -
This commit is contained in:
paul 2012-04-12 01:13:29 +00:00
parent d180390193
commit 3fce85182c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -129,8 +129,8 @@ begin
P.Y := 0; P.Y := 0;
Windows.MapWindowPoints(Window, Parent, P, 1); Windows.MapWindowPoints(Window, Parent, P, 1);
Windows.OffsetViewportOrgEx(ControlDC, -P.X, -P.Y, P); Windows.OffsetViewportOrgEx(ControlDC, -P.X, -P.Y, P);
Windows.SendMessage(Parent, WM_ERASEBKGND, ControlDC, 0); Windows.SendMessage(Parent, WM_ERASEBKGND, WParam(ControlDC), 0);
Windows.SendMessage(Parent, WM_PRINTCLIENT, ControlDC, PRF_CLIENT); Windows.SendMessage(Parent, WM_PRINTCLIENT, WParam(ControlDC), PRF_CLIENT);
Windows.SetViewportExtEx(ControlDC, P.X, P.Y, nil); Windows.SetViewportExtEx(ControlDC, P.X, P.Y, nil);
end; end;
end; end;