>       How can I put the .ani file in a resource file,

>>       How can I put the .ani file in a resource file,

>Create a "cursors.rc" file and add references to your cursors like this:

>1       CURSOR  DISCARDABLE     "mycursor.cur"

>Give each cursor a unique number. Compile the file with brcc32.exe and
>link the resulting .res file into your application with the {$R }
>compiler directive.

>>       How do I read the animated cursor from the resource?

>const
>  crMyCursor = 1;
>procedure TForm1.FormCreate(Sender: TObject);
>begin
>  Screen.Cursors[crMyCursor] := LoadCursor(HInstance,
>                                           MakeIntResource(crMyCursor));
>  Cursor := crMyCursor;
>end;

>Note that the index of your cursor in the Screen.Cursors array does
>not have to be the same as the index you gave the cursor in the .rc
>file - I just do this for convenience.

>>If you have ANY suggestions they would be GREATLY appreciated. I have
>>found NO help on this topic at all so far.

>Actually, there is a small amount of help under TScreen.Cursors

>>       How can I put the .ani file in a resource file,

>Create a "cursors.rc" file and add references to your cursors like this:

>1       CURSOR  DISCARDABLE     "mycursor.cur"

>Give each cursor a unique number. Compile the file with brcc32.exe and
>link the resulting .res file into your application with the {$R }
>compiler directive.

>>       How do I read the animated cursor from the resource?

>const
>  crMyCursor = 1;
>procedure TForm1.FormCreate(Sender: TObject);
>begin
>  Screen.Cursors[crMyCursor] := LoadCursor(HInstance,
>                                           MakeIntResource(crMyCursor));
>  Cursor := crMyCursor;
>end;

>Note that the index of your cursor in the Screen.Cursors array does
>not have to be the same as the index you gave the cursor in the .rc
>file - I just do this for convenience.

>>If you have ANY suggestions they would be GREATLY appreciated. I have
>>found NO help on this topic at all so far.

>Actually, there is a small amount of help under TScreen.Cursors

> Jeremy:

> This didn't work with Animated Cursors. Works fine with regular
> cursors, though. What else could I do...?

> Bill

> On Fri, 17 Jul 1998 09:38:13 +0100, Jeremy Collins
> <j...@jcollins.demon.co.uk> wrote:

> >>What I need to know is:

> >>       How can I put the .ani file in a resource file,

> >Create a "cursors.rc" file and add references to your cursors like this:

> >1       CURSOR  DISCARDABLE     "mycursor.cur"

> >Give each cursor a unique number. Compile the file with brcc32.exe and
> >link the resulting .res file into your application with the {$R }
> >compiler directive.

> >>       How do I read the animated cursor from the resource?

> >const
> >  crMyCursor = 1;
> >procedure TForm1.FormCreate(Sender: TObject);
> >begin
> >  Screen.Cursors[crMyCursor] := LoadCursor(HInstance,
> >                                           MakeIntResource(crMyCursor));
> >  Cursor := crMyCursor;
> >end;

> >Note that the index of your cursor in the Screen.Cursors array does
> >not have to be the same as the index you gave the cursor in the .rc
> >file - I just do this for convenience.

> >>If you have ANY suggestions they would be GREATLY appreciated. I have
> >>found NO help on this topic at all so far.

> >Actually, there is a small amount of help under TScreen.Cursors

> Bill
> -------------------------------
> Programmer/Analyst
> Wakefield Engineering, Inc.
> barte...@wakefield.com

> "There are THREE kinds of people in the world...
>      Those that can count and those that can't."