mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 05:39:14 +02:00
Qt: fixed compilation with VerboseQtKeys define
git-svn-id: trunk@35853 -
This commit is contained in:
parent
5e0a45a27a
commit
24c2bcc08e
@ -2854,7 +2854,7 @@ begin
|
|||||||
S1 := 'NONE';
|
S1 := 'NONE';
|
||||||
|
|
||||||
writeln(' KEY=',QKeyEvent_key(QKeyEventH(Event)),' COUNT=',QKeyEvent_count(QKeyEventH(Event)),' TEXT=',Text);
|
writeln(' KEY=',QKeyEvent_key(QKeyEventH(Event)),' COUNT=',QKeyEvent_count(QKeyEventH(Event)),' TEXT=',Text);
|
||||||
writeln(' LCLKEY=',QtKeyToLCLKey(QKeyEvent_key(QKeyEventH(Event)), Text));
|
writeln(' LCLKEY=',QtKeyToLCLKey(QKeyEvent_key(QKeyEventH(Event)), Text, QKeyEventH(Event)));
|
||||||
writeln(' MODIFIERS: ',S,' NATIVEMODIFIERS: ',S1);
|
writeln(' MODIFIERS: ',S,' NATIVEMODIFIERS: ',S1);
|
||||||
writeln(' HASEXTENDEDINFO: ',QKeyEvent_hasExtendedInfo(QKeyEventH(Event)),
|
writeln(' HASEXTENDEDINFO: ',QKeyEvent_hasExtendedInfo(QKeyEventH(Event)),
|
||||||
' ISAUTOREPEAT: ',QKeyEvent_isAutoRepeat(QKeyEventH(Event)));
|
' ISAUTOREPEAT: ',QKeyEvent_isAutoRepeat(QKeyEventH(Event)));
|
||||||
|
Loading…
Reference in New Issue
Block a user