Ver Mensaje Individual
  #2  
Antiguo 09-01-2018
Avatar de _Leo
_Leo _Leo is offline
Miembro
 
Registrado: ene 2017
Ubicación: Lanzarote (Islas Canarias)
Posts: 38
Reputación: 0
_Leo Va camino a la fama
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 *Controlint Index,
      
TRect &RectTOwnerDrawState State)
{
    
ListBoxLog->Canvas->FillRect(Rect);
    
ListBoxLog->Canvas->Font->Color = (TColor)ListBoxLog->Items->Objects[Index];
    
ListBoxLog->Canvas->TextOut(Rect.Left 1Rect.TopListBoxLog->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);

Responder Con Cita