OnDrawItem Makierungsrahmen los werden?

[Schucki]

Hi,

ich habe eine Listbox wo ich die Einträge selber zeichne.
Wie kann man diesen ollen gestrichelten Rahmen los werden?
Gibt es eine Möglichkeit?

Delphi-Quellcode:

  with (Control as TListBox).Canvas do begin
    case etItem of
      etInfo:begin
        Font.Color:=clGreen;
        ImageList1.GetBitmap(0, bmpTmp);
      end;
      etError:begin
        Font.Color:=clRed;
        ImageList1.GetBitmap(1, bmpTmp);
      end;
    end;

    if (odSelected in State) then begin
      Brush.Color:=clSilver;
      FillRect(Rect);
    end else begin
      Brush.Color:=clWhite;
      FillRect(Rect);
    end;
    Draw(Rect.Left+2, Rect.Top, bmpTmp);
    TextOut(Rect.Left+2+16+2, Rect.Top, strItem);
  end;

Gruß Frank --... ...--