Mostrar iconos de archivos en ListBox

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

[ecfisa]

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]

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]

Hola.

Empezado por aguml

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

Si hace lo que esperabas, creo no.

Saludos