🚀 go-pugleaf

nicolasr wrote:

> 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()

 <snip>

That probably works fine, but you might rather do
something like this instead:

HICON LoadMyAniCursor()
{
  HICON icon_error = reinterpret_cast<HICON>(-1);
  HRSRC hrsrcicon = FindResource(HInstance, "MyAniCursor", RT_RCDATA);
      if(!hrsrcicon) return icon_error;
  DWORD rsrcsize = SizeofResource(HInstance, hrsrcicon);
      if(!rsrcsize) return icon_error;
  HGLOBAL hglobal = LoadResource(HInstance, hrsrcicon);
      if(!hglobal) return icon_error;
  PVOID pvoid = LockResource(hglobal);
      if(!pvoid) return icon_error;
  HICON hIcon = CreateIconFromResource(static_cast<PBYTE>(pvoid),
                             rsrcsize, TRUE, 0x00030000);
      if(!hIcon) return icon_error;
  return hIcon;
}


__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 HICON icon = LoadMyAniCursor();
 if(icon != INVALID_HANDLE_VALUE )
    Screen->Cursors[crMyAniCursor] = icon;
}


void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Screen->Cursor = crMyAniCursor;
}