From 617a25c02d9f523d9561057cdb9b7c6b5e78dcdb Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 13 Jan 2005 22:07:10 +0000
Subject: [PATCH] added mouse cursors for 8 uni directions, imlemented for gtk

git-svn-id: trunk@6577 -
---
 designer/controlselection.pp |  6 +++---
 lcl/controls.pp              | 15 +++++++++++++--
 lcl/interfaces/gtk/gtkint.pp | 11 +++++++++++
 3 files changed, 27 insertions(+), 5 deletions(-)

diff --git a/designer/controlselection.pp b/designer/controlselection.pp
index 2fd0eb9d5b..3ab914a5c2 100644
--- a/designer/controlselection.pp
+++ b/designer/controlselection.pp
@@ -489,9 +489,9 @@ implementation
 
 const
   GRAB_CURSOR: array[TGrabIndex] of TCursor = (
-    crSizeNWSE, crSizeNS, crSizeNESW,
-    crSizeWE,             crSizeWE,
-    crSizeNESW, crSizeNS, crSizeNWSE
+    crSizeNW,   crSizeN,  crSizeNE,
+    crSizeW,              crSizeE,
+    crSizeSW,   crSizeS,  crSizeSE
   );
 
   GRAB_POSITIONS:  array [TGrabIndex] of TGrabPositions = (
diff --git a/lcl/controls.pp b/lcl/controls.pp
index d69901b84a..b05062b318 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -238,10 +238,18 @@ const
   crCross       = TCursor(-3);
   crIBeam       = TCursor(-4);
   crSize        = TCursor(-22);
-  crSizeNESW    = TCursor(-6);
+  crSizeNESW    = TCursor(-6); // diagonal north east - south west
   crSizeNS      = TCursor(-7);
   crSizeNWSE    = TCursor(-8);
   crSizeWE      = TCursor(-9);
+  crSizeNW      = TCursor(-23);
+  crSizeN       = TCursor(-24);
+  crSizeNE      = TCursor(-25);
+  crSizeW       = TCursor(-26);
+  crSizeE       = TCursor(-27);
+  crSizeSW      = TCursor(-28);
+  crSizeS       = TCursor(-29);
+  crSizeSE      = TCursor(-30);
   crUpArrow     = TCursor(-10);
   crHourGlass   = TCursor(-11);
   crDrag        = TCursor(-12);
@@ -256,7 +264,7 @@ const
   crHandPoint   = TCursor(-21);
   crSizeAll     = TCursor(-22);
 
-  crLow         = TCursor(-22);
+  crLow         = TCursor(-30);
 
 type
   TWndMethod = procedure(var TheMessage: TLMessage) of Object;
@@ -2808,6 +2816,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.266  2005/01/13 22:07:10  mattias
+  added mouse cursors for 8 uni directions, imlemented for gtk
+
   Revision 1.265  2005/01/08 14:23:56  micha
   move taborder and tabstop to twincontrol
 
diff --git a/lcl/interfaces/gtk/gtkint.pp b/lcl/interfaces/gtk/gtkint.pp
index f914088188..8d56b7ab97 100644
--- a/lcl/interfaces/gtk/gtkint.pp
+++ b/lcl/interfaces/gtk/gtkint.pp
@@ -385,6 +385,14 @@ begin
   CursorToGDKCursor[crSizeNS]   := GDK_SB_V_DOUBLE_ARROW;
   CursorToGDKCursor[crSizeNWSE] := GDK_TOP_LEFT_CORNER;
   CursorToGDKCursor[crSizeWE]   := GDK_SB_H_DOUBLE_ARROW;
+  CursorToGDKCursor[crSizeNW]   := GDK_TOP_LEFT_CORNER;
+  CursorToGDKCursor[crSizeN]    := GDK_TOP_SIDE;
+  CursorToGDKCursor[crSizeNE]   := GDK_TOP_RIGHT_CORNER;
+  CursorToGDKCursor[crSizeW]    := GDK_LEFT_SIDE;
+  CursorToGDKCursor[crSizeE]    := GDK_RIGHT_SIDE;
+  CursorToGDKCursor[crSizeSW]   := GDK_BOTTOM_LEFT_CORNER;
+  CursorToGDKCursor[crSizeS]    := GDK_BOTTOM_SIDE;
+  CursorToGDKCursor[crSizeSE]   := GDK_BOTTOM_RIGHT_CORNER;
   CursorToGDKCursor[crUpArrow]  := GDK_LEFT_PTR;
   CursorToGDKCursor[crHourGlass]:= GDK_CLOCK;
   CursorToGDKCursor[crDrag]     := GDK_SAILBOAT;
@@ -432,6 +440,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.219  2005/01/13 22:07:10  mattias
+  added mouse cursors for 8 uni directions, imlemented for gtk
+
   Revision 1.218  2005/01/08 11:03:18  mattias
   implemented TPen.Mode=pmXor  from Jesus