[haunt41]

Использовал 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 (или иной компонент) для вывода случайной картинки на форму?

[mav_c]

Точно так же если компонент поддерживает загрузку из файла тогда без проблем! У тебя же есть имя файла и путь к нему!

[haunt41]

Сообщение от mav_c

Точно так же если компонент поддерживает загрузку из файла тогда без проблем! У тебя же есть имя файла и путь к нему!

Почему-то RxGIFAnimator1.Image.LoadFromFile('image1.gif') ничего не выводит, когда через дизайнер картинка загружается нормально? Может еще какие компоненты в uses нужны?

[mav_c]

Сообщение от haunt41

Почему-то RxGIFAnimator1.Image.LoadFromFile('image1.gif') ничего не выводит, когда через дизайнер картинка загружается нормально? Может еще какие компоненты в uses нужны?

Просто ты должен прописать полный путь к картинке, если она не находится в каталоге с программой.
RxGifAnimator1.Image.LoadFromFile('d:\1.gif');
Только что проверял на D7 всё ОК