Главная страница
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.039 c
15-1177575500
infom
2007-04-26 12:18
2007.05.27
Повернуть отрезок на определенный угол.


2-1178697461
Garacio
2007-05-09 11:57
2007.05.27
TargetSource.CopyFrom(SourceSize, CopySize);


15-1177401564
Knight
2007-04-24 11:59
2007.05.27
Кто какие свитчи в районе 3-4 тр. на 16 портов пользует?


2-1178524785
Konus
2007-05-07 11:59
2007.05.27
работа с TEdit, формат числа 1.11


1-1175146436
fishka
2007-03-29 09:33
2007.05.27
Увеличение размера при выводе на принтер Excel-файла