paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 17:59:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: Fixes crash in Screen.Cursor := crDefault

Browse Source 
git-svn-id: trunk@48676 -
This commit is contained in:
sekelsenmat 2015-04-08 06:28:12 +00:00
parent c49bfcde31
commit e501d2e418
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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,