[HTTqp]

Сообщение от Alegun

Использование

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin

  // Assign a Imagelist to the ListView 
ListView1.SmallImages := ImageList1;

  // Show Listview in Report Style and add 2 Columns 
//ListView1.ViewStyle := vsReport;

//  ListView1.Columns.Add;
//  ListView1.Columns.Add;

  LV_InsertFiles('C:\Windows\', ListView1, ImageList1);
end;

А если выводить однавременной в 2 listView, получается надо еще 1 ImageList и вызывать вот так

Код:

procedure TForm1.FormActivate(Sender: TObject);
begin
ListView1.SmallImages := ImageList1;

  // Show Listview in Report Style and add 2 Columns
//ListView1.ViewStyle := vsReport;

//  ListView1.Columns.Add;
//  ListView1.Columns.Add;

  LV_InsertFiles('c:\windows\', ListView1, ImageList1);
  LV_InsertFiles('d:\файлы\', ListView2, ImageList2);

end;