rm_jvinterpreterfm.hpp

这是一个功能强大

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

// (DO NOT EDIT: machine generated header) 'Rm_jvinterpreterfm.pas' rev: 11.00

#ifndef Rm_jvinterpreterfmHPP
#define Rm_jvinterpreterfmHPP

#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 <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Rm_jvinterpreter.hpp>	// Pascal unit
#include <Rm_jvjvclutils.hpp>	// Pascal unit

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

namespace Rm_jvinterpreterfm
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TJvInterpreterGetDfmFileName)(System::TObject* Sender, AnsiString UnitName, AnsiString &FileName, bool &Done);

typedef void __fastcall (__closure *TJvInterpreterCreateDfmStream)(System::TObject* Sender, AnsiString UnitName, Classes::TStream* &Stream, bool &Done);

typedef void __fastcall (__closure *TJvInterpreterFreeDfmStream)(System::TObject* Sender, Classes::TStream* Stream);

class DELPHICLASS TJvInterpreterForm;
class DELPHICLASS TJvInterpreterFm;
class PASCALIMPLEMENTATION TJvInterpreterFm : public Rm_jvinterpreter::TJvInterpreterProgram 
{
	typedef Rm_jvinterpreter::TJvInterpreterProgram inherited;
	
private:
	TJvInterpreterForm* FForm;
	AnsiString FFileName;
	bool FInterfaceUses;
	TJvInterpreterGetDfmFileName FOnGetDfmFileName;
	TJvInterpreterCreateDfmStream FOnCreateDfmStream;
	TJvInterpreterFreeDfmStream FOnFreeDfmStream;
	void __fastcall LoadForm(TJvInterpreterForm* AForm);
	
protected:
	virtual bool __fastcall GetValue(const AnsiString Identifier, Variant &Value, Rm_jvinterpreter::TJvInterpreterArgs* &Args);
	virtual bool __fastcall SetValue(const AnsiString Identifier, const Variant &Value, Rm_jvinterpreter::TJvInterpreterArgs* &Args);
	DYNAMIC bool __fastcall GetUnitSource(const AnsiString UnitName, AnsiString &Source);
	DYNAMIC void __fastcall CreateDfmStream(const AnsiString UnitName, Classes::TStream* &Stream);
	DYNAMIC void __fastcall FreeDfmStream(Classes::TStream* Stream);
	
public:
	DYNAMIC void __fastcall Run(void);
	Forms::TForm* __fastcall MakeForm(const AnsiString FileName);
	Forms::TForm* __fastcall MakeInheritedForm(TJvInterpreterForm* F, const AnsiString FileName);
	Forms::TForm* __fastcall RunForm(const AnsiString FileName);
	Controls::TModalResult __fastcall RunFormModal(const AnsiString FileName);
	Variant __fastcall RunUnit(const AnsiString FileName);
	void __fastcall RunReportPreview(const AnsiString FileName);
	__property TJvInterpreterForm* Form = {read=FForm};
	__property AnsiString FileName = {read=FFileName};
	
__published:
	__property TJvInterpreterGetDfmFileName OnGetDfmFileName = {read=FOnGetDfmFileName, write=FOnGetDfmFileName};
	__property TJvInterpreterCreateDfmStream OnCreateDfmStream = {read=FOnCreateDfmStream, write=FOnCreateDfmStream};
	__property TJvInterpreterFreeDfmStream OnFreeDfmStream = {read=FOnFreeDfmStream, write=FOnFreeDfmStream};
	__property bool InterfaceUses = {read=FInterfaceUses, write=FInterfaceUses, default=0};
public:
	#pragma option push -w-inl
	/* TJvInterpreterProgram.Create */ inline __fastcall virtual TJvInterpreterFm(Classes::TComponent* AOwner) : Rm_jvinterpreter::TJvInterpreterProgram(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TJvInterpreterProgram.Destroy */ inline __fastcall virtual ~TJvInterpreterFm(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TJvInterpreterForm : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
private:
	TJvInterpreterFm* FJvInterpreterFm;
	Classes::TList* FMethodList;
	Rm_jvinterpreter::TJvInterpreterVarList* FFieldList;
	bool FFreeJvInterpreterFm;
	AnsiString FClassIdentifier;
	AnsiString FUnitName;
	void __fastcall FixupMethods(void);
	
protected:
	virtual void __fastcall ReadState(Classes::TReader* Reader);
	__property Classes::TList* MethodList = {read=FMethodList};
	__property AnsiString ClassIdentifier = {read=FClassIdentifier};
	__property AnsiString UnitName = {read=FUnitName};
	
public:
	__fastcall virtual TJvInterpreterForm(Classes::TComponent* AOwner, int Dummy);
	__fastcall virtual ~TJvInterpreterForm(void);
	__property TJvInterpreterFm* rm_JvInterpreterFm = {read=FJvInterpreterFm, write=FJvInterpreterFm};
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TJvInterpreterForm(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TJvInterpreterForm(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Word ieImplementationNotFound = 0x191;
extern PACKAGE void __fastcall (*JvInterpreterRunReportPreviewProc)(const AnsiString FileName);
extern PACKAGE void __fastcall (*JvInterpreterRunReportPreview2Proc)(const AnsiString FileName, TJvInterpreterFm* JvInterpreterProgram);
extern PACKAGE Controls::TModalResult __fastcall JvInterpreterRunFormModal(const AnsiString AFileName);
extern PACKAGE Forms::TForm* __fastcall JvInterpreterRunForm(const AnsiString AFileName);
extern PACKAGE Forms::TForm* __fastcall JvInterpreterMakeForm(const AnsiString AFileName);
extern PACKAGE Variant __fastcall JvInterpreterRunUnit(const AnsiString AFileName);
extern PACKAGE void __fastcall JvInterpreterRunReportPreview(const AnsiString AFileName);
extern PACKAGE void __fastcall JvInterpreterRunReportPreview2(const AnsiString AFileName, TJvInterpreterFm* JvInterpreterProgram);
extern PACKAGE void __fastcall RegisterJvInterpreterAdapter(Rm_jvinterpreter::TJvInterpreterAdapter* JvInterpreterAdapter);

}	/* namespace Rm_jvinterpreterfm */
using namespace Rm_jvinterpreterfm;
#pragma pack(pop)
#pragma option pop

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