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

LCL: Do not treat any char without modifiers in edit control as accelerator key. Issue #34608.

Browse Source 
git-svn-id: trunk@61798 -
This commit is contained in:
juha 2019-09-01 22:10:35 +00:00
parent fafc78142f
commit e436e9b9dd
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/customedit.inc
View File

@ -500,10 +500,8 @@ procedure TCustomEdit.WMChar(var Message: TLMChar);
begin begin
// all normal characters are handled by the Edit // all normal characters are handled by the Edit
//debugln('TCustomEdit.WMChar ',DbgSName(Self),' ',dbgs(Message.CharCode)); //debugln('TCustomEdit.WMChar ',DbgSName(Self),' ',dbgs(Message.CharCode));
if (KeyDataToShiftState(Message.KeyData) * [ssCtrl, ssAlt] = []) if KeyDataToShiftState(Message.KeyData) * [ssCtrl, ssAlt] = [] then
and (Message.CharCode in [ord('A')..ord('Z'),ord('a')..ord('z'),ord('0')..ord('9')]) then Message.Result := 1 // eat normal keys, so they don't trigger accelerators
// eat normal keys, so they don't trigger accelerators
Message.Result := 1
else else
inherited WMChar(Message); inherited WMChar(Message);
end; end;