просмотр изображений

[gulfiyush]

Помогите сделать программу на Delphi,позволяющую просматривать картинки нажатием кнопки Дальше, слайд-шой и случайным образом. У меня программа не работает

[Stilet]

У меня программа не работает

Показывай как делал и что не работает.

[gulfiyush]

В программе хочу сделать слайд-шоу показа картинок, он у меня не работает. Помогите разобраться. Я пишу следующий код:
for n:=0 to listbox1.Items.Count -1 do
Image1.Picture.LoadFromFile(ListBox 1.Items.Strings[n]);
n:=n+1.
Он должен брать картинки из списка, в который я до этого загружаю картинки

[Квэнди]

Аттач архив проекта

[Alter]

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

В программе хочу сделать слайд-шоу показа картинок, он у меня не работает. Помогите разобраться. Я пишу следующий код:
for n:=0 to listbox1.Items.Count -1 do
Image1.Picture.LoadFromFile(ListBox 1.Items.Strings[n]);
n:=n+1.
Он должен брать картинки из списка, в который я до этого загружаю картинки

наверно так надо, Строки считают в списках(memo, listbox, combo, ...) с НУЛЯ:

for n:=0 to listbox1.Items.Count -1 do
Begin
  Image1.Picture.LoadFromFile(ListBox1.Items.Strings[n]);
 // n:=n+1. <- Убрать
End;

Думаю, что нужна пауза в цикле, хотя бы в 5 сек.

[KORN]

лучше при нажатии на картинку открывалась твоя программа и она сканировала директорию на налицие поддерживаемых файлов и засовывала их в TSrings переменную...

при нажатии кнопки "далее" переходила на уровень вниз а при нажатии кнопки "назад" переходила на уровень вверх и все это будет загружаться в IMAGE или в то что тебе надо...

слайдшоу лучше делать с использованием таймера и просто задать ему интеравал примерно в 5 секунд и в процедуре OnTimer объявить переменную например A: integer; и начиная с 0 прибавлять к ней 1 так у тя будет проходить переход от файла к файлу...

если A будет равно количеству строк загруженных в переменную Tsrings то обнуляй значение...

Для случайного просмотря используй randomize; random(тут укажи переменную Tsrings.count-1) он будет генерировать значение от 0 до количесва строк в переменной и загружать... вот и все....

[Volkogriz]

Доброе время суток!!!
Нуи я тогда свой код подкину !!!
Кстати некто не подскажет как же всё таки очередь правильно выставить штоб после первой картинки шла обязательно вторая а ни шестая или четвёртая!

var
  Form1: TForm1;
  I: Integer;

procedure TForm1.Image1Click(Sender: TObject);
begin
Image3.Picture.LoadFromFile('Sys/Servis/List_'+IntToStr(I)+'.bmp');
 if I > 0 then Dec(I);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
 Image3.Picture.LoadFromFile('Sys/Servis/List_'+IntToStr(I)+'.bmp');
 if I < 20 then Inc(I);
end;

Тож самое и с Button-ами!!!
Зарание блогодарен !!!
С уважением Volkogriz!!!

[KORN]

а че у тя просматривает только файлы с названием List_*.bmp? че так плохо7

[Volkogriz]

KORN Доброе время суток!!
Это книга листающая страници от List_1.bmp до List_20.bmp
На всех других вариантах которые мне пападались вылитает ошибка!
Например


procedure TForm1.Image1Click(Sender: TObject);
begin
Image3.Picture.LoadFromFile('Sys/Servis/List_1'+IntToStr(I)+'.bmp');
if I > 0 then Dec(I);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
Image3.Picture.LoadFromFile('Sys/Servis/List_20'+IntToStr(I)+'.bmp');
if I < 20 then Inc(I);
end;
Ошибка Неудаётся найти 220 файл!!!
делаю так Например


procedure TForm1.Image1Click(Sender: TObject);
begin
Image3.Picture.LoadFromFile('Sys/Servis/'+IntToStr(I)+'.bmp');
if I > 0 then Dec(I);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
Image3.Picture.LoadFromFile('Sys/Servis/'+IntToStr(I)+'.bmp');
if I < 20 then Inc(I);
end;
поочарёдность всёравно не правельная!
С уважением Volkogriz!!!

[KORN]

var
  Form1: TForm1;
  a: integer;
const
  max=6; // максимальное количество картинок
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if a=1 then
  begin
  a:=max;
  image3.Picture.LoadFromFile(extractfilepath(application.ExeName)+inttostr(a)+'.jpg');
  end;
  
  if (a<=max) or (a>1) then
  begin
  image3.Picture.LoadFromFile(extractfilepath(application.ExeName)+inttostr(a)+'.jpg');
  a:=a-1;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  a:=1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if a=max then
  begin
  a:=1;
  image3.Picture.LoadFromFile(extractfilepath(application.ExeName)+inttostr(a)+'.jpg');
  end;
  if a<max then
  begin
  image3.Picture.LoadFromFile(extractfilepath(application.ExeName)+inttostr(a)+'.jpg');
  a:=a+1;
  end;
end;

Вот это у меня работает, вроде даже без ошибок... (=