вопрос по timagelist - Общие вопросы Delphi

Evgenii · 08.02.2009, 00:15

как сделать так чтобы картинки из timagelist поочередно показывались в timage?

DomiNick · 08.02.2009, 00:21

Поочрёдно - это как?) Чтоб сами менялись чтоль? Тогда можно таймером...

Цитата:

ImageList1.Draw(Image1.Canvas, 0, 0, <№ картинки>);

Evgenii · 08.02.2009, 01:02

Спасибо!!!

вот только чтото сами они не меняются... появляется одна картинка и на этом все...

как это можно исправить?

KORN · 08.02.2009, 06:34

видимо ты пользуешься циклом, а не таймером, либо в цикле напиши sleep(1000);

DeKot · 08.02.2009, 10:20

Используя код

Код:

ImageList1.Draw(Image1.Canvas, 0, 0, index);

хоть в таймере, хоть в цикле добавь обязательно:

Код:

Inc(index);
If index = maxim + 1 then index:= 0;

mihali4 · 08.02.2009, 12:49

Цитата:

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

Спасибо!!!

вот только чтото сами они не меняются... появляется одна картинка и на этом все...

как это можно исправить?

"Просто добавь воды..."

То есть рабочий код таков:

Код:

ImageList1.Draw(Image1.Canvas, 0, 0, <index>);
Image1.Repaint;

Evgenii · 08.02.2009, 13:05

теперь понятно, всем спасибо!

08.02.2009, 00:15	#1
Evgenii Форумчанин Регистрация: 04.01.2008 Сообщений: 201	вопрос по timagelist как сделать так чтобы картинки из timagelist поочередно показывались в timage?

08.02.2009, 01:02	#3
Evgenii Форумчанин Регистрация: 04.01.2008 Сообщений: 201	Спасибо!!! вот только чтото сами они не меняются... появляется одна картинка и на этом все... как это можно исправить? Последний раз редактировалось KORN; 08.02.2009 в 06:33. Причина: учимся пользоваться правкой

08.02.2009, 06:34	#4
KORN Банхаммер Участник клуба Регистрация: 17.02.2007 Сообщений: 1,754	видимо ты пользуешься циклом, а не таймером, либо в цикле напиши sleep(1000); Перед тем как спросить ищи на форуме и в GOOGLE Последний раз редактировалось KORN; 08.02.2009 в 06:42.

08.02.2009, 10:20	#5
DeKot Участник клуба Регистрация: 12.08.2008 Сообщений: 1,977	Используя код Код: `ImageList1.Draw(Image1.Canvas, 0, 0, index);` хоть в таймере, хоть в цикле добавь обязательно: Код: `Inc(index); If index = maxim + 1 then index:= 0;` И не сомневайся даже ... отдых - кайф, работа - лажа!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
timage and timagelist	RealSHELS	Общие вопросы Delphi	3	07.01.2012 08:00
TImageList	SERG1980	Компоненты Delphi	2	03.12.2008 12:15
вопрос по сокетам и общение как в ICQ.Сложный вопрос...	Руслантус	Общие вопросы C/C++	2	12.08.2008 21:10
TImageList	Никки	Компоненты Delphi	5	03.08.2008 08:38
Иконки в TImageList с цветовыми переходами	And1	Компоненты Delphi	4	17.11.2007 20:48

08.02.2009, 13:05	#7
Evgenii Форумчанин Регистрация: 04.01.2008 Сообщений: 201	теперь понятно, всем спасибо!