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;