Изменить программу показа графики

@RJ · Регистрация: 10.05.2012

Author24 — интернет-сервис помощи студентам

Добрый вечер. Народ помогите кто-нить. Есть исходник (не мой) проги для просмотра графики - взят он по моему с этого же сайта. Нужно что б окно выбора файлов для показа открывалось по умолчанию в корневой директории программы в папке foto, то бишь foto/.

Если кто может - взгляните что можно изменить. Архив прилагаю.

@RJ · 25.05.2012, 23:58 **[ТС]**

Немного перефразирую вопрос.

Нужно что б картинки грузились с директории по умолчанию (директория foto\. Находится в корневой папке программы). Что б не нужно было искать папку с картинками через проводник.
Получается нужно что бы в ListBox при старте проги сходу грузились картинки из папки foto\.

Может кто-то с таким помочь?

@dddmitriyy · 26.05.2012, 00:20

Pascal

procedure TForm1.FormCreate(Sender: TObject);
begin
jpg:=TJPEGImage.Create;
FindImages(ExtractFilePath(Application.ExeName)+'foto');
end;

@RJ · 26.05.2012, 00:36 **[ТС]**

dddmitriyy, Слушай, а в ListBox есть возможность поставить директорию по умолчанию? Знаю что в FileListBox возможно. Пишу такой же код для ListBox - матюкаться начинает.
Вот для FileListBox.

Delphi

1	FileListBox1.Directory:= extractfilepath(paramstr(0))+'\foto';

Добавлено через 11 минут

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

Pascal

procedure TForm1.FormCreate(Sender: TObject);
begin
jpg:=TJPEGImage.Create;
FindImages(ExtractFilePath(Application.ExeName)+'foto');
end;

Спасибо большое Да, правильно - в ListBox`е теперь те что нужно фотки. только вот они не отображаются при выборе. Почему?

@dddmitriyy · 26.05.2012, 01:08

попробуй так

Pascal

procedure TForm1.FormCreate(Sender: TObject);
begin
jpg:=TJPEGImage.Create;
FindImages(ExtractFilePath(Application.ExeName)+'foto\');//  в конце незнаю флеш нужен или нет
edit1.Text:=ExtractFilePath(Application.ExeName)+'foto\');// и тут
end;

@RJ · 27.05.2012, 00:16 **[ТС]**

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

попробуй так

Pascal

procedure TForm1.FormCreate(Sender: TObject);
begin
jpg:=TJPEGImage.Create;
FindImages(ExtractFilePath(Application.ExeName)+'foto\');//  в конце незнаю флеш нужен или нет
edit1.Text:=ExtractFilePath(Application.ExeName)+'foto\');// и тут
end;

Спасибо, заработало как нужно. Только не сразу) Сразу ошибку выдавало - я просмотрел оказывается одной скобки не хватало. Добавил - заработало.

Спасибо еще раз.

@RJ 1 / 1 / 0 Регистрация: 10.05.2012 Сообщений: 55
	25.05.2012, 23:58 [ТС]	2
	Немного перефразирую вопрос. Нужно что б картинки грузились с директории по умолчанию (директория foto\. Находится в корневой папке программы). Что б не нужно было искать папку с картинками через проводник. Получается нужно что бы в ListBox при старте проги сходу грузились картинки из папки foto\. Может кто-то с таким помочь? 0

	27.05.2012, 00:16