rm_dialogctls.hpp

这是一个功能强大

	void __fastcall SetItemIndex(int Value);
	
public:
	/* virtual class method */ virtual void __fastcall DefaultSize(TMetaClass* vmt, int &aKx, int &aKy);
	__fastcall virtual TRMListBoxControl(void);
	__fastcall virtual ~TRMListBoxControl(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	
__published:
	__property Font ;
	__property TabOrder ;
	__property Classes::TStrings* Items = {read=GetItems, write=SetItems};
	__property int ItemIndex = {read=GetItemIndex, write=SetItemIndex, nodefault};
};


#pragma option push -b-
enum TRMComboBoxStyle { rmcsDropDown, rmcsDropDownList, rmcsLookup };
#pragma option pop

class DELPHICLASS TRMComboBoxControl;
class PASCALIMPLEMENTATION TRMComboBoxControl : public TRMCustomControl 
{
	typedef TRMCustomControl inherited;
	
private:
	Stdctrls::TComboBox* FComboBox;
	TRMComboBoxStyle FStyle;
	void __fastcall ComboBoxDrawItem(Controls::TWinControl* Control, int Index, const Types::TRect &Rect, Windows::TOwnerDrawState State);
	void __fastcall OnKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	Classes::TStrings* __fastcall GetItems(void);
	void __fastcall SetItems(Classes::TStrings* Value);
	int __fastcall GetItemIndex(void);
	void __fastcall SetItemIndex(int Value);
	AnsiString __fastcall GetText();
	void __fastcall SetText(AnsiString Value);
	HIDESBASE void __fastcall SetStyle(TRMComboBoxStyle Value);
	
public:
	/* virtual class method */ virtual void __fastcall DefaultSize(TMetaClass* vmt, int &aKx, int &aKy);
	__fastcall virtual TRMComboBoxControl(void);
	__fastcall virtual ~TRMComboBoxControl(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	
__published:
	__property Font ;
	__property TabOrder ;
	__property Classes::TStrings* Items = {read=GetItems, write=SetItems};
	__property int ItemIndex = {read=GetItemIndex, write=SetItemIndex, nodefault};
	__property AnsiString Text = {read=GetText, write=SetText};
	__property TRMComboBoxStyle Style = {read=FStyle, write=SetStyle, nodefault};
};


class DELPHICLASS TRMDateEditControl;
class PASCALIMPLEMENTATION TRMDateEditControl : public TRMCustomControl 
{
	typedef TRMCustomControl inherited;
	
private:
	Comctrls::TDateTimePicker* FDateEdit;
	TDate __fastcall GetDate(void);
	void __fastcall SetDate(TDate Value);
	TTime __fastcall GetTime(void);
	void __fastcall SetTime(TTime Value);
	Comctrls::TDTDateFormat __fastcall GetDateFormat(void);
	void __fastcall SetDateFormat(Comctrls::TDTDateFormat Value);
	Comctrls::TDateTimeKind __fastcall GetKind(void);
	void __fastcall SetKind(Comctrls::TDateTimeKind Value);
	
public:
	/* virtual class method */ virtual void __fastcall DefaultSize(TMetaClass* vmt, int &aKx, int &aKy);
	__fastcall virtual TRMDateEditControl(void);
	__fastcall virtual ~TRMDateEditControl(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	
__published:
	__property Font ;
	__property TabOrder ;
	__property TDate Date = {read=GetDate, write=SetDate};
	__property TTime Time = {read=GetTime, write=SetTime};
	__property Comctrls::TDTDateFormat DateFormat = {read=GetDateFormat, write=SetDateFormat, nodefault};
	__property Comctrls::TDateTimeKind Kind = {read=GetKind, write=SetKind, nodefault};
};


class DELPHICLASS TRMCheckListBoxControl;
class PASCALIMPLEMENTATION TRMCheckListBoxControl : public TRMCustomControl 
{
	typedef TRMCustomControl inherited;
	
private:
	Checklst::TCheckListBox* FCheckListBox;
	Classes::TStrings* __fastcall GetItems(void);
	void __fastcall SetItems(Classes::TStrings* Value);
	int __fastcall GetItemIndex(void);
	void __fastcall SetItemIndex(int Value);
	
protected:
	virtual bool __fastcall GetPropValue(System::TObject* aObject, AnsiString aPropName, Variant &aValue, Variant * Args, const int Args_Size);
	
public:
	/* virtual class method */ virtual void __fastcall DefaultSize(TMetaClass* vmt, int &aKx, int &aKy);
	__fastcall virtual TRMCheckListBoxControl(void);
	__fastcall virtual ~TRMCheckListBoxControl(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	__property Checklst::TCheckListBox* CheckListBox = {read=FCheckListBox};
	
__published:
	__property Font ;
	__property TabOrder ;
	__property Classes::TStrings* Items = {read=GetItems, write=SetItems};
	__property int ItemIndex = {read=GetItemIndex, write=SetItemIndex, nodefault};
};


class DELPHICLASS TRMPanelControl;
class PASCALIMPLEMENTATION TRMPanelControl : public TRMCustomControl 
{
	typedef TRMCustomControl inherited;
	
private:
	Extctrls::TPanel* FPanel;
	Controls::TBevelCut __fastcall GetBevelInner(void);
	void __fastcall SetBevelInner(Controls::TBevelCut Value);
	Controls::TBevelCut __fastcall GetBevelOuter(void);
	void __fastcall SetBevelOuter(Controls::TBevelCut Value);
	int __fastcall GetBevelWidth(void);
	void __fastcall SetBevelWidth(int Value);
	Forms::TBorderStyle __fastcall GetBorderStyle(void);
	void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
	int __fastcall GetBorderWidth(void);
	void __fastcall SetBorderWidth(int Value);
	AnsiString __fastcall GetCaption();
	void __fastcall SetCaption(AnsiString Value);
	
protected:
	virtual bool __fastcall GetPropValue(System::TObject* aObject, AnsiString aPropName, Variant &aValue, Variant * Args, const int Args_Size);
	virtual bool __fastcall IsContainer(void);
	
public:
	/* virtual class method */ virtual void __fastcall DefaultSize(TMetaClass* vmt, int &aKx, int &aKy);
	__fastcall virtual TRMPanelControl(void);
	__fastcall virtual ~TRMPanelControl(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	__property Extctrls::TPanel* Panel = {read=FPanel};
	
__published:
	__property Font ;
	__property TabOrder ;
	__property Controls::TBevelCut BevelInner = {read=GetBevelInner, write=SetBevelInner, nodefault};
	__property Controls::TBevelCut BevelOuter = {read=GetBevelOuter, write=SetBevelOuter, nodefault};
	__property int BevelWidth = {read=GetBevelWidth, write=SetBevelWidth, nodefault};
	__property Forms::TBorderStyle BorderStyle = {read=GetBorderStyle, write=SetBorderStyle, nodefault};
	__property int BorderWidth = {read=GetBorderWidth, write=SetBorderWidth, nodefault};
	__property AnsiString Caption = {read=GetCaption, write=SetCaption};
};


class DELPHICLASS TRMGroupBoxControl;
class PASCALIMPLEMENTATION TRMGroupBoxControl : public TRMCustomControl 
{
	typedef TRMCustomControl inherited;
	
private:
	Stdctrls::TGroupBox* FGroupBox;
	
protected:
	virtual bool __fastcall GetPropValue(System::TObject* aObject, AnsiString aPropName, Variant &aValue, Variant * Args, const int Args_Size);
	virtual bool __fastcall IsContainer(void);
	
public:
	/* virtual class method */ virtual void __fastcall DefaultSize(TMetaClass* vmt, int &aKx, int &aKy);
	__fastcall virtual TRMGroupBoxControl(void);
	__fastcall virtual ~TRMGroupBoxControl(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	__property Stdctrls::TGroupBox* GroupBox = {read=FGroupBox};
	
__published:
	__property Font ;
	__property TabOrder ;
	AnsiString __fastcall GetCaption();
	void __fastcall SetCaption(AnsiString Value);
	__property AnsiString Caption = {read=GetCaption, write=SetCaption};
};


class DELPHICLASS TRMImageControl;
class PASCALIMPLEMENTATION TRMImageControl : public TRMCustomControl 
{
	typedef TRMCustomControl inherited;
	
private:
	Extctrls::TImage* FImage;
	Graphics::TPicture* __fastcall GetPicture(void);
	void __fastcall SetPicture(Graphics::TPicture* Value);
	bool __fastcall GetAutoSize(int Index);
	void __fastcall SetAutoSize(int Index, bool Value);
	
protected:
	virtual bool __fastcall GetPropValue(System::TObject* aObject, AnsiString aPropName, Variant &aValue, Variant * Args, const int Args_Size);
	
public:
	/* virtual class method */ virtual void __fastcall DefaultSize(TMetaClass* vmt, int &aKx, int &aKy);
	__fastcall virtual TRMImageControl(void);
	__fastcall virtual ~TRMImageControl(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	__property Extctrls::TImage* Image = {read=FImage};
	
__published:
	__property Graphics::TPicture* Picture = {read=GetPicture, write=SetPicture};
	__property bool AutoSize = {read=GetAutoSize, write=SetAutoSize, index=0, nodefault};
	__property bool Center = {read=GetAutoSize, write=SetAutoSize, index=1, nodefault};
	__property bool Stretch = {read=GetAutoSize, write=SetAutoSize, index=2, nodefault};
	__property bool Transparent = {read=GetAutoSize, write=SetAutoSize, index=3, nodefault};
};


class DELPHICLASS TRMBevelControl;
class PASCALIMPLEMENTATION TRMBevelControl : public TRMCustomControl 
{
	typedef TRMCustomControl inherited;
	
private:
	Extctrls::TBevel* FBevel;
	
protected:
	virtual bool __fastcall GetPropValue(System::TObject* aObject, AnsiString aPropName, Variant &aValue, Variant * Args, const int Args_Size);
	
public:
	/* virtual class method */ virtual void __fastcall DefaultSize(TMetaClass* vmt, int &aKx, int &aKy);
	__fastcall virtual TRMBevelControl(void);
	__fastcall virtual ~TRMBevelControl(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	__property Extctrls::TBevel* Bevel = {read=FBevel};
};


class DELPHICLASS TRMSpeedButtonControl;
class PASCALIMPLEMENTATION TRMSpeedButtonControl : public TRMCustomControl 
{
	typedef TRMCustomControl inherited;
	
private:
	Buttons::TSpeedButton* FSpeedButton;
	AnsiString __fastcall GetCaption();
	void __fastcall SetCaption(AnsiString Value);
	
public:
	/* virtual class method */ virtual void __fastcall DefaultSize(TMetaClass* vmt, int &aKx, int &aKy);
	__fastcall virtual TRMSpeedButtonControl(void);
	__fastcall virtual ~TRMSpeedButtonControl(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	__property Buttons::TSpeedButton* SpeedButton = {read=FSpeedButton};
	
__published:
	__property Font ;
	__property TabOrder ;
	__property AnsiString Caption = {read=GetCaption, write=SetCaption};
};


class DELPHICLASS TRMBitBtnControl;
class PASCALIMPLEMENTATION TRMBitBtnControl : public TRMCustomControl 
{
	typedef TRMCustomControl inherited;
	
private:
	Buttons::TBitBtn* FBitBtn;
	AnsiString __fastcall GetCaption();
	void __fastcall SetCaption(AnsiString Value);
	bool __fastcall GetCancel(void);
	void __fastcall SetCancel(bool Value);
	bool __fastcall GetDefault(void);
	void __fastcall SetDefault(bool Value);
	Controls::TModalResult __fastcall GetModalResult(void);
	void __fastcall SetModalResult(Controls::TModalResult Value);
	Graphics::TBitmap* __fastcall GetGlyph(void);
	void __fastcall SetGlyph(Graphics::TBitmap* Value);
	Buttons::TBitBtnKind __fastcall GetKind(void);
	void __fastcall SetKind(Buttons::TBitBtnKind Value);
	Buttons::TButtonLayout __fastcall GetLayout(void);
	void __fastcall SetLayout(Buttons::TButtonLayout Value);
	int __fastcall GetNumGlyphs(void);
	void __fastcall SetNumGlyphs(int Value);
	int __fastcall GetSpacing(void);
	void __fastcall SetSpacing(int Value);
	
public:
	/* virtual class method */ virtual void __fastcall DefaultSize(TMetaClass* vmt, int &aKx, int &aKy);
	__fastcall virtual TRMBitBtnControl(void);
	__fastcall virtual ~TRMBitBtnControl(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	__property Buttons::TBitBtn* BitBtn = {read=FBitBtn};
	
__published:
	__property Font ;
	__property TabOrder ;
	__property AnsiString Caption = {read=GetCaption, write=SetCaption};
	__property bool Cancel = {read=GetCancel, write=SetCancel, nodefault};
	__property bool Default = {read=GetDefault, write=SetDefault, nodefault};
	__property Controls::TModalResult ModalResult = {read=GetModalResult, write=SetModalResult, nodefault};
	__property Graphics::TBitmap* Glyph = {read=GetGlyph, write=SetGlyph};
	__property Buttons::TBitBtnKind Kind = {read=GetKind, write=SetKind, nodefault};
	__property Buttons::TButtonLayout Layout = {read=GetLayout, write=SetLayout, nodefault};
	__property int NumGlyphs = {read=GetNumGlyphs, write=SetNumGlyphs, nodefault};
	__property int Spacing = {read=GetSpacing, write=SetSpacing, nodefault};
};


//-- var, const, procedure ---------------------------------------------------

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

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