Fórum JEDI VCL (listbox com linhas de cor diferente) #215890

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with ListBox1, ListBox1.Canvas do
  begin
    if (odSelected in State) then
    begin
      Brush.Color:= clDkGray; //Cor quando estiver selecionado
      Pen.Color:= clBlack;
      DrawFocusRect(Rect);
    end
    else
    begin
      Brush.Color:= clLtGray;//Cor quando não estiver selecionado
      Pen.Color:= clLtGray;  //Coloque a mesma cor da linha de cima
    end;
    Rectangle(Rect);
    TextOut(Rect.Left+1, Rect.Top+1, Items[Index]);
  end;
end;