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

cocoa: reporting extended UTF8 character as a question mark for ansi char

Browse Source 
git-svn-id: trunk@59628 -
This commit is contained in:
dmitry 2018-11-22 21:55:54 +00:00
parent 7382f53434
commit 4e9ce8dfeb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -894,14 +894,14 @@ begin
if Length(UTF8Character) > 0 then
begin
SendChar := True;
if Utf8Character[1] <= #127 then
if Length(UTF8Character)=1 then
// ANSI layout character
KeyChar := Utf8Character[1]
else
// it's non ANSI character. KeyChar must be assinged anything but #0
// otherise the message could be surpressed.
// In Windows world this would be an "Ansi" char in current locale
KeyChar := #$FF;
KeyChar := '?';
end;
end;