advglassbutton.hpp

来自「TMSPack基本上涵盖了Delphi所有的基础控件」· HPP 代码 · 共 367 行 · 第 1/2 页

	__property Graphics::TColor OuterBorderColor = {read=FOuterBorderColor, write=SetOuterBorderColor, nodefault};
	__property Graphics::TColor ShineColor = {read=FShineColor, write=SetShineColor, nodefault};
	__property Graphics::TColor GlowColor = {read=FGlowColor, write=SetGlowColor, nodefault};
	__property Advglowbutton::TButtonLayout Layout = {read=FLayout, write=SetLayout, default=0};
	__property bool ShowCaption = {read=FShowCaption, write=SetShowCaption, default=1};
	__property bool ShowFocusRect = {read=FShowFocusRect, write=SetShowFocusRect, default=0};
	__property int CornerRadius = {read=FCornerRadius, write=SetCornerRadius, default=4};
	__property TBackGroundSymbol BackGroundSymbol = {read=FBackGroundSymbol, write=SetBackGroundSymbol, default=13};
	__property Graphics::TColor BackGroundSymbolColor = {read=FBackGroundSymbolColor, write=SetBackGroundSymbolColor, default=16777215};
	__property TButtonShape ButtonShape = {read=FButtonShape, write=SetButtonShape, default=0};
	__property TButtonDirection ButtonDirection = {read=FButtonDirection, write=SetButtonDirection, default=1};
	__property bool ForceTransparent = {read=FForceTransparent, write=SetForceTransparent, default=0};
	__property Constraints ;
	__property bool Grouped = {read=FGrouped, write=SetGrouped, default=0};
	__property int GroupIndex = {read=FGroupIndex, write=SetGroupIndex, default=0};
	__property bool Down = {read=FDown, write=SetDown, default=0};
	__property Enabled  = {default=1};
	__property Font ;
	__property bool Hot = {read=GetHot, write=SetHot, default=0};
	__property Gdipicture::TGDIPPicture* Picture = {read=FIPicture, write=SetIPicture};
	__property Gdipicture::TGDIPPicture* PictureHot = {read=FIPictureHot, write=SetIPictureHot};
	__property Gdipicture::TGDIPPicture* PictureDown = {read=FIPictureDown, write=SetIPictureDown};
	__property Gdipicture::TGDIPPicture* PictureDisabled = {read=FIPictureDisabled, write=SetIPictureDisabled};
	__property ParentFont  = {default=1};
	__property ParentShowHint  = {default=1};
	__property ParentBiDiMode  = {default=1};
	__property PopupMenu ;
	__property ShowHint ;
	__property Advhintinfo::TAdvHintInfo* OfficeHint = {read=FOfficeHint, write=SetOfficeHint};
	__property TAdvToolButtonStyle Style = {read=FStyle, write=SetStyle, default=0};
	__property AnsiString ShortCutHint = {read=FShortCutHintText, write=FShortCutHintText};
	__property Advglowbutton::TShortCutHintPos ShortCutHintPos = {read=FShortCutHintPos, write=FShortCutHintPos, default=1};
	__property AnsiString Version = {read=GetVersion, write=SetVersion};
	__property Visible  = {default=1};
	__property OnClick ;
	__property OnDblClick ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property Classes::TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter};
	__property Classes::TNotifyEvent OnMouseLeave = {read=FOnMouseLeave, write=FOnMouseLeave};
	
public:
	__fastcall virtual TAdvCustomGlassButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvCustomGlassButton(void);
	DYNAMIC void __fastcall Click(void);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	virtual int __fastcall GetVersionNr(void);
	void __fastcall ShowShortCutHint(void);
	void __fastcall HideShortCutHint(void);
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvCustomGlassButton(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TAdvGlassButtonActionLink : public Controls::TControlActionLink 
{
	typedef Controls::TControlActionLink inherited;
	
protected:
	TAdvCustomGlassButton* FClient;
	virtual void __fastcall AssignClient(System::TObject* AClient);
	virtual bool __fastcall IsCheckedLinked(void);
	virtual bool __fastcall IsGroupIndexLinked(void);
	virtual void __fastcall SetGroupIndex(int Value);
	virtual void __fastcall SetChecked(bool Value);
public:
	#pragma option push -w-inl
	/* TBasicActionLink.Create */ inline __fastcall virtual TAdvGlassButtonActionLink(System::TObject* AClient) : Controls::TControlActionLink(AClient) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBasicActionLink.Destroy */ inline __fastcall virtual ~TAdvGlassButtonActionLink(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvGlassButton;
class PASCALIMPLEMENTATION TAdvGlassButton : public TAdvCustomGlassButton 
{
	typedef TAdvCustomGlassButton inherited;
	
__published:
	__property Action ;
	__property AllowAllUp  = {default=0};
	__property Anchors  = {default=3};
	__property AntiAlias  = {default=1};
	__property BackColor ;
	__property BackGroundSymbol  = {default=13};
	__property BackGroundSymbolColor  = {default=16777215};
	__property ButtonDirection  = {default=1};
	__property ButtonShape  = {default=0};
	__property Caption ;
	__property Constraints ;
	__property CornerRadius  = {default=4};
	__property Down  = {default=0};
	__property Enabled  = {default=1};
	__property Font ;
	__property ForeColor ;
	__property ForceTransparent  = {default=0};
	__property GlowColor ;
	__property GroupIndex  = {default=0};
	__property InnerBorderColor ;
	__property Layout  = {default=0};
	__property OfficeHint ;
	__property OuterBorderColor ;
	__property Picture ;
	__property PictureDown ;
	__property PictureDisabled ;
	__property ParentFont  = {default=1};
	__property ParentShowHint  = {default=1};
	__property ParentBiDiMode  = {default=1};
	__property PopupMenu ;
	__property ShineColor ;
	__property ShortCutHint ;
	__property ShortCutHintPos  = {default=1};
	__property ShowCaption  = {default=1};
	__property ShowFocusRect  = {default=0};
	__property ShowHint ;
	__property Style  = {default=0};
	__property TabStop  = {default=0};
	__property Version ;
	__property Visible  = {default=1};
	__property OnClick ;
	__property OnDblClick ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnMouseEnter ;
	__property OnMouseLeave ;
public:
	#pragma option push -w-inl
	/* TAdvCustomGlassButton.Create */ inline __fastcall virtual TAdvGlassButton(Classes::TComponent* AOwner) : TAdvCustomGlassButton(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TAdvCustomGlassButton.Destroy */ inline __fastcall virtual ~TAdvGlassButton(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvGlassButton(HWND ParentWindow) : TAdvCustomGlassButton(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TProWinCtrl;
class PASCALIMPLEMENTATION TProWinCtrl : public Controls::TWinControl 
{
	typedef Controls::TWinControl inherited;
	
public:
	#pragma option push -w-inl
	/* TWinControl.Create */ inline __fastcall virtual TProWinCtrl(Classes::TComponent* AOwner) : Controls::TWinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TProWinCtrl(HWND ParentWindow) : Controls::TWinControl(ParentWindow) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.Destroy */ inline __fastcall virtual ~TProWinCtrl(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint MAJ_VER = 0x1;
static const Shortint MIN_VER = 0x0;
static const Shortint REL_VER = 0x1;
static const Shortint BLD_VER = 0x0;

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

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