- crNone cursor for gtk and carbon (issue #8962)

git-svn-id: trunk@11400 -

.gitattributes

@@ -2318,6 +2318,7 @@ lcl/images/buttons/btn_retry.png -text svneol=unset#image/png
 lcl/images/buttons/btn_yes.png -text svneol=unset#image/png
 lcl/images/buttons/build.bat -text
 lcl/images/cursors/build.bat -text svneol=CRLF#application/x-bat
+lcl/images/cursors/cur_1.cur -text svneol=unset#image/x-cursor
 lcl/images/cursors/cur_10.cur -text svneol=unset#image/x-cursor
 lcl/images/cursors/cur_12.cur -text svneol=unset#image/x-cursor
 lcl/images/cursors/cur_13.cur -text svneol=unset#image/x-cursor

lcl/cursors.lrs

@@ -1,3 +1,18 @@
+LazarusResources.Add('cur_1','CUR',[
+  #0#0#2#0#1#0'  '#0#0#0#0#0#0'0'#1#0#0#22#0#0#0'('#0#0#0' '#0#0#0'@'#0#0#0#1#0
+  +#1#0#0#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255
+]);
 LazarusResources.Add('cur_10','CUR',[
   #0#0#2#0#1#0'  '#0#0#5#0#0#0'0'#1#0#0#22#0#0#0'('#0#0#0' '#0#0#0'@'#0#0#0#1#0
   +#1#0#0#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#0

lcl/images/cursors/build.bat

@@ -1 +1 @@
-lazres cursors.lrs cur_10.cur cur_12.cur cur_13.cur cur_14.cur cur_15.cur cur_16.cur cur_17.cur cur_18.cur cur_20.cur cur_21.cur cur_22.cur
+lazres cursors.lrs cur_1.cur cur_10.cur cur_12.cur cur_13.cur cur_14.cur cur_15.cur cur_16.cur cur_17.cur cur_18.cur cur_20.cur cur_21.cur cur_22.cur

lcl/include/screen.inc

@@ -312,7 +312,7 @@ end;
 function TScreen.GetCursors(AIndex: Integer): HCURSOR;
 begin
   Result := 0;
-  if AIndex = crNone then Exit;
+  //if AIndex = crNone then Exit;
   if FCursorMap.GetData(AIndex, Result) then Exit;
   
   Result := FDefaultCursor;
@@ -320,10 +320,13 @@ begin
   if AIndex < crLow then Exit;
   
   // not yet loaded
+  if AIndex = crNone then
+    Result := Result;
   Result := WidgetSet.CreateStandardCursor(AIndex);
-  if Result = 0
-  then Result := LoadCursorFromLazarusResource('cur_' + IntToStr(-AIndex));
-  if Result = 0 then Exit;
+  if Result = 0 then
+    Result := LoadCursorFromLazarusResource('cur_' + IntToStr(-AIndex));
+  if Result = 0 then
+    Exit;
   
   FCursorMap.Add(AIndex, Result);
 end;
@@ -488,8 +491,8 @@ begin
       else
         FDefaultCursor := AValue
     end;
-    crNone: begin
-    end;
+{    crNone: begin
+    end;}
   else
     DeleteCursor(AIndex);
     if AValue <> 0 then

lcl/interfaces/carbon/carbongdiobjects.pp

@@ -194,7 +194,7 @@ const
      {crIBeam       } kThemeIBeamCursor,
      {crCross       } kThemeCrossCursor,
      {crArrow       } kThemeArrowCursor,
-     {crNone        } kThemeArrowCursor,
+     {crNone        } kThemeUndefCursor,
      {crDefault     } kThemeArrowCursor);
 
 type

lcl/interfaces/gtk/gtkobject.inc

@@ -4851,11 +4851,9 @@ begin
 
   case TCursor(ACursor) of
     crDefault:  CursorValue := GDK_LEFT_PTR;
-    crNone:     CursorValue := GDK_LEFT_PTR;
     crArrow:    CursorValue := GDK_Arrow;
     crCross:    CursorValue := GDK_Cross;
     crIBeam:    CursorValue := GDK_XTerm;
-//    crSize:     CursorValue := GDK_FLEUR;
     crSizeNESW: CursorValue := GDK_BOTTOM_LEFT_CORNER;
     crSizeNS:   CursorValue := GDK_SB_V_DOUBLE_ARROW;
     crSizeNWSE: CursorValue := GDK_TOP_LEFT_CORNER;

lcl/interfaces/win32/win32lclintf.inc

@@ -162,7 +162,7 @@ begin
 
   case ACursor of
     crSqlWait..crDrag,
-    crHandPoint: begin
+    crHandPoint, crNone: begin
       // TODO: load custom cursors here not in the LCL
     end;
   else