Foros Club Delphi - Mostrar iconos de archivos en ListBox

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Mostrar iconos de archivos en ListBox (https://www.clubdelphi.com/foros/showthread.php?t=94746)

aguml

20-06-2020 11:57:49

Mostrar iconos de archivos en ListBox

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

ecfisa

20-06-2020 13:21:39

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

20-06-2020 13:50:56

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

20-06-2020 15:11:01

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

20-06-2020 15:35:25

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

aguml

20-06-2020 16:04:40

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

20-06-2020 16:31:44

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

20-06-2020 16:46:32

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

ecfisa

20-06-2020 16:58:10

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

20-06-2020 17:13:47

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

20-06-2020 22:02:09

Hola.

Cita:

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.

Cita:

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

20-06-2020 22:38:23

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

22-06-2020 10:56:43

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:

Código:

[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

22-06-2020 11:33:50

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?

aguml

22-06-2020 11:51:21

Vale, activando el DoubleBuffered se soluciona el fallo de dibujado del recuadro naranja pero es que yo no quiero ni que salga ese recuadro ¿como puedo desactivarlo para que no salga?

ecfisa

22-06-2020 16:53:58

Hola.

Estuve probando bastante y a mi no me sucede lo del recuadro. Pero, al parecer estas usando una versión muy superior de C++ Builder tal vez sea una cuestión de versiones.

Saludos :)

ecfisa

22-06-2020 17:33:11

Hola de nuevo.

Pude probar con otra versión de C++ Builder y le pude dar solución al problema del recuadro agregando estas dos líneas:

Código PHP:


		
			
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
  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 ;
  int textTop    = R.top + R.Height() / 2 - textHeight / 2;
  /*******  AQUI  ********/
  InflateRect(&R, 1, 1);
  LB->Canvas->FillRect(R);
  /*********************/
  ImageList1->Draw(LB->Canvas, R.left, R.top, Index);
  LB->Canvas->TextOutA(textLeft, textTop, s);
}

Saludos :)

aguml

23-06-2020 18:37:27

Genial, me sigue mostrando el rectangulo naranja pero ahora me gusta como queda jajaja.
Antes al haber ampliado el alto de linea me seleccionaba solo digamos el texto y si seleccionaba mas de uno se quedaban espacios blancos entre ellos y ahora no pasa y ademas no necesito activar el doublebuffered con lo que es una gran mejora :).
Ahora tengo otro problema. Necesito que el Listbox siempre deje el mismo espacio en el lado derecho de la cadena mas larga. Ahora mismo lo tengo así:

Código PHP:


		
			
void __fastcall TForm1::SetScrollWidth(TListBox *lb, int WidthIcon)

{

    int MaxWidth = -1;

    int WidthScrollV = GetSystemMetrics(SM_CXVSCROLL);



    // assign control's font to canvas

    lb->Canvas->Font = lb->Font;

    if(lb->Items->Count > 0){

        for(int i = 0; i < lb->Items->Count; i++)

        {

            String text = lb->Items->Strings[i];

            int len = lb->Canvas->TextWidth(text);

            if(MaxWidth < len)

                MaxWidth = len;

            // consider non-client area

            if(MaxWidth != -1){

                lb->ScrollWidth = (MaxWidth + lb->Width + WidthIcon + WidthScrollV - lb->ClientWidth);

            }

        }

    }else{

        lb->ScrollWidth = 0;

    }

}

Y la llamo así:

Código PHP:


		
			
SetScrollWidth(ListBoxSeleccionados, ImageListSeleccionados->Width);

El problema es que cuando muestra el scrollbar vertical hay mas espacio en blanco que cuando no aparece. Se que es una tontería pero me gustaria saber como solucionarlo. Gracias.

ecfisa

24-06-2020 14:26:46

Hola.

No sé si entendí el problema, pero si quisiera dejar el espacio para cuando el scroll vertical aparezca, haría:

Código PHP:


		
			
void __fastcall TForm1::FormCreate(TObject *Sender)

{

 int maxLen= 0;



 for(int i = 0; i < ListBox1->Items->Count; i++)

  if (ListBox1->Items->Strings[i].Length() > maxLen)

    maxLen = ListBox1->Items->Strings[i].Length();



  ListBox1->ClientWidth = maxLen * ListBox1->Canvas->TextWidth(maxLen) +

  GetSystemMetrics(SM_CXVSCROLL);

}

Saludos :)

aguml

24-06-2020 15:15:23

Tu codigo no me funcionó porque no hacía lo que yo quería pero cogiendolo como ejemplo he dejado el mio así:

Código PHP:


		
			
void __fastcall TForm1::SetScrollWidth(TListBox *lb)
{
    int MaxWidth = -1;
    int len;

    if(lb->Items->Count > 0){
        for(int i = 0; i < lb->Items->Count; i++)
        {
            len = lb->Canvas->TextWidth(lb->Items->Strings[i]);
            if(MaxWidth < len)
                MaxWidth = len;

            if(MaxWidth != -1){
                lb->ScrollWidth = MaxWidth + lb->Canvas->TextWidth(MaxWidth) + GetSystemMetrics(SM_CXVSCROLL);
            }
        }
    }else{
        lb->ScrollWidth = 0;
    }
}

Parece que hace justo lo que hago :). ¿Hago algo mal?

ecfisa

24-06-2020 15:47:35

Hola.

Cita:

Empezado por aguml (Mensaje 537768)

...
Parece que hace justo lo que hago :). ¿Hago algo mal?

Si hace lo que esperabas, creo no.

Saludos :)

La franja horaria es GMT +2. Ahora son las 03:55:27.