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

qt: revert commit of debug code

Browse Source 
git-svn-id: trunk@16561 -
This commit is contained in:
paul 2008-09-12 03:25:37 +00:00
parent 362c46dac6
commit 7a25527898
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1868,11 +1868,11 @@ begin
KeyMsg.KeyData := QtKeyModifiersToKeyState(Modifiers);
{$ifdef windows}
//ACharCode := QKeyEvent_nativeVirtualKey(QKeyEventH(Event));
//KeyMsg.CharCode := ACharCode;
ACharCode := QKeyEvent_nativeVirtualKey(QKeyEventH(Event));
KeyMsg.CharCode := ACharCode;
// todo: VK to Win_VK for other os too
WriteLn(QKeyEvent_nativeVirtualKey(QKeyEventH(Event)));
WriteLn(QKeyEvent_nativeScanCode(QKeyEventH(Event)));
//WriteLn(QKeyEvent_nativeVirtualKey(QKeyEventH(Event)));
//WriteLn(QKeyEvent_nativeScanCode(QKeyEventH(Event)));
{$endif}
// Loads the UTF-8 character associated with the keypress, if any