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

lcl: use ssDouble, ssTriple and ssQuad in MouseUp handlers

Browse Source 
git-svn-id: trunk@51570 -
This commit is contained in:
ondrej 2016-02-10 15:35:03 +00:00
parent 570ec7af98
commit 03766b3e7f
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/forms.pp
View File

@ -1873,6 +1873,10 @@ begin
if Keys and MK_MButton <> 0 then Include(Result, ssMiddle);
if Keys and MK_XBUTTON1 <> 0 then Include(Result, ssExtra1);
if Keys and MK_XBUTTON2 <> 0 then Include(Result, ssExtra2);
if Keys and MK_DOUBLECLICK <> 0 then Include(Result, ssDouble);
if Keys and MK_TRIPLECLICK <> 0 then Include(Result, ssTriple);
if Keys and MK_QUADCLICK <> 0 then Include(Result, ssQuad);
if GetKeyState(VK_MENU) < 0 then Include(Result, ssAlt);
if (GetKeyState(VK_LWIN) < 0) or (GetKeyState(VK_RWIN) < 0) then Include(Result, ssMeta);
end;
@ -1892,6 +1896,9 @@ begin
if ssMiddle in ShiftState then Result := Result or MK_MBUTTON;
if ssExtra1 in ShiftState then Result := Result or MK_XBUTTON1;
if ssExtra2 in ShiftState then Result := Result or MK_XBUTTON2;
if ssDouble in ShiftState then Result := Result or MK_DOUBLECLICK;
if ssTriple in ShiftState then Result := Result or MK_TRIPLECLICK;
if ssQuad in ShiftState then Result := Result or MK_QUADCLICK;
end;
function WindowStateToStr(const State: TWindowState): string;

4
lcl/lcltype.pp
View File

@ -2846,6 +2846,10 @@ const
MK_MBUTTON = $10;
MK_XBUTTON1 = $20;
MK_XBUTTON2 = $40;
// following are "virtual" key states
MK_DOUBLECLICK = $80;
MK_TRIPLECLICK = $100;
MK_QUADCLICK = $200;
//==============================================
// Constants from commctrl