|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.04.2011, 23:18 | #1 |
Регистрация: 14.04.2011
Сообщений: 7
|
ListView
Здравствуйте, уважаемые программёры )) Может тема не совсем удачная, но уже вторые сутки мучаюсь... Если кто читал книгу Фленова Михаила - Библия Delphi, так вот там есть раздел такой: Простейший файловый менеджер... Компонент он использует listvew... Вот я не понимаю что он там делает, какой то поиск странный, загрузку картинок совсем не понял, и описания мало... Может кто подскажет чего? Ковырял в сети, ничего интересного не нашел, на этом форуме тоже... Было бы интересно создать хорошо раскрытую тему )) Заранее спасибо...
|
15.04.2011, 00:40 | #2 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,430
|
что конкретно вам не понятно?
|
15.04.2011, 00:54 | #3 |
Форумчанин
Регистрация: 17.09.2010
Сообщений: 229
|
Что за темы пошли... в чем вопрос то? все штатные телепаты в отпуске!
Правильно заданный вопрос - половина ответа!
|
15.04.2011, 08:10 | #4 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,885
|
печатаем в пустой строчке в дельфи TListView и сразу нажимаем F1, читаем до посинения, попутно изучаем англ. яз., если несведущи, а то не быть человеку толковым программЁром, коли английский он плохо знает.
приводите код и уточняйте, что Вы не можете сделать, а то слова ничего не понял, ничего не получается, очень странные, вот, например, вы же видели свой листвию в рантайме, значит уже что-то получилось |
15.04.2011, 18:43 | #5 |
Регистрация: 14.04.2011
Сообщений: 7
|
В общем я еще пока зеленый в 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 теперь отображаются все каталоги и файлы с диска С:.. Теперь мне интересно как добавить к каждому каталогу и файлу системную иконку.. Кто что подскажет? |
15.04.2011, 23:02 | #6 |
Регистрация: 14.04.2011
Сообщений: 7
|
Да, и еще: почему то если я выставляю стиль vsReport, у меня данные не выводятся в ListView, а в остальных случаях выводятся.. Почему?
|
15.04.2011, 23:14 | #7 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,885
|
афаик, для vsreport надо создавать колонки, при помощи listview.columns.add
|
16.04.2011, 00:14 | #8 |
Регистрация: 14.04.2011
Сообщений: 7
|
Хорошо, спасибо, почитаю об этом.. А что качается системных иконок?
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как перетащить элемент ListView в другой ListView? | Paul Hindenburg | Компоненты Delphi | 5 | 26.01.2013 11:35 |
[C# + WPF] ListView. Узнать выделена ли строка в нём. ListView.View == GridView. | Casper-SC | WPF, UWP, WinRT, XAML | 2 | 12.08.2010 19:04 |
ListView | Cpluser | Общие вопросы .NET | 4 | 13.04.2009 22:45 |
ListView | Drain | Общие вопросы Delphi | 3 | 13.02.2008 16:10 |
ListView | Garacio | Компоненты Delphi | 1 | 17.12.2006 15:30 |