🚀 go-pugleaf

Hi,

I tried to setup the code in a simple test application.
Assuming you have a new project and a cursor file
MyAniCursor.ani in the project directory:

Add a resource file to the project (f.e. resource.rc) and add this
line to the file:

MyAniCursor RCDATA "MyAniCursor.ani"


then add this function to your project:

#define crMyAniCursor 1

void LoadMyAniCursor()
{
   //build the filename for the cursor file
   AnsiString fileName = ExtractFilePath(Application->ExeName) +
"MyAniCursor.ani";

   //locate the cursor resource,
   //you should add some error checking on the return values...
   HRSRC ResourceHandle = FindResource(HInstance, "MyAniCursor",
RT_RCDATA);
   HGLOBAL GlobalHandle = LoadResource(HInstance, ResourceHandle);
   PVOID Data = LockResource(GlobalHandle);

   //create the empty cursor file
   int FileHandle = FileCreate(fileName);

   //write the data from the resource to the file
   FileWrite
   (
      FileHandle,
      Data,
      SizeofResource(HInstance, ResourceHandle)
   );

   FileClose(FileHandle);

   //finally load the cursor from the file
   //and add it to the default cursors.
   //The default cursor constants are all negative, custom
   //cursors should have positive constants
   HCURSOR h = LoadCursorFromFile(fileName.c_str());
   if(h)
      Screen->Cursors[crMyAniCursor] = h;
}


//this example constructor initializes the cursor
//and sets the current cursor to your animated cursor

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   LoadMyAniCursor();
   Screen->Cursor = crMyAniCursor;
}


regards,
Nick