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

qt: use ssDouble, ssTriple and ssQuad in MouseUp handlers

Browse Source 
git-svn-id: trunk@51572 -
This commit is contained in:
ondrej 2016-02-10 15:35:49 +00:00
parent 4e5865693b
commit 7be1f95d3a
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/qt/qtwidgets.pas
View File

@ -3647,6 +3647,11 @@ begin
if ((MButton and QtLeftButton) = 0) and ((MButton and QtRightButton) = 0) and
((MButton and QtMidButton) = 0) then
Msg.Keys := Msg.Keys or QtButtonsToLCLButtons(MButton);
case LastMouse.ClickCount of
2: Msg.Keys := Msg.Keys or MK_DOUBLECLICK;
3: Msg.Keys := Msg.Keys or MK_TRIPLECLICK;
4: Msg.Keys := Msg.Keys or MK_QUADCLICK;
end;
case MButton of
QtLeftButton: Msg.Msg := LM_LBUTTONUP;
QtRightButton: Msg.Msg := LM_RBUTTONUP;