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

Qt: fix for #13470. Note that this bug is Qt bug not LCL or qtlcl one, so this commit is an workaround for qt bug.

Browse Source 
git-svn-id: trunk@20494 -
This commit is contained in:
zeljko 2009-06-07 09:44:37 +00:00
parent 7fa3e9d966
commit ed0983b26a
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2087,6 +2087,7 @@ var
UTF8Text: String; // use to prevent 3 time convertion from WideString to utf8 string
UTF8Char: TUTF8Char;
ACharCode: Word;
TheKey: Integer;
AChar: Char;
AKeyEvent: QKeyEventH;
begin
@ -2117,6 +2118,22 @@ begin
// Loads the UTF-8 character associated with the keypress, if any
QKeyEvent_text(QKeyEventH(Event), @Text);
{$note this is workaround for Qt bug which reports
wrong keys with Shift+Ctrl pressed. Fixes #13450.
LAST REVISION: Qt-4.5.2 git snapshot 20090607. zeljko}
if (Modifiers = QtShiftModifier or QtControlModifier) then
begin
TheKey := QKeyEvent_key(QKeyEventH(Event));
if (length(Text) = 1) and (TheKey in [33..41,61]) then
begin
if TheKey = 61 then
TheKey := 32;
ACharCode := QtKeyToLCLKey( TheKey + 16, Text);
KeyMsg.CharCode := ACharCode;
Text := '';
end;
end;
// Translates a Qt4 Key to a LCL VK_* key
if KeyMsg.CharCode = 0 then
begin