Mostrar iconos de archivos en ListBox

[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

[aguml]

Muchas gracias y sobre las dudas que comento ¿Puedes aclararmelas?

[ecfisa]

Hola.

En el ListBox hay que poner su propiedad Style a lbOwnerDrawFixed.
El método Clear elimina todas las cadenas de la lista y remueve todos los objetos asociados.


Saludos

[aguml]

Algo que veo es que usas new para el TIcon pero no usas delete para liberar esa memoria en ningún caso. Supongo que eso lo tengo que hacer al eliminar cada icono de la TImageList ¿Así sería?

Código PHP:

ImageList1->Delete(Index);
ListBox1->Items->Delete(index); 


Por otro lado, ¿Tengo que usar el método Clear de los TListBox y los TImageList al cerrar la aplicación o ya se encarga automáticamente de liberar toda esa memoria automáticamente al cerrarse?