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

Qt: fixed compilation with VerboseQtKeys define

Browse Source 
git-svn-id: trunk@35853 -
This commit is contained in:
zeljko 2012-03-09 20:12:17 +00:00
parent 5e0a45a27a
commit 24c2bcc08e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2854,7 +2854,7 @@ begin
S1 := 'NONE';
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(' HASEXTENDEDINFO: ',QKeyEvent_hasExtendedInfo(QKeyEventH(Event)),
' ISAUTOREPEAT: ',QKeyEvent_isAutoRepeat(QKeyEventH(Event)));