formatsvgfile.int

来自「FlexGraphics是一套创建矢量图形的VCL组件」· INT 代码 · 共 34 行

/////////////////////////////////////////////////////////
//                                                     //
//    FlexGraphics library                             //
//    Copyright (c) 2002-2009, FlexGraphics software.  //
//                                                     //
//    FlexGraphics library file formats support        //
//    Scalable Vector Graphics (svg) files             //
//                                                     //
/////////////////////////////////////////////////////////

unit FormatSvgFile;

{$I FlexDefs.inc}

interface

uses
  Windows, Classes, Graphics, FlexBase, FlexFileFormats;

resourcestring
  sSvgFileDescription = 'Scalable Vector Graphics';

type
  TFlexSvgFormat = class(TFlexFileFormat)
  protected
    procedure RegisterSupportedExtensions; override;
    procedure ExportSVG(AFlexPanel: TFlexPanel; AStream: TStream);
  public
    procedure ExportToStream(AStream: TStream; AFlexPanel: TFlexPanel;
      const Extension: TFlexFileExtension; const AFileName: string); override;
  end;

implementation