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

Qt: qtwinapi - added define around debugln() in GetKeyState()

Browse Source 
git-svn-id: trunk@15946 -
This commit is contained in:
zeljko 2008-08-04 07:10:55 +00:00
parent 41ab419765
commit c9aebb8a74
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtwinapi.inc
View File

@ -2125,8 +2125,10 @@ begin
VK_CONTROL: VK_CONTROL:
if (QApplication_keyboardModifiers and QtControlModifier) > 0 then if (QApplication_keyboardModifiers and QtControlModifier) > 0 then
Result := Result or StateDown; Result := Result or StateDown;
{$ifdef VerboseQtWinAPI}
else else
DebugLn('TQtWidgetSet.GetKeyState TODO ', DbgSVKCode(Word(nVirtkey))); DebugLn('TQtWidgetSet.GetKeyState TODO ', DbgSVKCode(Word(nVirtkey)));
{$endif}
end; end;
end; end;