Ultimate Pack

Get frames of animated cursor - Others - Tips & Tricks - Greatis Delphi Pages

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;
Related chapters
Graphics

Related topics
Zoom an icon

For more
Win32 Programmer's Reference

Download source


Delphi books recommended by Amazon.com

More Delphi programming books on Amazon.com


Copyright © 1998-2014 Greatis Software