Rechteck gestrichelt zeichnen

[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