paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 10:37:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: All normal chars are handled by combobox. issue #36235

Browse Source
This commit is contained in:
zeljan1 2025-01-03 16:36:18 +01:00
parent 619d76cdb7
commit 4edf9681f2
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customcombobox.inc
View File

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