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

Cocoa: simplify TCursorHelper by b184a37

Browse Source
This commit is contained in:
rich2014 2023-07-30 17:12:58 +08:00
parent 15989485bf
commit 5b6b7955cb
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,8 +22,6 @@ type
TCursorHelper = class
private
_lastCursor: NSCursor;
private
procedure DoSetCursorOnActive( data:IntPtr );
public
procedure SetNewCursor( newCursor:TCocoaCursor );
public
@ -370,14 +368,6 @@ end;
{ TCursorHelper }
procedure TCursorHelper.DoSetCursorOnActive( data:IntPtr );
begin
if Screen.Cursor<>crDefault then
SetScreenCursor
else
SetCursorAtMousePos;
end;
procedure TCursorHelper.SetNewCursor( newCursor:TCocoaCursor );
var
currentCursor: NSCursor;
@ -393,7 +383,10 @@ end;
class procedure TCursorHelper.SetCursorOnActive;
begin
CursorHelper._lastCursor:= nil;
Application.QueueAsyncCall( @CursorHelper.DoSetCursorOnActive, 0 );
if Screen.Cursor<>crDefault then
SetScreenCursor
else
SetCursorAtMousePos;
end;
class procedure TCursorHelper.SetCursorAtMousePos;