Как зная путь до папки вывести в TListView изображения типа JPEG BMP PNG в виде миниатюр thumbnails?
Эта процедура по полному пути до папки находит все файлы:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
procedure GetFilesNamesFromFolder(Sender: TObject);
var
SR: TSearchRec;
FilesStrings: TStrings;
SelectedPath: string;
begin
FilesStrings:=TStringList.Create;
SelectedPath := FormFoldersPictures.EditCurrentFolderPath.Text; // это найдено и известно в виде "путь\"
if FindFirst(SelectedPath + '*.*', faAnyFile - faVolumeID - faDirectory - faHidden - faSysFile - faArchive, SR) = 0 then
repeat
FilesStrings.Add(SelectedPath + SR.Name); // закидываем сюда найденный очередной полный путь к файлу
until FindNext(SR) <> 0;
FindClose(SR);
FilesStrings.Free;
end;
Как из TStrings закинуть в TListView?
Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
