From:
tabarr@ix.netcom.com (Timothy Barr)
Subject:
Re: Customizing Cursors
Date: 25
Apr 1995 04:53:11 GMT
Try this:
Create a
cursor with Image Editor. name it CRBOMBSITE (all caps).
Create a
constant named crBombSite and set it to a value >1.
Use this
code in you program in the Form1.Create procedure
Screen.Cursors[crBombSite] :=
LoadCursor(hInstance,'crBombsite');
Cursor := crBombSite;
You can use
any the custom cursor in other form by setting the Cursor
property to
crBombSite.
--
--------------------------
Wishing I
had a Virtual Shotgun to take care of all these
Internet
CackleDemons. BOOM!!!! shick-shuck <grin>
--------------------------
-------------------------------------------------------------------------------
From:
Timothy Barr <tabarr@ix.netcom.com>
Subject:
Re: DELPHI: Using custom cursors?
Date: 19
May 1995 13:58:31 GMT
WARNING!!! One
problem I have found with Image Edit and Cursors is that
the name of
the cursor in the RES file must be ALL CAPS. For some reason
the
LoadCursor function seems to translate the string name to ALL CAPS
before
using it.
-------------------------------------------------------------------------------
From:
bimmer@ibm.net
Subject:
Re: DELPHI: Using custom cursors?
Date: 16
May 1995 09:26:37 GMT
1) First
create a *.res file with your cursor in. (do not use the saeme same as
your
application, because delphi maintains a resourcefile with this name)
2) Delphi
uses 0 .. -16 (negative number) indexes for its default cursors. Use
a new
number for your index ex. 1. (Use a constant to make readable . e.g.
crMyCursor
= 1)
3) In your
main forms FormCreate event, place the following code:
Screen.Cursors[CrMyCursor]:=
LoadCursor(hInstance, 'CURSORNAME');
(CURSORNAME
is the name of the cursor in you resource file)
4) When you
want to use your cursor in a form, panel or whatever just place
the
following code:
Anotherform.Cursor:=
crMyCursor;
Some folks
believe that the cursor property contains a cursor handle... This is
NOT the
case. It's a index into the component list which the Screen object
maintains.
All cursors
in an application is maintained by this object.
If you want
more help lookup the TScreen object, in the on-line manuals.
Hope this
helps.
Regards
Bimmer (Per
Bakkendorff)