paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 03:10:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: report ssMeta in GetKeyShiftState

Browse Source 
git-svn-id: trunk@34276 -
This commit is contained in:
paul 2011-12-19 12:21:36 +00:00
parent dfa2b4334b
commit b839a5040a
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/controls.pp
View File

@ -2705,13 +2705,15 @@ end;
function GetKeyShiftState: TShiftState;
begin
Result:=[];
if (GetKeyState(VK_CONTROL) and $8000)<>0 then
Include(Result,ssCtrl);
if (GetKeyState(VK_SHIFT) and $8000)<>0 then
Include(Result,ssShift);
if (GetKeyState(VK_MENU) and $8000)<>0 then
Include(Result,ssAlt);
Result := [];
if (GetKeyState(VK_CONTROL) and $8000) <> 0 then
Include(Result, ssCtrl);
if (GetKeyState(VK_SHIFT) and $8000) <> 0 then
Include(Result, ssShift);
if (GetKeyState(VK_MENU) and $8000) <> 0 then
Include(Result, ssAlt);
if ((GetKeyState(VK_LWIN) and $8000) <> 0) or ((GetKeyState(VK_RWIN) and $8000) <> 0) then
Include(Result, ssMeta);
end;
{------------------------------------------------------------------------------