Listbox färbt komisch ein

[toyoman]

Zitat von toms:

Delphi-Quellcode:

procedure TForm1.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;
    end
    else
    begin
      //falls gewünscht
      Canvas.Brush.Color := clWhite;
      Canvas.Pen.Color := clBlack;
    end;

     if  (odSelected in State) then
     begin
       Canvas.Font.Color := clHighlightText;
       Canvas.Brush.Color := clHighlight;
     end else
       Canvas.Font.Color := clWindowText;

    Canvas.FillRect(Rect);
    Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, Items[Index]);
  end;
end;

cool! hab ich jetzt so und passt soweit. was ich allerdings nicht begreif: bei mir ist die textfarbe immer noch schwarz obwohl diese ja bei hintergrund rot weiss sein sollte? nur wenn ich mit der maus die zeile selektiere ist der text weiss ansonsten schwarz.

und: wenn ich mit der maus klicke werden die farben dargestellt. jedoch nicht beim laden der listbox bzw. beim laden des forms. wie kann ich die listbox IMMER farbig halten?