From d7677d793973fc9bc0213595f0b80e67aecf0e3a Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Mon, 7 Jun 2004 10:47:14 +0000
Subject: [PATCH] Added: default Delphi hand cursor replacement

---
 X2UtHandCursor.cur | Bin 0 -> 326 bytes
 X2UtHandCursor.pas |  66 +++++++++++++++++++++++++++++++++++++++++++++
 X2UtHandCursor.rc  |   1 +
 3 files changed, 67 insertions(+)
 create mode 100644 X2UtHandCursor.cur
 create mode 100644 X2UtHandCursor.pas
 create mode 100644 X2UtHandCursor.rc

diff --git a/X2UtHandCursor.cur b/X2UtHandCursor.cur
new file mode 100644
index 0000000000000000000000000000000000000000..cea3d766b2c7fad18c815551fd0187f99c4fcc9d
GIT binary patch
literal 326
zcma*hF%H5o429u8WI$qJW2GZwC)RMYnu%l48^FlO5g0ol%yWZO2^i|=vlT0G0t*sN
z11qgI!3NlgS{x*4Mc9~sle<sN?HxjSRGn%!fXjIxNe<-(`*4+BG@|`OtvR7TxcBRc
eE!_hl`|IPWs@E&a^^EDB75AfNoW5MNpAl~hk$W}(

literal 0
HcmV?d00001

diff --git a/X2UtHandCursor.pas b/X2UtHandCursor.pas
new file mode 100644
index 0000000..7973254
--- /dev/null
+++ b/X2UtHandCursor.pas
@@ -0,0 +1,66 @@
+{
+  :: X2UtHandCursor replaces the default Delphi hand cursor with the system
+  :: hand cursor if available, or a copy when running on Windows 95.
+  ::
+  :: Including this unit in your project will automatically replace the
+  :: hand cursor, no further actions are necessary.
+  ::
+  :: Subversion repository available at:
+  ::   $URL$
+  ::
+  :: Last changed:    $Date$
+  :: Revision:        $Rev$
+  :: Author:          $LastChangedBy$
+
+  :$
+  :$
+  :$ X2Utils is released under the zlib/libpng OSI-approved license.
+  :$ For more information: http://www.opensource.org/
+  :$ /n/n
+  :$ /n/n
+  :$ Copyright (c) 2003 X2Software
+  :$ /n/n
+  :$ This software is provided 'as-is', without any express or implied warranty.
+  :$ In no event will the authors be held liable for any damages arising from
+  :$ the use of this software.
+  :$ /n/n
+  :$ Permission is granted to anyone to use this software for any purpose,
+  :$ including commercial applications, and to alter it and redistribute it
+  :$ freely, subject to the following restrictions:
+  :$ /n/n
+  :$ 1. The origin of this software must not be misrepresented; you must not
+  :$ claim that you wrote the original software. If you use this software in a
+  :$ product, an acknowledgment in the product documentation would be
+  :$ appreciated but is not required.
+  :$ /n/n
+  :$ 2. Altered source versions must be plainly marked as such, and must not be
+  :$ misrepresented as being the original software.
+  :$ /n/n
+  :$ 3. This notice may not be removed or altered from any source distribution.
+}
+unit X2UtHandCursor;
+
+interface
+
+implementation
+uses
+  Controls,
+  Forms,
+  Windows;
+
+{$R X2UtHandCursor.RES}
+
+var
+  hCursor:          THandle;
+
+initialization
+  hCursor := LoadCursor(0, IDC_HAND);
+  if hCursor = 0 then
+    hCursor := LoadCursor(hInstance, 'X2UTHANDCURSOR');
+
+  if hCursor <> 0 then
+    Screen.Cursors[crHandpoint] := hCursor;
+
+finalization
+
+end.
diff --git a/X2UtHandCursor.rc b/X2UtHandCursor.rc
new file mode 100644
index 0000000..6bb98e4
--- /dev/null
+++ b/X2UtHandCursor.rc
@@ -0,0 +1 @@
+X2UTHANDCURSOR  CURSOR  X2UtHandCursor.cur
\ No newline at end of file