Link to home
Start Free TrialLog in
Avatar of vis
vis

asked on

Image animation in button

Hello!!
i want to put a little animation in my button at the right
side.
ASKER CERTIFIED SOLUTION
Avatar of Mariner080498
Mariner080498

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Motaz
Motaz

Hello Vis try this :

-first drop Image list then add to it for example 3 bitmpas.
-second drop bitbtn
-finally drop a timer then add this code to it's event handler :


procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Count:=(Count mod 3)+1;
 BitBtn1.Glyph.FreeImage;
 BitBtn1.Glyph:=nil;
 ImageList1.GetBitMap(Count-1,BitBtn1.Glyph);
end;

Motaz..
Sorry I forget to check to the answer radio button so that my answer became as comment but it is answer. Vis which answer did you accept mine or Marinor's one ?.

Motaz
motaz1@yahoo.com
I know a unit to use animated gifs..
I am not planning to do it.. but I am sure that you can make
a new component wich can load animated glymps :)
get the source and the tgifimage component here:
http://www.dataweb.nl/~r.p.sterkenburg