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

Qt: fill TLMKey.Unused field with 1 if key is autorepeated

Browse Source 
git-svn-id: trunk@35650 -
This commit is contained in:
zeljko 2012-03-02 08:01:56 +00:00
parent 48fb810448
commit 34ba568cd6
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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;