Foros Club Delphi - Colorear Texto en una linea de TListBox

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

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

- - Colorear Texto en una linea de TListBox (https://www.clubdelphi.com/foros/showthread.php?t=94701)

Colorear Texto en una linea de TListBox

buenas, quisiera colorear el texto de la linea que añada en un ListBox y tengo esto:

Código PHP:


		
			
ListBoxDebug->Items->Strings[ListBoxDebug->Items->ItemIndex]->Font->Color = clRed;

La cosa es que eso no cuela y no se como hacerlo y si primero añado la linea y luego la coloreo o primero indico el color y luego la añado o como va eso. No veo la manera por internet.

Hola.

No podes pintar de ese modo un ítem de un TListBox, debes usar el evento OnDrawItem. Te pongo un ejemplo que muestra los items en fonts de diferentes colores:

Código PHP:


		
			

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  String s[6] = {"uno","dos","tres","cuatro","cinco"};

  for(int i = 0; i < 6; i++)
    ListBox1->Items->AddObject(s[i], (TObject*)0);
}


void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
  TListBox *LB = static_cast<TListBox*>(Control);

  if ((int)LB->Items->Objects[Index])
   LB->Canvas->Font->Color = (TColor)LB->Items->Objects[Index];
  LB->Canvas->FillRect(Rect);
  LB->Canvas->TextRect(Rect, Rect.left, Rect.top, LB->Items->Strings[Index]);
}

// ListBox1 OnDblClick: cambia color de los items
void __fastcall TForm1::ListBox1DblClick(TObject *Sender)
{
  TColor cl[5] = {clRed, clYellow, clLime, clBlue, clBlack};

  TListBox *LB = ListBox1;
  LB->Items->Objects[LB->ItemIndex] = (TObject*) cl[rand() % 5];
  ListBox1->Invalidate();
}

Salida:

Saludos :)

Hola de nuevo.

Perdón, olvidé mencionar que el ListBox debe tener su propiedad Style en lbOwnerDrawFixed.

Código PHP:


		
			
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 ...
 ListBox1->Style = lbOwnerDrawFixed;

Saludos :)