formatstdfiles.int

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

/////////////////////////////////////////////////////////
//                                                     //
//    FlexGraphics library                             //
//    Copyright (c) 2002-2009, FlexGraphics software.  //
//                                                     //
//    FlexGraphics library file formats support        //
//    Standard raster files                            //
//                                                     //
/////////////////////////////////////////////////////////

unit FormatStdFiles;

{$I FlexDefs.inc}

interface

uses
  Windows, Graphics, SysUtils, Classes, FlexBase, FlexFileFormats;

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

implementation