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

LCL: Refactored IsEditableTextKey(). Issue #37237, patch from delfion.

Browse Source 
git-svn-id: trunk@63423 -
This commit is contained in:
juha 2020-06-23 11:14:57 +00:00
parent df829af1dd
commit 604efa0b8a
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/lclproc.pas
View File

@ -910,11 +910,13 @@ end;
function IsEditableTextKey(Key: Word): Boolean; function IsEditableTextKey(Key: Word): Boolean;
begin begin
Result := (((Key >= VK_A) and (Key <= VK_Z)) or Result := Key in [
((Key >= VK_NUMPAD0) and (Key <= VK_DIVIDE)) or VK_A..VK_Z,
((Key >= VK_0) and (Key <= VK_9)) or VK_0..VK_9,
((Key >= 186) and (Key <= 192)) or VK_NUMPAD0..VK_DIVIDE,
((Key >= 219) and (Key <= 222))); VK_OEM_1..VK_OEM_3,
VK_OEM_4..VK_OEM_7
];
end; end;
function SendApplicationMessage(Msg: Cardinal; WParam: WParam; LParam: LParam function SendApplicationMessage(Msg: Cardinal; WParam: WParam; LParam: LParam