From 490a9896da153eea2f3fc4ffd0494565afaaab51 Mon Sep 17 00:00:00 2001
From: michl <michl@lazarus-ide.org>
Date: Wed, 28 Mar 2018 20:47:36 +0000
Subject: [PATCH] LCL: GTK2: TLabel: Accelerating keys will work correct again
 after revision 57571 #797b238648.

git-svn-id: trunk@57572 -
---
 lcl/interfaces/gtk2/gtk2proc.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk2/gtk2proc.inc b/lcl/interfaces/gtk2/gtk2proc.inc
index 2d546736c8..0801f9aa69 100644
--- a/lcl/interfaces/gtk2/gtk2proc.inc
+++ b/lcl/interfaces/gtk2/gtk2proc.inc
@@ -2505,7 +2505,7 @@ begin
       begin
         FillChar(Msg, SizeOf(Msg), 0);
 
-        Msg.KeyData := CommonKeyData;
+        Msg.KeyData := CommonKeyData or (Flags shl 16) or $0001;
         Msg.Msg := CHAR_MAP[SysKey, ABeforeEvent];
 
         // send the (Sys)Char message directly (not queued) to the LCL