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

SynEdit, Completion: Fixes for the component (nothing changes for IDE). Only the first char was looked-up, because keystrokes where recorded twice (utf8, and plain)

Browse Source 
git-svn-id: trunk@21101 -
This commit is contained in:
martin 2009-08-05 00:12:11 +00:00
parent fa96c149b9
commit c6ca3e5e7b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syncompletion.pas
View File

@ -574,6 +574,7 @@ begin
if Key<>#0 then
{$ENDIF}
CurrentString := CurrentString + key;
Key:=#0;
end;
#8: ;
else
@ -787,6 +788,7 @@ begin
CurrentString := CurrentString + UTF8Key;
if Assigned(OnUTF8KeyPress) then
OnUTF8KeyPress(Self, UTF8Key);
UTF8Key := '';
end;
end;
//debugln('TSynBaseCompletionForm.UTF8KeyPress END UTF8Key="',DbgStr(UTF8Key),'"');