formatmetafile.hpp

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

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'FormatMetaFile.pas' rev: 5.00

#ifndef FormatMetaFileHPP
#define FormatMetaFileHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <FlexFileFormats.hpp>	// Pascal unit
#include <FlexBase.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Formatmetafile
{
//-- type declarations -------------------------------------------------------
struct TDoublePoint
{
	double X;
	double Y;
} ;

class DELPHICLASS TFlexMetafileFormat;
class PASCALIMPLEMENTATION TFlexMetafileFormat : public Flexfileformats::TFlexFileFormat 
{
	typedef Flexfileformats::TFlexFileFormat inherited;
	
protected:
	Graphics::TMetafile* FMetafile;
	Flexbase::TFlexPanel* FFlexPanel;
	Graphics::TCanvas* FCanvas;
	#pragma pack(push, 1)
	tagXFORM FXForm;
	#pragma pack(pop)
	
	TDoublePoint FWExt;
	TDoublePoint FWOrg;
	TDoublePoint FVExt;
	TDoublePoint FVOrg;
	virtual void __fastcall RegisterSupportedExtensions(void);
	void __fastcall MetaToFlex(void *Points, int PointCount);
	void __fastcall ConvertEmr(HDC DC, tagEMR &lpEmr);
	
public:
	virtual void __fastcall ImportFromStream(Classes::TStream* AStream, Flexbase::TFlexPanel* AFlexPanel
		, const Flexfileformats::TFlexFileExtension* Extension, const AnsiString AFileName);
	virtual void __fastcall ExportToStream(Classes::TStream* AStream, Flexbase::TFlexPanel* AFlexPanel, 
		const Flexfileformats::TFlexFileExtension* Extension, const AnsiString AFileName);
public:
	#pragma option push -w-inl
	/* TFlexFileFormat.Create */ inline __fastcall virtual TFlexMetafileFormat(System::TObject* AOwner)
		 : Flexfileformats::TFlexFileFormat(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TFlexFileFormat.CreateForRegister */ inline __fastcall TFlexMetafileFormat(Flexfileformats::TFlexFileExtensions* 
		AExtensions) : Flexfileformats::TFlexFileFormat(AExtensions) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TFlexFileFormat.Destroy */ inline __fastcall virtual ~TFlexMetafileFormat(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE System::ResourceString _sWmfFileDescription;
#define Formatmetafile_sWmfFileDescription System::LoadResourceString(&Formatmetafile::_sWmfFileDescription)
	
extern PACKAGE System::ResourceString _sEmfFileDescription;
#define Formatmetafile_sEmfFileDescription System::LoadResourceString(&Formatmetafile::_sEmfFileDescription)
	

}	/* namespace Formatmetafile */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Formatmetafile;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// FormatMetaFile