Witam,
kiedyś Wolverine podał mi taką procedurę:
procedure MakeIcons(var ListView: TListView; ImageList: TImageList);
var
q: Integer;
Icon: TIcon;
FileInfo: SHFILEINFO;
begin
Icon := TIcon.Create;
ListView.Items.BeginUpdate;
for q := 0 to ListView.Items.Count -1 do begin
SHGetFileInfo(PChar(ListView.Items[q].SubItems[0]), 0, FileInfo,
SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
icon.Handle := FileInfo.hIcon;
ListView.Items[q].ImageIndex := ImageList.AddIcon(Icon);
DestroyIcon(FileInfo.hIcon);
end;
Icon.Free;
ListView.Items.EndUpdate;
end;
Czy da się ją (na pewno się da, ale nie wiem jak :-) ) przerobić by chodziła pod ListBox-em??