| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вывод случайной картинки, rxLib [D7, WinXP]

haunt41 ©   (2007-04-02 16:49:00) 

Использовал 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:00) [1]

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

---

Наверх