Gestrichelte Linie lässt sich nicht zeichnen

[ak1]

Hallo Leute,

mit folgendem Code sollte sich eigentlich eine gepunktete Linie zeichnen lassen, es funktioniert aber nicht (die Linie ist durchgehend). Woran könnte das liegen.

Bitmap.Canvas.Pen.Width:=1;
Bitmap.Canvas.Pen.Color:=clBlack;
Bitmap.canvas.pen.style:=psdash;

Gruß AK

[himitsu]

Wie lang ist den deine Linie?
Sie muß schon länger als ~20 Pixel sein

Mit Pen.Style = psDot werden kürzere Striche gezeichnet.

[ak1]

Die Linie ist lang genug, aber ich denke es liegt daran, dass der pen.mode vorher verändert wird.

[Robert Marquardt]

Ich erinnere mich das da irgendwo ein Bug in Windows oder der VCL ist.
Zumindest hat die JCL eine Funktion fuer gestrichelte Linien.

[himitsu]

Wenn der Pen-Mode vorher eventuell geändert wurde, dann setz' ihn doch wieder zurück.

Delphi-Quellcode:

BitMap.Canvas.Pen.Mode := pmCopy;