flexfileformats.hpp

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

// CodeGear C++Builder
// Copyright (c) 1995, 2008 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Flexfileformats.pas' rev: 20.00

#ifndef FlexfileformatsHPP
#define FlexfileformatsHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Flexbase.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:
	TFlexFileFormatClass FormatClass;
	System::UnicodeString Extension;
	System::UnicodeString Description;
	TFlexFileSupportKinds Kinds;
	int Tag;
public:
	/* TObject.Create */ inline __fastcall TFlexFileExtension(void) : System::TObject() { }
	/* TObject.Destroy */ inline __fastcall virtual ~TFlexFileExtension(void) { }
	
};


class DELPHICLASS TFlexFileFormat;
class DELPHICLASS TFlexFileExtensions;
class PASCALIMPLEMENTATION TFlexFileFormat : public System::TObject
{
	typedef System::TObject inherited;
	
protected:
	System::TObject* FOwner;
	bool FStreamSupport;
	TFlexFileExtensions* FExtensions;
	virtual int __fastcall RegisterExtension(const System::UnicodeString AExtension, const System::UnicodeString 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 System::UnicodeString AFileName);
	virtual void __fastcall ExportToStream(Classes::TStream* AStream, Flexbase::TFlexPanel* AFlexPanel, const TFlexFileExtension* Extension, const System::UnicodeString AFileName);
	__property System::TObject* Owner = {read=FOwner};
	__property bool StreamSupport = {read=FStreamSupport, nodefault};
};


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(TFlexFileFormatClass AFormat);
	void __fastcall UnregisterFormat(TFlexFileFormatClass AFormat);
	void __fastcall Delete(int Index);
	void __fastcall Clear(void);
	int __fastcall IndexOf(TFlexFileFormatClass AClass);
	void __fastcall ImportFromStream(int ItemIndex, Flexbase::TFlexPanel* AFlexPanel, Classes::TStream* AStream, System::UnicodeString AFileName = L"");
	void __fastcall ExportToStream(int ItemIndex, Flexbase::TFlexPanel* AFlexPanel, Classes::TStream* AStream, System::UnicodeString AFileName = L"");
	void __fastcall ImportFromFile(int ItemIndex, Flexbase::TFlexPanel* AFlexPanel, System::UnicodeString AFilename);
	void __fastcall ExportToFile(int ItemIndex, Flexbase::TFlexPanel* AFlexPanel, System::UnicodeString AFilename);
	__property int Count = {read=GetCount, nodefault};
	__property TFlexFileExtension* Items[int Index] = {read=GetItem/*, default*/};
};


//-- 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 pack(pop)
#pragma option pop

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