[kiman.ru]

В программе нужно при нажатии на кнопку показать все директории и файлы определенного типа, которые находятся на флеш-диске. Значки должны быть большими, меню должно отсутствовать. Нужно лишить пользователя права действия — он может только входить в папки и возвращаться назад и должен видеть файлы только определенного типа (список расширений).

Чтобы вам было понятнее прилагаю картинку — вот такое окно я хочу увидеть у себя на форме. Как это можно сделать?

Спасибо!

[AleD]

TListView (с вкладки Win32), его свойство ViewStyle = vsIcon, LargeImages = компонент TImageList (с той же вкладки), всё. Патом добавляя итемы указывать изображение.

[s0Creator]

Сообщение от kiman.ru

В программе нужно при нажатии на кнопку показать все директории и файлы определенного типа, которые находятся на флеш-диске. Значки должны быть большими, меню должно отсутствовать. Нужно лишить пользователя права действия — он может только входить в папки и возвращаться назад и должен видеть файлы только определенного типа (список расширений).

Чтобы вам было понятнее прилагаю картинку — вот такое окно я хочу увидеть у себя на форме. Как это можно сделать?

Спасибо!

- Это задание для фриланс?

[kiman.ru]

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

- Это задание для фриланс?

За 20 долларов сделаешь — можешь взяться. Пришли мне на ящик d.borovitsky@gmail.com рабочий *.exe файл, который будет смотреть все картинки и текстовые файлы на диске c:\ Если все окей, то я высылаю тебе деньги, а ты мне исходник.

Возьмешься за проектик — напиши, чтобы я имел ввиду.

[s0Creator]

Нет - мне не интересно.
Но если положить тему в соответствующий раздел, думаю найдутся желающие.

[kiman.ru]

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

TListView (с вкладки Win32), его свойство ViewStyle = vsIcon, LargeImages = компонент TImageList (с той же вкладки), всё. Патом добавляя итемы указывать изображение.

А как мне добавить в ListView директории и файлы (файлы определенного типа).

[s0Creator]

Сообщение от kiman.ru

А как мне добавить в ListView директории и файлы (файлы определенного типа).

в Delphi 7 в C:\Program Files\Borland\Delphi7\Demos\Virtual Listview\
есть неплохой примерчик ( навсякий случай прикрепляю ).

[s0Creator]

фильтровать можно в

Код:

procedure TForm1.PopulateIDList(ShellFolder: IShellFolder);

немного переделав

Код:

    while EnumList.Next(1, ID, NumIDs) = S_OK do
    begin
    end;