rm_insp.hpp

这是一个功能强大

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

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

#ifndef Rm_inspHPP
#define Rm_inspHPP

#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 <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Rm_common.hpp>	// Pascal unit
#include <Rm_dsgctrls.hpp>	// Pascal unit
#include <Rm_propinsp.hpp>	// Pascal unit
#include <Typinfo.hpp>	// Pascal unit
#include <Rm_tb97ctls.hpp>	// Pascal unit
#include <Rm_tb97tlbr.hpp>	// Pascal unit
#include <Rm_tb97.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Rm_tb97tlwn.hpp>	// Pascal unit

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

namespace Rm_insp
{
//-- type declarations -------------------------------------------------------
typedef AnsiString RM_Insp__1[22];

typedef void __fastcall (__closure *TGetObjectsEvent)(Classes::TStrings* List);

typedef void __fastcall (__closure *TSelectionChangedEvent)(AnsiString ObjName);

class DELPHICLASS TRMInspForm;
class PASCALIMPLEMENTATION TRMInspForm : public Rm_dsgctrls::TRMResizeableToolWindow 
{
	typedef Rm_dsgctrls::TRMResizeableToolWindow inherited;
	
private:
	Comctrls::TTabControl* FTab;
	Stdctrls::TComboBox* FCmbObjects;
	Rm_propinsp::TELPropertyInspector* FInsp;
	Extctrls::TPanel* FPanelTop;
	Extctrls::TSplitter* FSplitter1;
	Extctrls::TPanel* FPanelBottom;
	Extctrls::TPanel* FPanel2;
	Stdctrls::TLabel* FLabelTitle;
	Stdctrls::TLabel* FLabelCommon;
	AnsiString FCurObjectClassName;
	int FSaveHeight;
	TGetObjectsEvent FOnGetObjects;
	TSelectionChangedEvent FOnSelectionChanged;
	int __fastcall GetSplitterPos(void);
	void __fastcall SetSplitterPos(int Value);
	int __fastcall GetSplitterPos1(void);
	void __fastcall SetSplitterPos1(int Value);
	void __fastcall OnResizeEvent(System::TObject* Sender);
	void __fastcall OnVisibleChangedEvent(System::TObject* Sender);
	void __fastcall OnTabChangeEvent(System::TObject* Sender);
	void __fastcall Panel2Resize(System::TObject* Sender);
	void __fastcall Insp_OnClick(System::TObject* Sender);
	void __fastcall OnGetEditorClassEvent(System::TObject* Sender, Classes::TPersistent* AInstance, Typinfo::PPropInfo APropInfo, TMetaClass* &AEditorClass);
	void __fastcall cmbObjectsDropDown(System::TObject* Sender);
	void __fastcall cmbObjectsClick(System::TObject* Sender);
	HIDESBASE MESSAGE void __fastcall WMLButtonDBLCLK(Messages::TWMNCHitMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMRButtonDBLCLK(Messages::TWMNCHitMessage &Message);
	void __fastcall OnMoveEvent(System::TObject* Sender);
	Classes::TStrings* __fastcall GetObjects(void);
	
public:
	__fastcall virtual TRMInspForm(Classes::TComponent* AOwner);
	__fastcall virtual ~TRMInspForm(void);
	HIDESBASE void __fastcall BeginUpdate(void);
	HIDESBASE void __fastcall EndUpdate(void);
	void __fastcall AddObject(Classes::TPersistent* aObject);
	void __fastcall AddObjects(Classes::TPersistent* * aObjects, const int aObjects_Size);
	void __fastcall ClearObjects(void);
	void __fastcall SetCurrentObject(AnsiString aClassName, AnsiString aName);
	void __fastcall SetCurReport(System::TObject* aObject);
	void __fastcall RestorePos(void);
	void __fastcall Localize(void);
	__property Rm_propinsp::TELPropertyInspector* Insp = {read=FInsp};
	__property Comctrls::TTabControl* Tab = {read=FTab};
	__property int SplitterPos = {read=GetSplitterPos, write=SetSplitterPos, nodefault};
	__property int SplitterPos1 = {read=GetSplitterPos1, write=SetSplitterPos1, nodefault};
	__property TGetObjectsEvent OnGetObjects = {read=FOnGetObjects, write=FOnGetObjects};
	__property TSelectionChangedEvent OnSelectionChanged = {read=FOnSelectionChanged, write=FOnSelectionChanged};
	__property Classes::TStrings* Objects = {read=GetObjects};
	__property Stdctrls::TComboBox* cmbObjects = {read=FCmbObjects};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMInspForm(HWND ParentWindow) : Rm_dsgctrls::TRMResizeableToolWindow(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE AnsiString RMCompletionStr[22];
extern PACKAGE void __fastcall RMRegisterPropEditor(Typinfo::PTypeInfo ATypeInfo, TMetaClass* AObjectClass, const AnsiString APropName, TMetaClass* AEditorClass);

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

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