ListView

[frrizza]

Здравствуйте, уважаемые программёры )) Может тема не совсем удачная, но уже вторые сутки мучаюсь... Если кто читал книгу Фленова Михаила - Библия Delphi, так вот там есть раздел такой: Простейший файловый менеджер... Компонент он использует listvew... Вот я не понимаю что он там делает, какой то поиск странный, загрузку картинок совсем не понял, и описания мало... Может кто подскажет чего? Ковырял в сети, ничего интересного не нашел, на этом форуме тоже... Было бы интересно создать хорошо раскрытую тему )) Заранее спасибо...

[Человек_Борща]

что конкретно вам не понятно?

[XeruH]

Что за темы пошли... в чем вопрос то? все штатные телепаты в отпуске!

[phomm]

печатаем в пустой строчке в дельфи TListView и сразу нажимаем F1, читаем до посинения, попутно изучаем англ. яз., если несведущи, а то не быть человеку толковым программЁром, коли английский он плохо знает.

приводите код и уточняйте, что Вы не можете сделать, а то слова ничего не понял, ничего не получается, очень странные, вот, например, вы же видели свой листвию в рантайме, значит уже что-то получилось

[frrizza]

В общем я еще пока зеленый в Delphi, но примерно так:

procedure TForm1.FormShow(Sender: TObject);
var
SR: TSearchRec;
hFindFile: THandle;
begin
hFindFile := FindFirst('C:\*.*', faAnyFile, SR);
if hFindFile <> INVALID_HANDLE_VALUE then
repeat
with SR.FindData do
begin
if (SR.Name = '') or (SR.Name = '.') or (SR.Name = '..') then Continue;
with ListView1.Items.Add do
begin
Caption := SR.Name;
end;
end;
until (FindNext(SR) <> 0);
FindClose(SR);
end;

В ListView теперь отображаются все каталоги и файлы с диска С:.. Теперь мне интересно как добавить к каждому каталогу и файлу системную иконку.. Кто что подскажет?

[frrizza]

Да, и еще: почему то если я выставляю стиль vsReport, у меня данные не выводятся в ListView, а в остальных случаях выводятся.. Почему?

[phomm]

афаик, для vsreport надо создавать колонки, при помощи listview.columns.add

[frrizza]

Хорошо, спасибо, почитаю об этом.. А что качается системных иконок?