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

Qt: Alt+Shift+[0..9] does not work under x11. issue #36274

Browse Source 
git-svn-id: trunk@62217 -
This commit is contained in:
zeljko 2019-11-07 09:33:23 +00:00
parent 0e6259598f
commit 4116396ac9
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3325,6 +3325,20 @@ begin
if (Modifiers = QtShiftModifier or QtControlModifier) then
Text := '';
end;
end else
if (Modifiers = QtShiftModifier or QtAltModifier) then
begin
ScanCode := QKeyEvent_nativeScanCode(QKeyEventH(Event));
if (length(Text) = 1) and (ScanCode in [10..19]) then
begin
if ScanCode = 19 then
ScanCode := 48
else
ScanCode := ScanCode + 39;
KeyMsg.CharCode := Word(ScanCode);
if (Modifiers = QtShiftModifier or QtAltModifier) then
Text := '';
end;
end;
{$ENDIF}
{$ENDIF}