flexfileformats.hpp

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

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'FlexFileFormats.pas' rev: 6.00

#ifndef FlexFileFormatsHPP
#define FlexFileFormatsHPP

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

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

namespace Flexfileformats
{
//-- type declarations -------------------------------------------------------
typedef TMetaClass*TFlexFileFormatClass;

#pragma option push -b-
enum TFlexFileSupportKind { skImport, skExport };
#pragma option pop

typedef Set<TFlexFileSupportKind, skImport, skExport>  TFlexFileSupportKinds;

class DELPHICLASS TFlexFileExtension;
class PASCALIMPLEMENTATION TFlexFileExtension : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	TMetaClass*FormatClass;
	AnsiString Extension;
	AnsiString Description;
	TFlexFileSupportKinds Kinds;
	int Tag;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TFlexFileExtension(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TFlexFileExtension(void) { }
	#pragma option pop
	
};


class DELPHICLASS TFlexFileFormat;
class DELPHICLASS TFlexFileExtensions;
class PASCALIMPLEMENTATION TFlexFileExtensions : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	TFlexFileExtension* operator[](int Index) { return Items[Index]; }
	
private:
	Classes::TList* FItems;
	int __fastcall GetCount(void);
	TFlexFileExtension* __fastcall GetItem(int Index);
	
protected:
	int __fastcall RegisterExtension(TFlexFileExtension* Extension);
	
public:
	__fastcall TFlexFileExtensions(void);
	__fastcall virtual ~TFlexFileExtensions(void);
	bool __fastcall RegisterFormat(TMetaClass* AFormat);
	void __fastcall UnregisterFormat(TMetaClass* AFormat);
	void __fastcall Delete(int Index);
	void __fastcall Clear(void);
	int __fastcall IndexOf(TMetaClass* AClass);
	void __fastcall ImportFromStream(int ItemIndex, Flexbase::TFlexPanel* AFlexPanel, Classes::TStream* AStream, AnsiString AFileName = "");
	void __fastcall ExportToStream(int ItemIndex, Flexbase::TFlexPanel* AFlexPanel, Classes::TStream* AStream, AnsiString AFileName = "");
	void __fastcall ImportFromFile(int ItemIndex, Flexbase::TFlexPanel* AFlexPanel, AnsiString AFilename);
	void __fastcall ExportToFile(int ItemIndex, Flexbase::TFlexPanel* AFlexPanel, AnsiString AFilename);
	__property int Count = {read=GetCount, nodefault};
	__property TFlexFileExtension* Items[int Index] = {read=GetItem/*, default*/};
};


class PASCALIMPLEMENTATION TFlexFileFormat : public System::TObject 
{
	typedef System::TObject inherited;
	
protected:
	System::TObject* FOwner;
	bool FStreamSupport;
	TFlexFileExtensions* FExtensions;
	virtual int __fastcall RegisterExtension(const AnsiString AExtension, const AnsiString ADescription, TFlexFileSupportKinds AKinds, int ATag = 0x0);
	virtual void __fastcall RegisterSupportedExtensions(void) = 0 ;
	
public:
	__fastcall virtual TFlexFileFormat(System::TObject* AOwner);
	__fastcall TFlexFileFormat(TFlexFileExtensions* AExtensions);
	__fastcall virtual ~TFlexFileFormat(void);
	virtual void __fastcall ImportFromStream(Classes::TStream* AStream, Flexbase::TFlexPanel* AFlexPanel, const TFlexFileExtension* Extension, const AnsiString AFileName);
	virtual void __fastcall ExportToStream(Classes::TStream* AStream, Flexbase::TFlexPanel* AFlexPanel, const TFlexFileExtension* Extension, const AnsiString AFileName);
	__property System::TObject* Owner = {read=FOwner};
	__property bool StreamSupport = {read=FStreamSupport, nodefault};
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE System::ResourceString _sUnsupportedFormat;
#define Flexfileformats_sUnsupportedFormat System::LoadResourceString(&Flexfileformats::_sUnsupportedFormat)
extern PACKAGE System::ResourceString _sImportError;
#define Flexfileformats_sImportError System::LoadResourceString(&Flexfileformats::_sImportError)
extern PACKAGE System::ResourceString _sExportError;
#define Flexfileformats_sExportError System::LoadResourceString(&Flexfileformats::_sExportError)
extern PACKAGE System::ResourceString _sNotImplemented;
#define Flexfileformats_sNotImplemented System::LoadResourceString(&Flexfileformats::_sNotImplemented)
extern PACKAGE TFlexFileExtensions* __fastcall RegisteredFlexFileFormats(void);

}	/* namespace Flexfileformats */
using namespace Flexfileformats;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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