Canvas.pen.Style Problem

[thomas2009]

Zitat von himitsu:

im Notfall selber mehrere Pen.Width=1-Linien nebeneinander malen

meinst Du so?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
canvas.Pen.Width:=1;
canvas.MoveTo(0,100);
canvas.LineTo(100,100);

canvas.MoveTo(0,101);
canvas.LineTo(100,101);

canvas.MoveTo(0,102);
canvas.LineTo(100,102);

canvas.MoveTo(0,103);
canvas.LineTo(100,103);

canvas.MoveTo(0,104);
canvas.LineTo(100,104);

canvas.MoveTo(0,105);
canvas.LineTo(100,105);

canvas.MoveTo(0,106);
canvas.LineTo(100,106);

canvas.MoveTo(0,107);
canvas.LineTo(100,107);

canvas.MoveTo(0,108);
canvas.LineTo(100,108);

canvas.MoveTo(0,109);
canvas.LineTo(100,109);

canvas.MoveTo(0,110);
canvas.LineTo(100,110);
end;

OK, aber das ist unpraktisch : (

Zitat von Noedel:

oder probiers mal mit

Code:

 
rectangle

?!

Dein Vorschlag funktioniert nur wenn man eine ausgezogene Linie zeichnet. Was wäre
wenn ich einen anderen typ wie z.B. Dot Dot verwenden will ; )