Style psDot soll punktierte Linie zeichen

[e-gon]

Hallo!

Um eine eigene Komponente als fokusiert dazustellen nutze ich ein TShape mit Pen.Style:= psDot. Dabei musste ich jedoch feststellen, dass psDot (zumindest unter Windows 7 bei Delphi 6) nicht wie in der Hilfe beschrieben eine punktierte sondern eine gestrichelte Linie zeichnet. Die Striche sind zwar kürzer als bei psDash, aber definitiv keine Punkte wie bei der Fokusierung von Delphi-Komponenten.

Kann mir jemand sagen, wie ich das TShape dazu überrede bei psDot auch tatsächlich Punkte zu zeichnen?

(Pen.Width ist übrigens bereits 1!)

Gruß
e-gon

[uligerhardt]

Das Fokusrechteck dürfte meistens mittels DrawFocusRect realisiert sein. Vielleicht kannst du ja diese Routine nutzen.

[e-gon]

Hallo uligerhardt!

Danke, sowas wollte ich haben!

Gruß
e-gon