From 3cc4d1695e52622eb49a9f86b6f6a26ffaba2fc3 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:48:12 +0000
Subject: [PATCH] MG: mouse cursors are now allocated on demand

git-svn-id: trunk@1278 -
---
 lcl/controls.pp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lcl/controls.pp b/lcl/controls.pp
index a5d2ab6eb9..a17685adcc 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -205,6 +205,8 @@ type
 
 const
   // Cursor constants
+  crHigh        = TCursor(0);
+  
   crDefault     = TCursor(0);
   crNone        = TCursor(-1);
   crArrow       = TCursor(-2);
@@ -228,7 +230,8 @@ const
   crHelp        = TCursor(-20);
   crHandPoint   = TCursor(-21);
   crSizeAll     = TCursor(-22);
-
+  
+  crLow         = TCursor(-22);
 
 type
   TWndMethod = procedure(var TheMessage : TLMessage) of Object;
@@ -1379,6 +1382,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.83  2002/10/30 12:37:25  lazarus
+  MG: mouse cursors are now allocated on demand
+
   Revision 1.82  2002/10/26 15:15:45  lazarus
   MG: broke LCL<->interface circles