paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 20:41:00 +01:00
Code Issues Packages Projects Releases Wiki Activity

win32: use ssDouble, ssTriple and ssQuad in MouseUp handlers

Browse Source 
git-svn-id: trunk@51573 -
This commit is contained in:
ondrej 2016-02-10 15:36:07 +00:00
parent 7be1f95d3a
commit c57f581e7c
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1534,6 +1534,11 @@ begin
XPos := GET_X_LPARAM(LParam);
YPos := GET_Y_LPARAM(LParam);
Keys := WParam;
case MouseDownCount of
2: Keys := Keys or MK_DOUBLECLICK;
3: Keys := Keys or MK_TRIPLECLICK;
4: Keys := Keys or MK_QUADCLICK;
end;
end;
end;