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

Fix WinCE bug #27921 TComboBox,CharCase = ecUppercase, patch from Lacak

Browse Source 
git-svn-id: trunk@50480 -
This commit is contained in:
wassim 2015-11-23 14:22:28 +00:00
parent 8c4e943410
commit d173da5a1b
1 changed files with 37 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -936,19 +936,28 @@ Var
end;
end;
function HandleUnicodeChar(AChar: Word): boolean;
// returns false if the UnicodeChar is not handled
function HandleUnicodeChar(var AChar: Word): boolean;
var
UTF8Char: TUTF8Char;
OldUTF8Char, UTF8Char: TUTF8Char;
WS: WideString;
begin
Result := false;
UTF8Char := UTF8Encode(widestring(WideChar(AChar)));
lWinControl := WindowInfo^.WinControl;
UTF8Char := UTF16ToUTF8(widestring(WideChar(AChar)));
OldUTF8Char := UTF8Char;
if Assigned(lWinControl) then
begin
Result:= lWinControl.IntfUTF8KeyPress(UTF8Char, 1, False);
if UTF8Char='' then
Result:= true;
Result := lWinControl.IntfUTF8KeyPress(UTF8Char, 1, False);
// if somewhere key is changed then don't perform a regular keypress
Result := Result or (UTF8Char <> OldUTF8Char);
if OldUTF8Char <> UTF8Char then
begin
WS := UTF8ToUTF16(UTF8Char);
if Length(WS) > 0 then
AChar := Word(WS[1])
else
AChar := 0;
end;
end;
end;
@ -1059,23 +1068,29 @@ begin
end;
WM_CHAR:
begin
if not HandleUnicodeChar(Word(WParam)) then
// first send a IntfUTF8KeyPress to the LCL
// if the key was not handled send a CN_CHAR for AnsiChar<=#127
OrgCharCode := Word(WParam);
if not HandleUnicodeChar(OrgCharCode) then
begin
PLMsg:=@LMChar;
with LMChar Do
PLMsg:=@LMChar;
with LMChar Do
begin
Msg := CN_CHAR;
KeyData := LParam;
CharCode := Word(Char(WideChar(WParam)));
OrgCharCode := CharCode;
Result := 0;
//DebugLn(Format('WM_CHAR KeyData= %d CharCode= %d ',[KeyData,CharCode]));
end;
WinProcess := false;
end
else
begin
Msg := CN_CHAR;
KeyData := LParam;
CharCode := Word(Char(WideChar(WParam)));
OrgCharCode := CharCode;
Result := 0;
//DebugLn(Format('WM_CHAR KeyData= %d CharCode= %d ',[KeyData,CharCode]));
WParam := OrgCharCode;
WinProcess := OrgCharCode<>0;
end;
WinProcess := false;
end
else
WinProcess := true;
end;
end;
WM_MENUCHAR:
begin
PLMsg^.Result := FindMenuItemAccelerator(chr(LOWORD(WParam)), LParam);