Fixes #324 - Character Map lookup should be a plain string when using OSK editor

This commit is contained in:
Marc Durdin 2017-09-22 12:52:31 +07:00
parent 01430bba88
commit afcdbc6767

View file

@ -298,16 +298,9 @@ begin
end;
procedure TframeOnScreenKeyboardEditor.tmrUpdateCharacterMapTimer(Sender: TObject);
var
token: WideString;
x, token_start: Integer;
//prev_token: WideString;
begin
tmrUpdateCharacterMap.Enabled := False;
x := editVKKeyText.SelStart+editVKKeyText.SelLength;
token_start := 0;
token := FormatUnicode(Copy(editVKKeyText.Text, x, 1));
UpdateCharacterMap(False, token, x, token_start, False); // I4807
UpdateCharacterMap(False, editVKKeyText.Text, 0, 0, True);
end;
{ ---------------------------------------------------------------------------- }