Mostrar iconos de archivos en ListBox

[aguml]

Buenas, me gustaría saber cómo puedo obtener y mostrar los iconos de los archivos que voy listando en un listview.

[ecfisa]

Hola.

No sabía si aplicar el ejemplo al título o al contenido... opté por el segundo.

Código PHP:

#include<ShellApi>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (OpenDialog1->Execute())
  {
    WORD inx = 0;
    TIcon *icon = new TIcon;

    icon->Handle = ExtractAssociatedIcon(HInstance,
      OpenDialog1->FileName.c_str(), &inx);

    ImageList1->AddIcon(icon);
    TListItem *li = ListView1->Items->Add();
    li->Caption = OpenDialog1->FileName;
    li->ImageIndex = ImageList1->Count-1;
    li->SubItems->Add(OpenDialog1->FileName);
    li->SubItemImages[0] = ImageList1->Count-1;

    delete(icon);
  }
} 


Vista:


Saludos

[aguml]

Es justo lo que deseo y me surgen dos dudas con tu código:
1. Mi listbox sólo tiene una columna y uso Items->Add ¿Tengo que usar SubItems aunque solo haya una columna?
2. ¿Tengo que asociar el ImageList con el ListBox en esa propiedad de ListBox?
Muchas gracias por tu ayuda.

[aguml]

Y otra cosa, ¿Por qué le asignas el path del archivo dos veces?

Código PHP:

li->Caption = OpenDialog1->FileName;
...
li->SubItems->Add(OpenDialog1->FileName); 


¿Y tengo que activar algo en el ListBox para que funcione?

[aguml]

Ufff no me di cuenta de mi error, es un ListBox ����

[aguml]

Otra duda que me surge es que si hago myListBox->Clear() limpio el ListBox pero ¿Libero esa memoria de los items o simplemente pongo el count a 0 y sigo teniendo toda esa memoria allocada? Si es así me gustaría saber cómo debería de hacerlo para liberar toda la memoria de los ítems.

Código PHP:

for(;myListBox->Count > 0; myListBox->Deleite(1)) 


Así?

[ecfisa]

Hola.

Un ejemplo similar usando un TListBox sería:

Código PHP:

#include<ShellApi>

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  ListBox1->Style << lbOwnerDrawFixed;
}

void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
  const int SPACE_IMG = 5;
  TListBox *LB = dynamic_cast<TListBox*>(Control);
  TRect R = Rect;
  AnsiString s = LB->Items->Strings[Index];
  int textHeight = LB->Canvas->TextHeight(s);
  int textLeft   = R.left + ImageList1->Width + SPACE_IMG;
  int textTop    = R.top + R.Height() / 2 - textHeight / 2;

  ImageList1->Draw(LB->Canvas, R.left, R.top, Index);
  LB->Canvas->TextOutA(textLeft, textTop, s);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (OpenDialog1->Execute())
  {
    WORD inx = 0;
    TIcon *icon = new TIcon;
    icon->Handle = ExtractAssociatedIcon(HInstance,
      OpenDialog1->FileName.c_str(), &inx);
    ImageList1->AddIcon(icon);
    ListBox1->Items->Add(OpenDialog1->FileName);
    delete(icon);
  }
} 


Salida:


Saludos