From 4116396ac901c52949035ae0e70065dcf5c320fc Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Thu, 7 Nov 2019 09:33:23 +0000
Subject: [PATCH] Qt: Alt+Shift+[0..9] does not work under x11. issue #36274

git-svn-id: trunk@62217 -
---
 lcl/interfaces/qt/qtwidgets.pas | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index d783dabced..6360f8f430 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -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}