Listbox färbt komisch ein

[toyoman]

Zitat von Tyrael Y.:

So besser?

Delphi-Quellcode:

procedure Tmainform.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (control as TListBox) do
  begin
    if Index = 2 then  //bei best. Zeile soll folgendes gelten
    begin
      Canvas.Brush.Color := clRed; 
      Canvas.Pen.Color := clWhite; 
      Canvas.FillRect(Rect); 
    end 
    else
    begin 
      //falls gewünscht
      Canvas.Brush.Color := clWhite; 
      Canvas.Pen.Color := clBlack; 
      Canvas.FillRect(Rect); 
    end;
    Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, Items[Index]); 
  end;
end;

ja allerdings, aber ich habe wenn ich mit der maus draufklicke alles weiss (auch die schrift) -> somit unleserlich...
der rahmen mit der farbe passt allerdings...