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

cocoa: warnings cleanup #33504. patch by lks

Browse Source 
git-svn-id: trunk@58414 -
This commit is contained in:
dmitry 2018-06-26 03:35:59 +00:00
parent 8364a171f3
commit d35cf81fdd
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -470,7 +470,9 @@ var
if Length(UTF8VKCharacter) > 0 then
begin
if UTF8VKCharacter[1] <= #127 then
VKKeyChar := UTF8VKCharacter[1];
VKKeyChar := UTF8VKCharacter[1]
else
VKKeyChar := #0;
end;
//printable keys
@ -482,7 +484,9 @@ var
SendChar := True;
if Utf8Character[1] <= #127 then
KeyChar := Utf8Character[1];
KeyChar := Utf8Character[1]
else
KeyChar := #0;
// the VKKeyCode is independent of the modifier
// => use the VKKeyChar instead of the KeyChar
@ -614,7 +618,7 @@ var
end;
end;
if KeyMsg.CharCode = 0 then Exit;
if KeyMsg.CharCode = VK_UNKNOWN then Exit;
//We should send a character
if SendChar then
@ -658,7 +662,7 @@ var
CharMsg.Msg := LM_CHAR;
if DeliverMessage(CharMsg) <> 0 then
// "LN_CHAR" should be delivivered only after Cocoa processed the key
// "LN_CHAR" should be delivered only after Cocoa processed the key
// todo: in the current code, Cocoa has not processed the key yet
// it must be rewritten.
NotifyApplicationUserInput(Target, CharMsg.Msg);