paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 13:20:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed compilation under darwin

Browse Source 
git-svn-id: trunk@35766 -
This commit is contained in:
zeljko 2012-03-06 12:34:33 +00:00
parent afcca990e6
commit 4a22638b3e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/qt/qtwidgets.pas
View File

@ -2781,7 +2781,8 @@ begin
(ScanCode <> QtKey_Right) and (ScanCode <> QtKey_Down) then
begin
Modifiers := QtGroupSwitchModifier;
KeyMsg.KeyData := QtKeyModifiersToKeyState(Modifiers);
LCLModifiers := QtKeyModifiersToKeyState(Modifiers, True, QKeyEventH(Event));
KeyMsg.KeyData := PtrInt((LCLModifiers shl 16) or $0001);
IsSysKey := False; // was true above
end;
ScanCode := 0;