From e501d2e41850f7cea8696fb92326693a25908128 Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Wed, 8 Apr 2015 06:28:12 +0000 Subject: [PATCH] cocoa: Fixes crash in Screen.Cursor := crDefault git-svn-id: trunk@48676 - --- lcl/interfaces/cocoa/cocoalclintf.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/interfaces/cocoa/cocoalclintf.inc b/lcl/interfaces/cocoa/cocoalclintf.inc index 62ad035a4e..16187b8604 100644 --- a/lcl/interfaces/cocoa/cocoalclintf.inc +++ b/lcl/interfaces/cocoa/cocoalclintf.inc @@ -29,7 +29,7 @@ function TCocoaWidgetSet.CreateStandardCursor(ACursor: SmallInt): HCursor; begin case ACursor of - crArrow : Result := HCursor(TCocoaCursor.CreateStandard(NSCursor.arrowCursor)); + crArrow, crDefault: Result := HCursor(TCocoaCursor.CreateStandard(NSCursor.arrowCursor)); crCross : Result := HCursor(TCocoaCursor.CreateStandard(NSCursor.crosshairCursor)); crIBeam : Result := HCursor(TCocoaCursor.CreateStandard(NSCursor.IBeamCursor)); crSizeNS,