[TPaintBox] - "Hintergrundfarbe" für Pen.Style := psDot

[Muetze1]

Und das läuft nicht?

Delphi-Quellcode:

  BitBlt(pbMap.Canvas.Handle, xDis, yDis, bMap.Width, bMap.Width, bMap.Canvas.Handle, 0, 0, SRCCOPY);
  with pbMap.Canvas do
  begin
    Brush.Style := bsClear;
    Pen.Style := psDot;
    Pen.Color := $000000FF;
    MoveTo((selectRect.X * 32) + xDis, (selectRect.Y * 32) + yDis);
    LineTo(((selectRect.X + 1) * 32) + xDis, (selectRect.Y * 32) + yDis);
    LineTo(((selectRect.X + 1) * 32) + xDis, ((selectRect.Y + 1) * 32) + yDis);
    LineTo((selectRect.X * 32) + xDis, ((selectRect.Y + 1) * 32) + yDis);
    LineTo((selectRect.X * 32) + xDis, (selectRect.Y * 32) + yDis);
  end;