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

synedit: eat special keys in the completion IntfUTF8KeyPress as it is happen in the ansi KeyPress handler (part of bug #0012222)

Browse Source 
git-svn-id: trunk@18209 -
This commit is contained in:
paul 2009-01-08 12:51:38 +00:00
parent d2cfcc3186
commit 062984cd61
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/synedit/syncompletion.pas
View File

@ -776,16 +776,28 @@ end;
procedure TSynBaseCompletionForm.UTF8KeyPress(var UTF8Key: TUTF8Char);
begin
//debugln('TSynBaseCompletionForm.UTF8KeyPress A UTF8Key="',DbgStr(UTF8Key),'" ',dbgsName(TObject(TMethod(OnUTF8KeyPress).Data)));
if UTF8Key=#8 then begin
if UTF8Key=#8 then
begin
// backspace
end else begin
if (length(UTF8Key)>=1)
and (not (UTF8Key[1] in ['a'..'z','A'..'Z','0'..'9','_'])) then begin
end else
begin
if (Length(UTF8Key)>=1) and (not (UTF8Key[1] in ['a'..'z','A'..'Z','0'..'9','_'])) then
begin
// non identifier character
// if it is special key then eat it
if (Length(UTF8Key) = 1) and (UTF8Key[1] < #32) then
begin
if Assigned(OnCancel) then
OnCancel(Self);
end
else
if Assigned(OnValidate) then
OnValidate(Self,UTF8Key,[]);
UTF8Key:='';
end else if (UTF8Key<>'') then begin
OnValidate(Self, UTF8Key, []);
UTF8Key := '';
end else
if (UTF8Key<>'') then
begin
// identifier character
CurrentString := CurrentString + UTF8Key;
if Assigned(OnUTF8KeyPress) then