Listbox Select Farbe

[janjan]

Wenn man den Tip von City Light und MathiasSimmack kombiniert hat man zu 90% das was ich suche:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListbox) do
  begin
    if odSelected in State then
      Canvas.Brush.Color := $00C08000;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left+5, Rect.Top, Items[Index]);
    if odSelected in State then
      DrawFocusRect(canvas.Handle,rect);
  end;
end;

Ganz perfekt ist es immer noch nicht, da nach dem Start solange dieses dumme Auswahlrechteck angezeigt wird bis man einen eintrag anwählt.

Hat da einer ne Idee zu?