Rechteck gestrichelt zeichnen

[devnull]

Hi,
wie zeichnet man ein gestricheltes Rechteck?

Delphi-Quellcode:

with DXDraw1.Surface.Canvas do
  begin
    Brush.Style := bsClear;
    Pen.Style := psDash;   //Geht nicht, weil Pen.Width = 2
    Pen.Width := 2;
    Pen.Color := clBlack;
    DXDraw1.Surface.Canvas.Rectangle(x,y, x+20,y+20);
  end;

Wie gesagt, das Rechteck wird durchgängig gezeichnet, weil die Pen.Width auf 2 steht

mfg
devnull

[rantanplan99]

Folgender Tipp, aber nicht getestet ob das was aussieht:

Zitat von devnull:

Delphi-Quellcode:

with DXDraw1.Surface.Canvas do
  begin
    Brush.Style := bsClear;
    Pen.Style := psDash;   //Geht nicht, weil Pen.Width = 2
    Pen.Width := 2;
    Pen.Color := clBlack;
    DXDraw1.Surface.Canvas.Rectangle(x,y, x+20,y+20);
  end;

Einfach zwei Rechtecke mit Pen.With := 1;

Delphi-Quellcode:

with DXDraw1.Surface.Canvas do
  begin
    Brush.Style := bsClear;
    Pen.Style := psDash;
    Pen.Width := 1;
    Pen.Color := clBlack;
    DXDraw1.Surface.Canvas.Rectangle(x,y, x+20,y+20);
    DXDraw1.Surface.Canvas.Rectangle(x+1,y+1, x+18,y+18);
  end;

oder aber auch das 2te Rechteck so
    DXDraw1.Surface.Canvas.Rectangle(x-1,y-1, x+21,y+21); rantanplan

[ichbins]

du könntest das Rechteck erst mit halber größe zeichnen und dann strecken... Oder natürlich eine eigene Rectangle-proc ganz von Hand.

[devnull]

Danke

@rantanplan99:
darauf hätte ich auch selber kommen können