|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вывод случайной картинки
Использовал 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 (или иной компонент) для вывода случайной картинки на форму? |
#2
|
||||
|
||||
Точно так же если компонент поддерживает загрузку из файла тогда без проблем! У тебя же есть имя файла и путь к нему!
--------------------------------------------- Программирование - не профессия, а стиль жизни |
#3
|
|||
|
|||
Цитата:
Почему-то RxGIFAnimator1.Image.LoadFromFile('image1.gif') ничего не выводит, когда через дизайнер картинка загружается нормально? Может еще какие компоненты в uses нужны? Последний раз редактировалось haunt41, 02.04.2007 в 19:10. |
#4
|
||||
|
||||
Цитата:
RxGifAnimator1.Image.LoadFromFile('d:\1.gif'); Только что проверял на D7 всё ОК --------------------------------------------- Программирование - не профессия, а стиль жизни |