Скачать: CL | DM;

Вывод случайной картинки, rxLib   Найти похожие ветки 

← →
haunt41 ©   (2007-04-02 16:49) [0]

Использовал RxLib (в папке banners 20 .gif картинок с именами image1.gif ... image20.gif):

uses
   Animate, GIFCtrl, RxGIF;

type
   RxGIFAnimator1: TRxGIFAnimator;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:=30000;
end;

procedure Timer1Timer(Sender: TObject);
var
 x:integer;
 fp:string;
 Image:TGIFImage;
begin
 x:=RANDOM(20);
 fp:=ExtractFilePath(Application.ExeName)+"banners\image"+IntToStr(x)+".gif";
 Image:=TGIFImage.Create;
 try
 Image.LoadFromFile(fp);
 finally
 Image.Free;
 end;
end;

Вопрос: Подскажите плиз, как подправить этот код и использовать в нем RxGIFAnimator1 (или иной компонент) для вывода случайной картинки на форму?

---

← →
ЮЮ ©   (2007-04-03 07:48) [1]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 RxGIFAnimator1.Image.LoadFromFile(
   ExtractFilePath(Application.ExeName)+"banners\image"+IntToStr(RANDOM(20))+".gif";
 );
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c