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

Cocoa: grammar literal fix

Browse Source
This commit is contained in:
rich2014 2023-06-11 13:53:16 +08:00
parent d27f5e3e4b
commit 719253ef26
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

@ -365,7 +365,7 @@ begin
if Screen.Cursor<>crDefault then
SetScreenCursor
else
SetCurrentControlCursor
SetCurrentControlCursor;
end;
class procedure TCursorHelper.SetCursorOnActive;
@ -2017,7 +2017,7 @@ var
handle : PtrInt;
begin
handle := SendSimpleMessage(control, LM_IM_COMPOSITION);
Result := TObject(handle) as ICocoaIMEControl
Result := TObject(handle) as ICocoaIMEControl;
end;
class function TCocoaWSCustomControl.CreateHandle(const AWinControl: TWinControl;