Mostrar iconos de archivos en ListBox

[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?

[ecfisa]

Hola.

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?

Me faltó esa línea al publicarlo pero la gregué pocos minutos después, revísalo nuevamente.

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?

Si los componentes fueron agregados al formulario en tiempo de diseño, se liberarán al cerrarse el mismo.

Saludos

[aguml]

Muchísimas gracias por toda tu ayuda. Si tengo algún inconveniente cuando lo añada a mí código ya aviso por aquí.

[aguml]

Amigo tengo un problema aquí:

Código PHP:

void __fastcall TForm1::ListBoxSeleccionadosDrawItem(TWinControl *Control, int Index,
          TRect &Rect, TOwnerDrawState State)
{
    const int SPACE_IMG = 5;
    TListBox *LB = dynamic_cast<TListBox*>(Control);
    TRect R = Rect;
    WideString 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);
} 


El error que me da es este:

[bcc64 Error] Unit1.cpp(713): no member named 'TextOutA' in 'Vcl::Graphics::TCanvas'

Si pongo "LB->Canvas->TextO" el autocompletado me muestra esto:

https://ibb.co/kXjXc6y

He probado a usar AnsiString, WideString y UnicodeString y siempre me muestra el mismo error.
¿Puedes ayudarme?

[aguml]

Amigo ya lo conseguí, por lo visto tenía que usar TextOutW en lugar de TextOutA pero lo raro es que al ir escribiendo no aparecía TextOutW, solo aparecía como puedes ver en la imagen que puse la opcion de TextOutA.
Ahora tengo una cosa que no me gusta nada y quisiera saber si es posible solucionarlo. Al seleccionar algun item y desplazar el scrollbar horizontal veo esto:
https://ibb.co/kmKS9xY
Es claramente un fallo al dibujar pero no se como hacer que no aparezca ese resaltado naranja ni sus respectivos cuadritos que no deberían ni aparecer.
¿Puedes ayudarme con eso?