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

Cocoa/Cursor: TCursorHelper.ForceSetDefaultCursor() added

Browse Source
This commit is contained in:
rich2014 2023-09-17 17:03:05 +08:00
parent b6739bcc36
commit ec8affdaa1
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,6 +24,7 @@ type
_lastCursor: NSCursor;
public
procedure SetNewCursor( newCursor:TCocoaCursor );
procedure ForceSetDefaultCursor;
public
class procedure SetCursorOnActive;
class procedure SetCursorAtMousePos;
@ -380,6 +381,15 @@ begin
end;
end;
procedure TCursorHelper.ForceSetDefaultCursor;
var
newCursor: TCocoaCursor;
begin
newCursor:= TCocoaCursor(Screen.Cursors[crDefault]);
newCursor.SetCursor;
_lastCursor:= newCursor.Cursor;
end;
class procedure TCursorHelper.SetCursorOnActive;
begin
CursorHelper._lastCursor:= nil;