Fórum listview1 com Icons de extenção ? #356150

Alguém Sabe ? 8)

Dê uma olhada neste código e aplique conforme necessário para o que vc está querendo. Um grande abraço !!!


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ShellApi, ComCtrls, StdCtrls, ImgList;

type
TForm1 = class(TForm)
Button1: TButton;
ListView1: TListView;
OpenDialog1: TOpenDialog;
ImageList1: TImageList;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
List: TListItem;
Icon: TIcon;
Index: word;
begin
Index := 0;
if OpenDialog1.Execute then
begin
List := ListView1.Items.Add;
List.Caption := ExtractFileName(OpenDialog1.FileName);
try
Icon := TIcon.Create;
Icon.Handle := ExtractAssociatedIcon(Handle, PAnsiChar(OpenDialog1.FileName), Index);
List.ImageIndex := ImageList1.AddIcon(Icon);
finally
FreeAndNil(Icon);
end;
end;
end;

end.

Tipo esse exemplo não serviria pq os arquivos estão listados no listview1, eu gostaria de add os icons apartir de suas extenções de arquivo [b:8b0ee06167]Ex: (.txt = .bmp = .jpg)[/b:8b0ee06167]

Isso seria possivel ?

Seja mais claro, porque não estou entendendo o que vc quer realmente. Um abraço.

List View ele mostra arquivos

arquivo.exe
arquivo.txt
arquivo.bmp
arquivo.jpg

gostaria que ele add os icons nesses arquivos dependendo de suas extenção

alguém sabe ?