|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.03.2010, 18:48 | #1 |
Новичок
Джуниор
Регистрация: 11.03.2010
Сообщений: 2
|
ListView,CheckBox,Thumbnail
Пишу программу для просмотра изображений.Есть TreeView,к нему подключен ListView,в котором должны быть элементы с иконками.Как их сделать?Вот есть код
procedure TForm1.ShellTreeView2Change(Sender: TObject; Node: TTreeNode); var ListItem: TListItem; sr: tsearchrec; begin listview1.Clear; if FindFirst(ShellTreeView2.Path + '\' + '*.*' , faAnyFile, sr) = 0 then begin ListItem := ListView1.Items.Add; ListItem.Caption := ExtractFileName(sr.name); ListItem.SubItems.Add( ExtractFileExt(sr.Name) ); ListItem.SubItems.Add(inttostr(sr.s ize)+' Kb'); ListItem.SubItems.Add(datetimetostr (FileDateToDateTime(sr.time))); while FindNext(sr) = 0 do begin ListItem := ListView1.Items.Add; ListItem.Caption := ExtractFileName(sr.name); ListItem.SubItems.Add( ExtractFileExt(sr.Name) ); ListItem.SubItems.Add(inttostr(sr.s ize)+' Kb'); ListItem.SubItems.Add(datetimetostr (FileDateToDateTime(sr.time))); end; FindClose(sr); end; end; Мне как-то нужно сделать чтобы в ListView показывались файлы многих расширений.Это нужно зделать через ListItem.SubItems.Add( ExtractFileExt(sr.Name) );бно я не знаю как.Может через CheckBox сделать,но не знаю как.Помогите пожалуйста. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как перетащить элемент ListView в другой ListView? | Paul Hindenburg | Компоненты Delphi | 5 | 26.01.2013 11:35 |
как работать с новыми CheckBox в ListView в режиме vsReport | cybopob90 | Компоненты Delphi | 2 | 24.03.2009 13:02 |
CheckBox в ListView в режиме vsReport | cybopob90 | Компоненты Delphi | 0 | 24.03.2009 12:31 |
ListView+Checkbox | lantian | Компоненты Delphi | 1 | 04.01.2009 03:28 |
ListView и встроенный CheckBox | dsoft | Win Api | 0 | 25.06.2008 00:29 |