Mostrar iconos de archivos en ListBox

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

[aguml]

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]

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]

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]

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.