paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 17:20:55 +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 00f1f50769
commit c15816f136
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 TCursorHelper = class
private private
_lastCursor: NSCursor; _lastCursor: NSCursor;
private
procedure DoSetCursorOnActive( data:IntPtr );
public public
procedure SetNewCursor( newCursor:TCocoaCursor ); procedure SetNewCursor( newCursor:TCocoaCursor );
public public
@ -370,14 +368,6 @@ end;
{ TCursorHelper } { TCursorHelper }
procedure TCursorHelper.DoSetCursorOnActive( data:IntPtr );
begin
if Screen.Cursor<>crDefault then
SetScreenCursor
else
SetCursorAtMousePos;
end;
procedure TCursorHelper.SetNewCursor( newCursor:TCocoaCursor ); procedure TCursorHelper.SetNewCursor( newCursor:TCocoaCursor );
var var
currentCursor: NSCursor; currentCursor: NSCursor;
@ -393,7 +383,10 @@ end;
class procedure TCursorHelper.SetCursorOnActive; class procedure TCursorHelper.SetCursorOnActive;
begin begin
CursorHelper._lastCursor:= nil; CursorHelper._lastCursor:= nil;
Application.QueueAsyncCall( @CursorHelper.DoSetCursorOnActive, 0 ); if Screen.Cursor<>crDefault then
SetScreenCursor
else
SetCursorAtMousePos;
end; end;
class procedure TCursorHelper.SetCursorAtMousePos; class procedure TCursorHelper.SetCursorAtMousePos;