From 6032e1679b7c4a9040edb36d5c34a1d92a0c8db9 Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Sat, 18 Aug 2018 14:46:04 +0000
Subject: [PATCH] cocoa: using default arrowCursor for AppStart cursor. #34137

git-svn-id: trunk@58736 -
---
 lcl/interfaces/cocoa/cocoalclintf.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/cocoa/cocoalclintf.inc b/lcl/interfaces/cocoa/cocoalclintf.inc
index d3be384f9c..bfd5397754 100644
--- a/lcl/interfaces/cocoa/cocoalclintf.inc
+++ b/lcl/interfaces/cocoa/cocoalclintf.inc
@@ -29,7 +29,9 @@
 function TCocoaWidgetSet.CreateStandardCursor(ACursor: SmallInt): HCursor;
 begin
   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));
     crIBeam       : Result := HCursor(TCocoaCursor.CreateStandard(NSCursor.IBeamCursor));
     crSizeNS,