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

Qt: formatting of debug code

Browse Source 
git-svn-id: trunk@35868 -
This commit is contained in:
zeljko 2012-03-10 11:30:56 +00:00
parent 842ee66945
commit 2af6916164
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2855,16 +2855,18 @@ begin
else
S1 := 'NONE';
writeln(' KEY=',QKeyEvent_key(QKeyEventH(Event)),' COUNT=',QKeyEvent_count(QKeyEventH(Event)),' TEXT=',Text);
writeln(' LCLKEY=',QtKeyToLCLKey(QKeyEvent_key(QKeyEventH(Event)), Text, QKeyEventH(Event)),
' SPONTANEOUS ', QEvent_spontaneous(Event));
writeln(' KEY=',QKeyEvent_key(QKeyEventH(Event)),' COUNT=',
QKeyEvent_count(QKeyEventH(Event)),' TEXT=',Text);
writeln(' LCLKEY=',QtKeyToLCLKey(QKeyEvent_key(QKeyEventH(Event)), Text,
QKeyEventH(Event)),' SPONTANEOUS ', QEvent_spontaneous(Event));
writeln(' MODIFIERS: ',S,' NATIVEMODIFIERS: ',S1);
writeln(' HASEXTENDEDINFO: ',QKeyEvent_hasExtendedInfo(QKeyEventH(Event)),
' ISAUTOREPEAT: ',QKeyEvent_isAutoRepeat(QKeyEventH(Event)));
writeln(' NATIVESCANCODE: ',QKeyEvent_nativeScanCode(QKeyEventH(Event)),
' NATIVEVIRTUALKEY: ',QKeyEvent_nativeVirtualKey(QKeyEventH(Event)));
writeln('Key compression ? ',QWidget_testAttribute(QWidgetH(Sender), QtWA_KeyCompression));
writeln('Key compression ? ',
QWidget_testAttribute(QWidgetH(Sender), QtWA_KeyCompression));
writeln('< TQtWidget.SlotKey dump end event=',EventTypeToStr(Event));
{$ENDIF}