Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[Delphi] Слайдшоу 07.12.04 01:33
Автор: n0xi0uzz <Черкасов Виктор> Статус: Member
|
Хочу попробовать сделать слайдшоу на дельфи. Принцип такой - в листбокс загружается список файлов для показа, вводится интервал, и начинается показ. Вот код показа картинок:
procedure TForm1.TimerTimer(Sender: TObject);
var
n, a : integer;
begin
n:= ListBox.Items.Count;
for a:=0 to n-1 do
begin
img.Picture.LoadFromFile(ListBox.Items.Strings[a]);
end
end;
---
Но почему-то постоянно показывается только последняя картинка из листбокса. Подскажите, плз, в чем я ошибся.
|
|
[Delphi] Слайдшоу. Легко исправить. :) 08.12.04 12:25
Автор: Kerk Статус: Незарегистрированный пользователь
|
procedure TForm1.TimerTimer(Sender: TObject);
var
n, a : integer;
begin
n:= ListBox.Items.Count;
for a:=0 to n-1 do
begin
img.Picture.LoadFromFile(ListBox.Items.Strings[a]);
Application.ProcessMessages;
Sleep(2000);
end
end;
---
|
| |
а лучше выкинуть цикл и доверить дело таймеру, раз уж и так все в его обработчике происходит :) 08.12.04 13:11
Автор: dl <Dmitry Leonov>
|
|
|
| | |
так и сделал ;) благодарю ;) 08.12.04 13:46
Автор: n0xi0uzz <Черкасов Виктор> Статус: Member
|
|
|
|
[Delphi] Прикольно. На срабатывание таймера у тебя в цикле мгновенно последовательно перегружаются все файлы в TPicture, и ты видишь последний! ;-) Оценка два ;-) 07.12.04 08:59
Автор: HandleX <Александр М.> Статус: The Elderman
|
|
|
|
|
подробно о проекте
Анализ криптографических сетевых...
