HELP URGENTE!!! ajuda com as cores do LISTBOX

Question

preciso urgente de um modo de fazer com que o texto de um listbox fique com cores diferentes para cada linha, se alguem puder me ajudar o quanto antes eu agrade�o!!...

Cebikyn · Answer

No evento OnDrawItem do ListBox coloque:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  ListBox1.Canvas.Brush.Color := clWhite;
  ListBox1.Canvas.FillRect(Rect);
  case Index of
    // Aqui voc� escolhe a cor do texto para cada linha:
    0: ListBox1.Canvas.Font.Color := clRed;
    1: ListBox1.Canvas.Font.Color := clGreen;
    2: ListBox1.Canvas.Font.Color := clBlue;
  end;
  ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;

Mas antes voc� deve mudar a propriedade [b:5d7c934e51]Style[/b:5d7c934e51] do ListBox para [b:5d7c934e51]lbOwnerDrawVariable[/b:5d7c934e51]

F�rum HELP URGENTE!!! ajuda com as cores do LISTBOX #170009