Beispiele für TPathData

[Uwe Raabe]

Man kann sowas auch relativ komfortabel programmieren:

Delphi-Quellcode:

function MakePathData: string;
var
  pd: TPathData;
begin
  pd  := TPathData.Create;
  try
    pd.AddRectangle(TRectF.Create(0, 0, 24, 24), 0, 0, AllCorners, TCornerType.InnerLine);
    pd.MoveTo(TPointF.Create(14,  7));
    pd.LineTo(TPointF.Create( 9, 12));
    pd.LineTo(TPointF.Create(14, 17));
    pd.VLineTo(7);
    pd.ClosePath;
    Result := pd.Data;
  finally
    pd.Free;
  end;
end;