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

cocoa: using default arrowCursor for AppStart cursor. #34137

Browse Source 
git-svn-id: trunk@58736 -
This commit is contained in:
dmitry 2018-08-18 14:46:04 +00:00
parent 4a554390db
commit 6032e1679b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/cocoa/cocoalclintf.inc
View File

@ -29,7 +29,9 @@
function TCocoaWidgetSet.CreateStandardCursor(ACursor: SmallInt): HCursor; function TCocoaWidgetSet.CreateStandardCursor(ACursor: SmallInt): HCursor;
begin begin
case ACursor of case ACursor of
crArrow, crDefault: Result := HCursor(TCocoaCursor.CreateStandard(NSCursor.arrowCursor)); crArrow,
crAppStart, // neither LCL nor Cocoa provides "crAppStart" cursor
crDefault : Result := HCursor(TCocoaCursor.CreateStandard(NSCursor.arrowCursor));
crCross : Result := HCursor(TCocoaCursor.CreateStandard(NSCursor.crosshairCursor)); crCross : Result := HCursor(TCocoaCursor.CreateStandard(NSCursor.crosshairCursor));
crIBeam : Result := HCursor(TCocoaCursor.CreateStandard(NSCursor.IBeamCursor)); crIBeam : Result := HCursor(TCocoaCursor.CreateStandard(NSCursor.IBeamCursor));
crSizeNS, crSizeNS,