Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2008.03.09;
Скачать: [xml.tar.bz2];

Вниз

Вывод случайной картинки, 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 вся ветка

Форум: "Media";
Текущий архив: 2008.03.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.044 c
11-1184849522
max727
2007-07-19 16:52
2008.03.09
TCP в вопросах и ответах


15-1202064673
korneley
2008-02-03 21:51
2008.03.09
Обратная совместимость BDS2006 и D7


15-1201997117
bagos
2008-02-03 03:05
2008.03.09
защита программы от декомпиляции


15-1201683696
Галинка
2008-01-30 12:01
2008.03.09
SQL Server


2-1202659042
Strate
2008-02-10 18:57
2008.03.09
Скрыть вкладки в TPageControl





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский