HELP URGENTE!!! ajuda com as cores do LISTBOX

Delphi

18/07/2003

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!!


Alanfk

Alanfk

Curtidas 0

Respostas

Cebikyn

Cebikyn

18/07/2003

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]


GOSTEI 0
POSTAR