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

Cocoa: Cursor: compatible with system controls that change the cursor by themselves, such as NSTextField

Browse Source
This commit is contained in:
rich2014 2023-06-15 21:41:29 +08:00
parent c3e5af4513
commit 40e7dd7854
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,8 +20,12 @@ type
{ TCursorHelper }
TCursorHelper = class
private
_lastCursor: NSCursor;
private
procedure DoSetCursorOnActive( data:IntPtr );
public
procedure SetNewCursor( newCursor:TCocoaCursor );
public
class procedure SetCursorOnActive;
class procedure SetCurrentControlCursor;
@ -368,8 +372,21 @@ begin
SetCurrentControlCursor;
end;
procedure TCursorHelper.SetNewCursor( newCursor:TCocoaCursor );
var
currentCursor: NSCursor;
begin
currentCursor:= NSCursor.currentCursor;
if (_lastCursor=nil) or (currentCursor=NSCursor.arrowCursor) or (currentCursor=_lastCursor) then
begin
newCursor.SetCursor;
_lastCursor:= newCursor.Cursor;
end;
end;
class procedure TCursorHelper.SetCursorOnActive;
begin
CursorHelper._lastCursor:= nil;
Application.QueueAsyncCall( @CursorHelper.DoSetCursorOnActive, 0 );
end;
@ -1843,7 +1860,7 @@ begin
if control<>AWinControl then
exit;
TCocoaCursor(ACursor).SetCursor;
CursorHelper.SetNewCursor( TCocoaCursor(ACursor) );
end;
type