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

LCL: Small optimization for ShortcutToText. Issue #30709, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@53084 -
This commit is contained in:
juha 2016-10-09 13:12:13 +00:00
parent 8cfa96523a
commit 223f280d3a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lclproc.pas
View File

@ -693,8 +693,8 @@ begin
$1B: Name := MenuKeyCaps[mkcEsc]; $1B: Name := MenuKeyCaps[mkcEsc];
$20..$28: $20..$28:
Name := MenuKeyCaps[TMenuKeyCap(Ord(mkcSpace) + Key - $20)]; Name := MenuKeyCaps[TMenuKeyCap(Ord(mkcSpace) + Key - $20)];
$2D..$2E: $2D: Name := MenuKeyCaps[mkcIns];
Name := MenuKeyCaps[TMenuKeyCap(Ord(mkcIns) + Key - $2D)]; $2E: Name := MenuKeyCaps[mkcDel];
$30..$39: Name := Chr(Key - $30 + Ord('0')); $30..$39: Name := Chr(Key - $30 + Ord('0'));
$41..$5A: Name := Chr(Key - $41 + Ord('A')); $41..$5A: Name := Chr(Key - $41 + Ord('A'));
$60..$69: Name := 'Num' + Chr(Key - $60 + Ord('0')); //Delphi differs it from 0..9 $60..$69: Name := 'Num' + Chr(Key - $60 + Ord('0')); //Delphi differs it from 0..9