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

Improves the filter for LCL-Qt chars

Browse Source 
git-svn-id: trunk@33544 -
This commit is contained in:
sekelsenmat 2011-11-15 15:12:13 +00:00
parent 1d766bf63e
commit 89cfff37ee
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/customdrawn/customdrawncontrols.pas
View File

@ -1175,7 +1175,7 @@ begin
// LCL-Carbon sends Backspace as a UTF-8 Char // LCL-Carbon sends Backspace as a UTF-8 Char
// LCL-Qt sends arrow left,right,up,down (#28..#31), <enter>, ESC, etc // LCL-Qt sends arrow left,right,up,down (#28..#31), <enter>, ESC, etc
// Don't handle any non-char keys here because they are already handled in KeyDown // Don't handle any non-char keys here because they are already handled in KeyDown
if UTF8Key[1] in [#0..#31] then Exit; if UTF8Key[1] in [#0..#$1F,#$7F..#$9F] then Exit;
DoDeleteSelection; DoDeleteSelection;