Canvas Dash auf HighDPI

[Redeemer]

Ja:

Delphi-Quellcode:

var
  DashData: packed array of DWord;
begin
  // schreib was in DashData

  // erstelle einen geometrischen Stift
  DeleteObject(Canvas.Pen.Handle);
  Canvas.Pen.Handle := ExtCreatePen(PS_GEOMETRIC OR PS_USERSTYLE OR BS_SOLID, ..., Length(DashData), DashData); // in neueren Delphis möglicherweise @DashData als letztes Argument
end;