Animated mouse for Delphi 1 under W95/98

Source included

Mouse Layout and Demo and source
(c)1999 Jaro Benes, micrel@micrel.cz

All Delphi users can use my animated cursors (non-commercial please).


File list:

CALL32NT\CALL32NT.PAS .. interface to WIN32
CURS.PAS ............... declaration unit

BUSSY.ANI
BUSSY1.ANI
CURSS.ANI
CURST.ANI
HULKA.ANI
CURSTAR.ANI
BIGMAUS.ANI ............ my animated cursors is free

DEMO.opt
DEMO.dpr
DEMO.RES
DEMO.DSK
DEMO1.DFM
DEMO1.pas .............. demo program

DEMO.EXE ............... demo program for run

DEMOCUR.RC ............. script for brcc.exe (make *.res)
DEMOCUR.RES ............ all seven my cursors in resource for link to exe

README ................. this readme file



How do use it:

1/ Put to Uses part of your unit name unit CURS where I declared function for load cursor.

2/ Use standard function W32LoadCursorFromFile(AniFileName:pchar;id:longint):longint;
    where AniFileName is name of *.ANI with path,
          id is handel variable id_W32LoadCursorFromFile.
   for load cursor from file

3/ Use non-standard function LoadAniCursor(Instance: THandle; TypC:TTypeCurs; ResID: PChar): HCursor;
    where Instance is HInsatance of program
          TypC is type of cursor ctANI for *.ANI file or crCUR for *.CUR file
          ResID is name of resource part (capital letters)
   for load cursor from resource.
   This function is modified function from RX-library.

4/ All functions for using under Windows 32 required Call32NT unit (is included)

5/ See demo source, please.

Good Luck

Jaro
micrel@micrel.cz