Topic: GIF
Добрый день, можно ли ка кто на форме разместить анимированный GIF
My Visual Database → Russian → GIF
Добрый день, можно ли ка кто на форме разместить анимированный GIF
Можно.
procedure Form1_OnShow (Sender: TObject; Action: string);
begin
Form1.DoubleBuffered := True; // stops flickering
Form1.Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'gif.gif');
Form1.Image1.AutoSize := True;
TGIFImage(Form1.Image1.Picture.Graphic).Animate := True;// gets it goin'
TGIFImage(Form1.Image1.Picture.Graphic).AnimationSpeed:= 500;// adjust your speed
end;
Проект с примером:
My Visual Database → Russian → GIF
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi