formatmetafile.int

FlexGraphics是一套创建矢量图形的VCL组件

/////////////////////////////////////////////////////////
//                                                     //
//    FlexGraphics library                             //
//    Copyright (c) 2002-2009, FlexGraphics software.  //
//                                                     //
//    FlexGraphics library file formats support        //
//    Metafiles (wmf/emf) files                        //
//                                                     //
/////////////////////////////////////////////////////////

unit FormatMetaFile;

{$I FlexDefs.inc}

interface

uses
  Windows, Classes, Graphics, FlexBase, FlexFileFormats;

resourcestring
  sWmfFileDescription = 'Windows Metafiles';
  sEmfFileDescription = 'Windows Enhanced Metafiles';

type
  TDoublePoint = record
    X, Y: double;
  end;

  TFlexMetafileFormat = class(TFlexFileFormat)
  protected
    // Internal fields
    FMetafile: TMetafile;
    FFlexPanel: TFlexPanel;
    FCanvas: TCanvas;
    FXForm: TXForm;
    FWExt: TDoublePoint;
    FWOrg: TDoublePoint;
    FVExt: TDoublePoint;
    FVOrg: TDoublePoint;
    procedure RegisterSupportedExtensions; override;
    procedure MetaToFlex(var Points; PointCount: integer);
    procedure ConvertEmr(DC: HDC; var lpEmr: TEMR);
  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