Listbox con ultima linea añadida con diferente color

[_Leo]

Hola, aprovechando que se puede asociar un puntero TObject* a cada elemento, podrías hacer una chapucilla así para que cada elemento mantenga asociado su color:

Código PHP:

void __fastcall TForm1::ListBoxLogDrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
    ListBoxLog->Canvas->FillRect(Rect);
    ListBoxLog->Canvas->Font->Color = (TColor)ListBoxLog->Items->Objects[Index];
    ListBoxLog->Canvas->TextOut(Rect.Left + 1, Rect.Top, ListBoxLog->Items->Strings[Index]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonUpdateFirstLayerClick(TObject *Sender)
{
    // Al añadir un elemento especificamos el color:
    ListBoxLog->Items->AddObject("Rojo",    (TObject*) clRed);
    ListBoxLog->Items->AddObject("Naranja", (TObject*) RGB(255,165,0));
    ListBoxLog->Items->AddObject("Verde",   (TObject*) clGreen);
} 


[aguml]

Muy interesante Actualmente me quedé sin pc pero en cuanto lo tenga funcionando lo probaré y te diré que tal va. Muchas gracias.

[Angel.Matilla]

Una buena alternativa al uso de un TListBox es un TListView, aunque SEGURO que el código de Leo funciona a la perfección.

[aguml]

Empezado por Angel.Matilla

Una buena alternativa al uso de un TListBox es un TListView, aunque SEGURO que el código de Leo funciona a la perfección.

¿Que ventajas hay al usar un TListView? O sea me refiero a que qué me aporta el TListView que el TListBox no haga.

[aguml]

Gracias _Leo, fue perfecto.