From 34ba568cd6f077da1e8fcef639944c417de5ee0d Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Fri, 2 Mar 2012 08:01:56 +0000
Subject: [PATCH] Qt: fill TLMKey.Unused field with 1 if key is autorepeated

git-svn-id: trunk@35650 -
---
 lcl/interfaces/qt/qtwidgets.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 6ef36fb753..70a30fe69d 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -2723,6 +2723,10 @@ begin
   Modifiers := QKeyEvent_modifiers(QKeyEventH(Event));
   IsSysKey := (QtAltModifier and Modifiers) <> $0;
   KeyMsg.KeyData := QtKeyModifiersToKeyState(Modifiers);
+  if QKeyEvent_isAutoRepeat(QKeyEventH(Event)) then
+    KeyMsg.Unused := 1
+  else
+    KeyMsg.Unused := 0;
   {$ifdef windows}
     ACharCode := QKeyEvent_nativeVirtualKey(QKeyEventH(Event));
     KeyMsg.CharCode := ACharCode;