advtoolbar.hpp

TMS component pack v4.2 for delphi

	Advglowbutton::TButtonPosition FButtonPosition;
	bool FMouseDown;
	TScrollArrow FScrollArrow;
	TArrowStyle FArrowStyle;
	bool FDown;
	void __fastcall AppearanceChanged(System::TObject* Sender);
	HIDESBASE MESSAGE void __fastcall CMHintShow(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMSysColorChange(Messages::TMessage &Message);
	MESSAGE void __fastcall WMEraseBkGnd(Messages::TWMEraseBkgnd &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	void __fastcall SetAppearance(const Advglowbutton::TGlowButtonAppearance* Value);
	void __fastcall SetTransparent(const bool Value);
	void __fastcall SetButtonPosition(const Advglowbutton::TButtonPosition Value);
	void __fastcall SetScrollArrow(const TScrollArrow Value);
	void __fastcall SetArrowStyle(const TArrowStyle Value);
	void __fastcall SetDown(const bool Value);
	
protected:
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	virtual void __fastcall Loaded(void);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall Paint(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation AOperation);
	__property Advglowbutton::TGlowButtonAppearance* Appearance = {read=FAppearance, write=SetAppearance};
	__property bool Down = {read=FDown, write=SetDown, nodefault};
	__property Enabled  = {default=1};
	__property Font ;
	__property Advglowbutton::TButtonPosition Position = {read=FButtonPosition, write=SetButtonPosition, default=0};
	__property bool Transparent = {read=FTransparent, write=SetTransparent, default=0};
	__property TScrollArrow ScrollArrow = {read=FScrollArrow, write=SetScrollArrow, nodefault};
	__property TArrowStyle ArrowStyle = {read=FArrowStyle, write=SetArrowStyle, nodefault};
	__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 TAdvVistaButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvVistaButton(void);
	DYNAMIC void __fastcall Click(void);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
};


class DELPHICLASS TOptionSelectorWindow;
class DELPHICLASS TOptionSelectorPanel;
class PASCALIMPLEMENTATION TOptionSelectorPanel : public Extctrls::TCustomPanel 
{
	typedef Extctrls::TCustomPanel inherited;
	
private:
	Classes::TComponent* FOwner;
	Graphics::TColor FColorTo;
	TGradientDirection FGradientDirection;
	Graphics::TColor FWindowBorderColor;
	Classes::TNotifyEvent FOnShouldHide;
	int FMarginY;
	int FMarginX;
	TAdvCustomToolBar* FAdvToolBar;
	TAdvQuickAccessToolBar* FAdvQuickAccessToolBar;
	void __fastcall SetColorTo(const Graphics::TColor Value);
	void __fastcall SetGradientDirection(const TGradientDirection Value);
	void __fastcall SetWindowBorderColor(const Graphics::TColor Value);
	void __fastcall SetMarginX(const int Value);
	void __fastcall SetMarginY(const int Value);
	
protected:
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	virtual int __fastcall GetVisibleHeight(void);
	virtual void __fastcall DoHide(void);
	__property Classes::TNotifyEvent OnShouldHide = {read=FOnShouldHide, write=FOnShouldHide};
	__property int MarginX = {read=FMarginX, write=SetMarginX, nodefault};
	__property int MarginY = {read=FMarginY, write=SetMarginY, nodefault};
	
public:
	__fastcall virtual TOptionSelectorPanel(Classes::TComponent* AOwner);
	
__published:
	__property Graphics::TColor ColorTo = {read=FColorTo, write=SetColorTo, default=536870911};
	__property Graphics::TColor WindowBorderColor = {read=FWindowBorderColor, write=SetWindowBorderColor, default=8421504};
	__property TGradientDirection GradientDirection = {read=FGradientDirection, write=SetGradientDirection, nodefault};
	__property TAdvCustomToolBar* AdvToolBar = {read=FAdvToolBar, write=FAdvToolBar};
	__property TAdvQuickAccessToolBar* AdvQuickAccessToolBar = {read=FAdvQuickAccessToolBar, write=FAdvQuickAccessToolBar};
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TOptionSelectorPanel(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TOptionSelectorPanel(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TOptionSelectorWindow : public Forms::TCustomForm 
{
	typedef Forms::TCustomForm inherited;
	
private:
	TAdvCustomToolBar* FAdvToolBar;
	TOptionSelectorPanel* FOptionsPanel;
	bool FHideOnDeActivate;
	bool FShowAbove;
	Classes::TComponent* FOwner;
	Extctrls::TTimer* FHideTimer;
	bool FShowLeft;
	HIDESBASE MESSAGE void __fastcall WMActivate(Messages::TWMActivate &Message);
	HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Message);
	void __fastcall HideTimerOnTime(System::TObject* Sender);
	
protected:
	DYNAMIC void __fastcall Paint(void);
	HWND __fastcall GetParentWnd(void);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	DYNAMIC void __fastcall DoHide(void);
	__property bool HideOnDeActivate = {read=FHideOnDeActivate, write=FHideOnDeActivate, nodefault};
	__property bool ShowAbove = {read=FShowAbove, write=FShowAbove, nodefault};
	__property bool ShowLeft = {read=FShowLeft, write=FShowLeft, default=0};
	
public:
	__fastcall virtual TOptionSelectorWindow(Classes::TComponent* AOwner);
	__fastcall virtual TOptionSelectorWindow(Classes::TComponent* AOwner, int Dummy);
	__fastcall virtual ~TOptionSelectorWindow(void);
	void __fastcall SetWindowSize(void);
	
__published:
	__property TAdvCustomToolBar* AdvToolBar = {read=FAdvToolBar, write=FAdvToolBar};
	__property TOptionSelectorPanel* OptionsPanel = {read=FOptionsPanel, write=FOptionsPanel};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TOptionSelectorWindow(HWND ParentWindow) : Forms::TCustomForm(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TControlSelectorPanel;
class DELPHICLASS TSelectorItem;
class PASCALIMPLEMENTATION TSelectorItem : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	int FHeight;
	AnsiString FCaption;
	#pragma pack(push,1)
	Types::TRect FBRect;
	#pragma pack(pop)
	int FWidth;
	void __fastcall SetCaption(const AnsiString Value);
	void __fastcall SetHeight(const int Value);
	void __fastcall SetWidth(const int Value);
	
protected:
	__property Types::TRect BRect = {read=FBRect, write=FBRect};
	
public:
	__fastcall TSelectorItem(void);
	__fastcall virtual ~TSelectorItem(void);
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
	__property int Height = {read=FHeight, write=SetHeight, nodefault};
	__property int Width = {read=FWidth, write=SetWidth, nodefault};
};


class DELPHICLASS TATBPopupWindow;
class DELPHICLASS TATBPopupPanel;
class DELPHICLASS TATBCustomPopupPanel;
class PASCALIMPLEMENTATION TATBCustomPopupPanel : public Extctrls::TCustomPanel 
{
	typedef Extctrls::TCustomPanel inherited;
	
private:
	Classes::TComponent* FOwner;
	Graphics::TColor FColorTo;
	TGradientDirection FGradientDirection;
	Graphics::TColor FWindowBorderColor;
	Classes::TNotifyEvent FOnShouldHide;
	int FMarginY;
	int FMarginX;
	void __fastcall SetColorTo(const Graphics::TColor Value);
	void __fastcall SetGradientDirection(const TGradientDirection Value);
	void __fastcall SetWindowBorderColor(const Graphics::TColor Value);
	void __fastcall SetMarginX(const int Value);
	void __fastcall SetMarginY(const int Value);
	
protected:
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	virtual int __fastcall GetVisibleHeight(void);
	__property Classes::TNotifyEvent OnShouldHide = {read=FOnShouldHide, write=FOnShouldHide};
	__property int MarginX = {read=FMarginX, write=SetMarginX, nodefault};
	__property int MarginY = {read=FMarginY, write=SetMarginY, nodefault};
	
public:
	__fastcall virtual TATBCustomPopupPanel(Classes::TComponent* AOwner);
	
__published:
	__property Graphics::TColor ColorTo = {read=FColorTo, write=SetColorTo, default=536870911};
	__property Graphics::TColor WindowBorderColor = {read=FWindowBorderColor, write=SetWindowBorderColor, default=8421504};
	__property TGradientDirection GradientDirection = {read=FGradientDirection, write=SetGradientDirection, nodefault};
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TATBCustomPopupPanel(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TATBCustomPopupPanel(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TATBMenuItem;
class PASCALIMPLEMENTATION TATBMenuItem : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	TATBMenuItem* operator[](int Index) { return Items[Index]; }
	
private:
	bool FEnabled;
	bool FVisible;
	#pragma pack(push,1)
	Types::TRect FBoundRect;
	#pragma pack(pop)
	Classes::TList* FItems;
	TATBMenuItem* FParentItem;
	int FHeight;
	AnsiString FCaption;
	int FWidth;
	bool FChecked;
	AnsiString FHint;
	bool FAutoCheck;
	System::TObject* FObjects;
	void __fastcall SetCaption(const AnsiString Value);
	void __fastcall SetHeight(const int Value);
	void __fastcall SetWidth(const int Value);
	int __fastcall GetCount(void);
	TATBMenuItem* __fastcall GetItem(int Index);
	void __fastcall SetChecked(const bool Value);
	void __fastcall SetEnabled(const bool Value);
	void __fastcall SetFParentItem(const TATBMenuItem* Value);
	void __fastcall SetVisible(const bool Value);
	void __fastcall SetAutoCheck(const bool Value);
	
protected:
	__property Types::TRect BoundRect = {read=FBoundRect, write=FBoundRect};
	
public:
	__fastcall TATBMenuItem(void);
	__fastcall virtual ~TATBMenuItem(void);
	void __fastcall Clear(void);
	bool __fastcall HasChildren(void);
	TATBMenuItem* __fastcall Add(void);
	void __fastcall RemoveItem(int ItemIndex);
	__property bool AutoCheck = {read=FAutoCheck, write=SetAutoCheck, nodefault};
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
	__property int Height = {read=FHeight, write=SetHeight, nodefault};
	__property int Width = {read=FWidth, write=SetWidth, nodefault};
	__property bool Checked = {read=FChecked, write=SetChecked, nodefault};
	__property bool Enabled = {read=FEnabled, write=SetEnabled, nodefault};
	__property AnsiString Hint = {read=FHint, write=FHint};
	__property bool Visible = {read=FVisible, write=SetVi