Canvas Dash auf HighDPI

[Friday]

Hallo,
gibt es eine Möglichkeit Canvas Linien auf High-DPI zu skalieren? Die Breite einer Linie lässt sich natürlich einfach skalieren, aber die Länge spezieller Linienarten (Dash, DashDot etc.)?

[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;