ListView,CheckBox,Thumbnail

[vanya1992ua]

Пишу программу для просмотра изображений.Есть 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 сделать,но не знаю как.Помогите пожалуйста.

[mihali4]

Читаем правила форума и правила раздела.