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?

zusammenfalten · markieren

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 --... ...--

Evtl. hilft es, ihn mit TCanvas.DrawFocusRect(const Rect: TRect) zu überuntermalen, da er laut der D3-Hilfe durch eine XOR-Verknüpfung zustande kommt, die sich ja dann aufheben dürfte.

Vielleicht hilft es ja.

MfG,
Bug

Jo das klappt!!! Danke!

MfG Frank