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

LCL: wince: cosmetic + small optimization align code to Win32 implementation. Bug #30117

Browse Source 
git-svn-id: trunk@59338 -
This commit is contained in:
lacak 2018-10-22 08:45:22 +00:00
parent 9e965ff417
commit 0905048337
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/wince/wincecallback.inc
View File

@ -942,15 +942,16 @@ Var
OldUTF8Char, UTF8Char: TUTF8Char; OldUTF8Char, UTF8Char: TUTF8Char;
WS: WideString; WS: WideString;
begin begin
Result := false; Result := False;
UTF8Char := UTF16ToUTF8(widestring(WideChar(AChar))); UTF8Char := UTF16ToUTF8(widestring(WideChar(AChar)));
OldUTF8Char := UTF8Char; OldUTF8Char := UTF8Char;
if Assigned(lWinControl) then if Assigned(lWinControl) then
begin begin
// if somewhere key is changed to '' then don't process this message
Result := lWinControl.IntfUTF8KeyPress(UTF8Char, 1, False); Result := lWinControl.IntfUTF8KeyPress(UTF8Char, 1, False);
// if somewhere key is changed then don't perform a regular keypress // if somewhere key is changed then don't perform a regular keypress
Result := Result or (UTF8Char <> OldUTF8Char); Result := Result or (UTF8Char <> OldUTF8Char);
if OldUTF8Char <> UTF8Char then if Result then
begin begin
WS := UTF8ToUTF16(UTF8Char); WS := UTF8ToUTF16(UTF8Char);
if Length(WS) > 0 then if Length(WS) > 0 then