paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 13:23:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: GTK2: TLabel: Accelerating keys will work correct again after revision 57571 #797b238648.

Browse Source 
git-svn-id: trunk@57572 -
This commit is contained in:
michl 2018-03-28 20:47:36 +00:00
parent 797b238648
commit 490a9896da
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -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