From 4a22638b3e48a2f6c8b0f6586a5020c383ab7fa1 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Tue, 6 Mar 2012 12:34:33 +0000
Subject: [PATCH] Qt: fixed compilation under darwin

git-svn-id: trunk@35766 -
---
 lcl/interfaces/qt/qtwidgets.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index daca31e39d..e9dd7bf70f 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -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;