TBGRASVG

type TBGRASVG = class(TSVGCustomElement)

protected

  FXml: TXMLDocument;

  FDefaultDpi: single;

  FContent: TSVGContent;

  FDataLink: TSVGDataLink;

  procedure Init();

  function GetViewBoxAlignment();

  function GetViewBoxScale;

  procedure UnitsRecompute();

  procedure SetAttribute(); override;

public

  constructor Create();

  constructor CreateFromString();

  destructor Destroy; override;

  function Duplicate;

  procedure CropToViewBox();

  procedure LoadFromFile();

  procedure LoadFromStream();

  procedure LoadFromResource();

  procedure SaveToFile();

  procedure SaveToStream();

  procedure Draw();

  procedure StretchDraw();

  function GetStretchRectF();

  function GetPresentationMatrix();

  function GetStretchPresentationMatrix();

  function FindElementById();

  procedure IterateElements(); override;

  procedure ConvertToUnit(); override;

  property AsUTF8String: utf8string; [rw]

  property Units: TSVGUnits; [r]

  property FontSize: TFloatWithCSSUnit; [rw]

  property Color: TBGRAPixel; [rw]

  property Width: TFloatWithCSSUnit; [rw]

  property Height: TFloatWithCSSUnit; [rw]

  property ComputedWidth: TFloatWithCSSUnit; [r]

  property ComputedHeight: TFloatWithCSSUnit; [r]

  property WidthAsPixel: single; [rw]

  property HeightAsPixel: single; [rw]

  property WidthAsCm: single; [rw]

  property HeightAsCm: single; [rw]

  property WidthAsInch: single; [rw]

  property HeightAsInch: single; [rw]

  property ContainerWidth: TFloatWithCSSUnit; [rw]

  property ContainerWidthAsPixel: single; [rw]

  property ContainerHeight: TFloatWithCSSUnit; [rw]

  property ContainerHeightAsPixel: single; [rw]

  property Zoomable: Boolean; [rw]

  property ViewBox: TSVGViewBox; [rw]

  property ViewBoxInUnit []: TSVGViewBox; [r]

  property ViewMinInUnit []: TPointF; [r]

  property ViewSizeInUnit []: TPointF; [r]

  property VisualWidth: TFloatWithCSSUnit; [r]

  property VisualHeight: TFloatWithCSSUnit; [r]

  property VisualWidthAsPixel: single; [r]

  property VisualHeightAsPixel: single; [r]

  property Attribute []: string; [rw]

  property AttributeDef []: string; [r]

  property DefaultDpi: single; [rw]

  property Content: TSVGContent; [r]

  property DataLink: TSVGDataLink; [r]

  property preserveAspectRatio: TSVGPreserveAspectRatio; [rw]

  property Layer []: TSVGGroup; [r]

  property LayerCount: Integer; [r]

end;

TBGRASVG

TSVGCustomElement

TObject