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

synedit: fixed typo, hint from Martin Friebe

Browse Source 
git-svn-id: trunk@17377 -
This commit is contained in:
vincents 2008-11-13 18:51:48 +00:00
parent 34b6f45af2
commit 0e7efda9d0
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/synedit/synedit.pp
View File

@ -2321,7 +2321,7 @@ begin
if Assigned(OnUTF8KeyPress) then OnUTF8KeyPress(Self, Key);
// The key will be handled in UTFKeyPress always and KeyPress won't be called
// so we we fire the OnKeyPress here
if (ord(key[1])< %1100000) and (key[1]<>#0) and Assigned(OnKeyPress) then
if (ord(key[1])< %11000000) and (key[1]<>#0) and Assigned(OnKeyPress) then
OnKeyPress(Self, Key[1]);
{$IFDEF VerboseKeyboard}
DebugLn('TCustomSynEdit.UTF8KeyPress ',DbgSName(Self),' Key="',DbgStr(Key),'" UseUTF8=',dbgs(UseUTF8));