paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 13:39:21 +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 if Screen.Cursor<>crDefault then
SetScreenCursor SetScreenCursor
else else
SetCurrentControlCursor SetCurrentControlCursor;
end; end;
class procedure TCursorHelper.SetCursorOnActive; class procedure TCursorHelper.SetCursorOnActive;
@ -2017,7 +2017,7 @@ var
handle : PtrInt; handle : PtrInt;
begin begin
handle := SendSimpleMessage(control, LM_IM_COMPOSITION); handle := SendSimpleMessage(control, LM_IM_COMPOSITION);
Result := TObject(handle) as ICocoaIMEControl Result := TObject(handle) as ICocoaIMEControl;
end; end;
class function TCocoaWSCustomControl.CreateHandle(const AWinControl: TWinControl; class function TCocoaWSCustomControl.CreateHandle(const AWinControl: TWinControl;