2004-06-07 12:47:14 +02:00
|
|
|
{
|
|
|
|
|
:: 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.
|
|
|
|
|
::
|
|
|
|
|
:: Last changed: $Date$
|
|
|
|
|
:: Revision: $Rev$
|
2004-06-07 21:17:31 +02:00
|
|
|
:: Author: $Author$
|
2004-06-07 12:47:14 +02:00
|
|
|
}
|
|
|
|
|
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.
|
