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

win32 interface: fixed TSmallPomt to WParam typecast (issue #11954)

Browse Source 
git-svn-id: trunk@16206 -
This commit is contained in:
vincents 2008-08-24 13:02:04 +00:00
parent 3b7fe72130
commit 236126e7ee
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -186,7 +186,7 @@ var
Pos.Y := Y;
end;
ClientToScreen(Handle, Pos);
WParam := Windows.WParam(PointToSmallPoint(Pos));
WParam := Windows.WParam(Longint(PointToSmallPoint(Pos)));
if Windows.SendMessage(Handle, WM_NCHITTEST, 0, WParam) = HTHSCROLL then
begin