Delphi and C++ Builder canvas to SVG conversion library.

Converts canvas drawing to SVG format
Available for Delphi/C++ Builder 5 - 10.3 and Lazarus 1.8.4
Source code included in registered version
Royalty free distribution in applications

type
  ESvgError = class(Exception)

  TSvgCanvas = class
    constructor Create(Stream: TStream; Canvas: TCanvas);
    constructor Create(const FileName: string; Canvas: TCanvas);

    procedure Ellipse(X1, Y1, X2, Y2: Integer);
    procedure Ellipse(const Rect: TRect);
    procedure FillRect(const Rect: TRect);
    procedure FrameRect(const Rect: TRect);
    function HandleAllocated: Boolean;
    procedure LineTo(X, Y: Integer);
    procedure Lock;
    procedure MoveTo(X, Y: Integer);
    procedure Polygon(const Points: array of TPoint);
    procedure Polyline(const Points: array of TPoint);
    procedure PolyBezier(const Points: array of TPoint);
    procedure PolyBezierTo(const Points: array of TPoint);
    procedure Rectangle(X1, Y1, X2, Y2: Integer);
    procedure Rectangle(const Rect: TRect);
    procedure Refresh;
    procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer);
    function TextExtent(const Text: string): TSize;
    function TextHeight(const Text: string): Integer;
    procedure TextOut(X, Y: Integer; const Text: WideString);
    function TextWidth(const Text: string): Integer;
    function TryLock: Boolean;
    procedure Unlock;

    property Handle: HDC read GetHandle write SetHandle;
    property LockCount: Integer read GetLockCount;
    property PenPos: TPoint read GetPenPos write SetPenPos;
    property OnChange: TNotifyEvent read GetOnChange write SetOnChange;
    property OnChanging: TNotifyEvent read GetOnChanging write SetOnChanging;

    property Brush: TBrush read GetBrush write SetBrush;
    property Font: TFont read GetFont write SetFont;
    property Pen: TPen read GetPen write SetPen;
  end;

Only for V.I.P