<XMP>From: Kerstin Thaler <k.thaler@t-online.de>
Subject: Re: How can I store (load) animated cursors in RES file ???
Date: 02 Aug 1999 00:00:00 GMT
Message-ID: <37A5EFB6.249CF0EC@t-online.de>
Content-Transfer-Encoding: 7bit
References: <37a5c995.22799844@forums.inprise.com>
X-Accept-Language: de,en-US
Content-Type: text/plain; charset=us-ascii
Organization: Another Netscape Collabra Server User
Mime-Version: 1.0
Newsgroups: borland.public.delphi.graphics

Assuming you already have an animated cursor you only need to use a texteditor
like NotePad and type a line like

MyAniCursor1 ANICURSOR "C:\Windows\Cursors\MyAni.ani"

and save this file as AniResource.rc for instance.
Then go from the comandline to your ..\Delphi\Bin directory and type

brcc32.exe "C:\AniResource.rc" // the path to your *.rc file
and you will get the file AniResource.res in the same directory.

Link this file to your project and try the following with a form with a button
on it:

implementation

{$R *.DFM}
{$R AniResource.res} // if it's in your project directory

const
  crMyAni = 5;

procedure TForm1.FormCreate(Sender: TObject);
var
  AniStream: TResourceStream;
begin
  AniStream:= TResourceStream.Create(HINSTANCE, 'MyAniCursor1', 'ANICURSOR');
  try
    AniStream.SaveToFile('Temp.ani');
    Screen.Cursors[crMyAni] := LoadCursorFromFile('Temp.ani');
    Button1.Cursor := crMyAni;
  finally
    DeleteFile('Temp.ani');
    AniStream.Free;
  end;
end;

AFAIK you can load animated cursors only from files.

Kerstin

"Cvetelin I. Tsonev" wrote:
> 
> Hello! :o)
> 
> I want to create RES file which contain a animated cursor, then use it
> in my Delphi project. Please help me!
> 
> Cvetelin I. Tsonev
> tsonev@bigfoot.com
</XMP>