Mega Code Archive
Get frames of animated cursor
<![CDATA[
Title: Get frames of animated cursor
Use LoadImage function at first. This function returns a handle of new cursor. And use this handle in DrawIconEx function, which may break animated cursor by frames.
procedure TForm1.Button1Click(Sender: TObject);
var
H: THandle;
i, j: Integer;
begin
H:=LoadImage(
Screen.Cursor,
'shuttle.ani',
IMAGE_CURSOR,
50,
50,
LR_LOADFROMFILE);
if H<>0 then
begin
for j:=0 to 30 do
for i:=0 to 9 do
DrawIconEx(
Canvas.Handle,
5+i*35,
5+j*50,
H,
30,
30,
j*10+i,
0,
DI_NORMAL);
end;
end;
]]>