forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

editor, only handle first byte of UTF char, maybe related to #175 

since we test for ascii value only
This commit is contained in:
Basile Burg 2017-08-16 10:41:48 +02:00
parent dae1d4c430
commit 462214cec3
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_synmemo.pas
View File

@ -2369,15 +2369,15 @@ procedure TCESynMemo.completionCodeCompletion(var value: string;
begin
if (KeyChar[1] = ' ') then
begin
value := sourceValue + KeyChar;
value := sourceValue + KeyChar[1];
end
else
begin
fLastCompletion := value;
if KeyChar[1] in fCloseCompletionCharsWithSpace then
value += ' ' + KeyChar
value += ' ' + KeyChar[1]
else if KeyChar[1] in fCloseCompletionChars then
value += KeyChar;
value += KeyChar[1];
end;
end;
@ -3099,9 +3099,9 @@ end;
procedure TCESynMemo.UTF8KeyPress(var Key: TUTF8Char);
var
c: TUTF8Char;
c: AnsiChar;
begin
c := Key;
c := Key[1];
inherited;
fCanDscan := true;
case c of