Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

Таймер   Найти похожие ветки 

 
Первакласник Вася   (2007-05-07 20:07) [0]

Привет!

На форме компонент image1. В папке "C:\test" есть 3 файла 01.ico, 02.ico и 03.ico. Как можно сделать так, чтобы эти файлы отображались последовательно? Я хочу что-то похожее на анимацию. Помогите пожалуйста советом!

С Уважением!


 
{RASkov} ©   (2007-05-07 20:27) [1]

> [0] Первакласник Вася   (07.05.07 20:07)

Посмотри:
const ArrIco: array [0..3] of String = ("0.ico", "1.ico", "2.ico", "3.ico");
procedure TForm.TimerOnTimer();
begin
 Tag:=Tag+1;
 Caption:= ArrIco[Tag and High(ArrIco)]; // Вместо этого грузи иконку куда надо.
 if Tag=High(Integer) then Tag:=0;
end;


 
grisme ©   (2007-05-07 20:55) [2]

жесть, подгружать во время анимации O_O не, лучше сперва загрузить, а потом уже из памяти...


 
Kolan ©   (2007-05-07 21:18) [3]

Не прошили сделать gif + TAnimate?



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

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
2-1178585925
Booka Shade
2007-05-08 04:58
2007.05.27
Поиск в файле, по маске.


2-1178611758
Gentos
2007-05-08 12:09
2007.05.27
как в TEdit переместить курсор (вертикальную палку) в конец стр


2-1178584148
dreamse
2007-05-08 04:29
2007.05.27
Подскажите функцию стандартную для проверки и добавления


15-1177489164
db2admin
2007-04-25 12:19
2007.05.27
Это не обьявление войны это пропоганда, зачем?


15-1177666772
Ega23
2007-04-27 13:39
2007.05.27
Умер Мстислав Растропович.