toolpanels.hpp

TMS component pack v4.2 for delphi

	void __fastcall SetBackgroundTransparent(bool Value);
	void __fastcall SetStyle(const TToolPanelStyle Value);
	void __fastcall SetComponentStyle(Advstyleif::TTMSStyle AStyle);
	void __fastcall SetColorEx(const Graphics::TColor Value);
	Graphics::TColor __fastcall GetColorEx(void);
	void __fastcall SetVersion(const AnsiString Value);
	AnsiString __fastcall GetVersion();
	int __fastcall GetVersionNr(void);
	int __fastcall GetSectionHeight(void);
	void __fastcall SetSectionImages(Controls::TImageList* Value);
	
protected:
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall Resize(void);
	virtual void __fastcall AlignControls(Controls::TControl* AControl, Types::TRect &Rect);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation AOperation);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	virtual void __fastcall CreateWnd(void);
	__property bool Restored = {read=FRestored, write=FRestored, default=0};
	__property AnsiString TabName = {read=FTabName, write=FTabName};
	bool __fastcall HasFocusControl(void);
	void __fastcall UpdateControlPos(int SectionIndex, int Diff);
	void __fastcall UpdateControlPosBelowSection(int SectionIndex, int Diff);
	int __fastcall PtOnAnyItem(int X, int Y, int &SectionIndex, Types::TRect &ItemRect);
	__property int SectionHeight = {read=GetSectionHeight, nodefault};
	
public:
	__fastcall virtual TAdvToolPanel(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvToolPanel(void);
	DYNAMIC void __fastcall DoEnter(void);
	DYNAMIC void __fastcall DoExit(void);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	DYNAMIC void __fastcall DoEndDock(System::TObject* Target, int X, int Y);
	DYNAMIC void __fastcall DoStartDock(Controls::TDragObject* &DragObject);
	__property TAdvToolPanelTab* Tab = {read=FTab, write=FTab};
	__property bool Locked = {read=FLocked, write=SetLocked, nodefault};
	__property bool Hidden = {read=FHidden, write=SetHidden, nodefault};
	__property bool Docking = {read=FDocking, write=SetDocking, nodefault};
	__property bool IsVisible = {read=GetIsVisible, nodefault};
	void __fastcall SetTopMost(void);
	
__published:
	__property Alignment  = {default=2};
	__property bool AllowDocking = {read=FAllowDocking, write=FAllowDocking, default=1};
	__property bool AutoLock = {read=FAutoLock, write=FAutoLock, default=0};
	__property Graphics::TBitmap* Background = {read=FBackGround, write=SetBackground};
	__property bool BackgroundTransparent = {read=FBackgroundTransparent, write=SetBackgroundTransparent, nodefault};
	__property TTPBackGroundPosition BackGroundPosition = {read=FBackGroundPosition, write=SetBackGroundPosition, nodefault};
	__property BevelInner  = {default=0};
	__property BevelOuter  = {default=2};
	__property BevelWidth  = {default=1};
	__property BorderStyle  = {default=0};
	__property BorderWidth  = {default=0};
	__property bool Button3D = {read=FButton3D, write=FButton3D, default=1};
	__property Graphics::TColor HoverButtonColor = {read=FHoverButtonColor, write=FHoverButtonColor, nodefault};
	__property Graphics::TColor HoverButtonColorTo = {read=FHoverButtonColorTo, write=FHoverButtonColorTo, nodefault};
	__property Graphics::TColor DownButtonColor = {read=FDownButtonColor, write=FDownButtonColor, nodefault};
	__property Graphics::TColor DownButtonColorTo = {read=FDownButtonColorTo, write=FDownButtonColorTo, nodefault};
	__property bool CaptionButton = {read=FCaptionButton, write=SetCaptionButton, nodefault};
	__property Graphics::TColor Color = {read=GetColorEx, write=SetColorEx, default=16771030};
	__property Graphics::TColor ColorTo = {read=FColorTo, write=SetColorTo, nodefault};
	__property TGradientDirection GradientDirection = {read=FGradientDirection, write=SetGradientDirection, default=0};
	__property Cursor  = {default=0};
	__property bool DockDots = {read=FDockDots, write=SetDockDots, nodefault};
	__property Hint ;
	__property PopupMenu ;
	__property bool CanSize = {read=FCanSize, write=FCanSize, default=1};
	__property AnsiString Caption = {read=GetCaptionEx, write=SetCaptionEx};
	__property Font ;
	__property TGradientDirection CaptionGradientDirection = {read=FCaptionGradientDirection, write=SetCaptionGradientDirection, nodefault};
	__property int ImageIndex = {read=FImageIndex, write=SetImageIndex, default=-1};
	__property Graphics::TColor FocusCaptionFontColor = {read=FFocusCaptionFontColor, write=SetFocusCaptionFontColor, nodefault};
	__property Graphics::TColor FocusCaptionColor = {read=FFocusCaptionColor, write=SetFocusCaptionColor, nodefault};
	__property Graphics::TColor FocusCaptionColorTo = {read=FFocusCaptionColorTo, write=SetFocusCaptionColorTo, nodefault};
	__property Graphics::TColor NoFocusCaptionFontColor = {read=FNoFocusCaptionFontColor, write=SetNoFocusCaptionFontColor, nodefault};
	__property Graphics::TColor NoFocusCaptionColor = {read=FNoFocusCaptionColor, write=SetNoFocusCaptionColor, nodefault};
	__property Graphics::TColor NoFocusCaptionColorTo = {read=FNoFocusCaptionColorTo, write=SetNoFocusCaptionColorTo, nodefault};
	__property int OpenWidth = {read=FOpenWidth, write=SetOpenWidth, default=150};
	__property AnsiString CloseHint = {read=FCLoseHint, write=FCLoseHint};
	__property AnsiString LockHint = {read=FLockHint, write=FLockHint};
	__property AnsiString UnlockHint = {read=FUnlockHint, write=FUnlockHint};
	__property TAdvToolPanelSections* Sections = {read=FSections, write=FSections};
	__property TSectionLayout* SectionLayout = {read=FSectionLayout, write=FSectionLayout};
	__property Controls::TImageList* SectionImages = {read=FSectionImages, write=SetSectionImages};
	__property bool ShowCaption = {read=FShowCaption, write=SetShowCaption, default=1};
	__property bool ShowCaptionBorder = {read=FShowCaptionBorder, write=SetShowCaptionBorder, default=1};
	__property bool ShowClose = {read=FShowClose, write=SetShowClose, default=1};
	__property bool ShowLock = {read=FShowLock, write=SetShowLock, default=1};
	__property ShowHint ;
	__property TToolPanelStyle Style = {read=FStyle, write=SetStyle, default=0};
	__property AnsiString Version = {read=GetVersion, write=SetVersion};
	__property TOnCaptionButtonClick OnCaptionBtnClick = {read=FOnCaptionBtnClick, write=FOnCaptionBtnClick};
	__property OnClick ;
	__property OnDblClick ;
	__property OnContextPopup ;
	__property OnDockDrop ;
	__property OnDockOver ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDock ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnGetSiteInfo ;
	__property TOnItemClick OnItemClick = {read=FOnItemClick, write=FOnItemClick};
	__property OnMouseDown ;
	__property OnMouseUp ;
	__property OnMouseMove ;
	__property TNodeExpandEvent OnNodeExpand = {read=FOnNodeExpand, write=FOnNodeExpand};
	__property TNodeExpandEvent OnNodeCollapse = {read=FOnNodeCollapse, write=FOnNodeCollapse};
	__property OnResize ;
	__property OnStartDock ;
	__property OnStartDrag ;
	__property OnUnDock ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvToolPanel(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { }
	#pragma option pop
	
private:
	void *__ITMSStyle;	/* Advstyleif::ITMSStyle */
	
public:
	operator ITMSStyle*(void) { return (ITMSStyle*)&__ITMSStyle; }
	
};


class PASCALIMPLEMENTATION TToolPanel : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	int FTag;
	TAdvToolPanel* FPanel;
	AnsiString FCaption;
	bool FVisible;
	int FImageIndex;
	TPanelState FState;
	int FOpenWidth;
	void __fastcall SetCaption(const AnsiString Value);
	void __fastcall SetVisible(const bool Value);
	void __fastcall SetImageIndex(const int Value);
	void __fastcall SetState(const TPanelState Value);
	void __fastcall SetOpenWidth(const int Value);
	
public:
	__fastcall virtual TToolPanel(Classes::TCollection* Collection);
	__fastcall virtual ~TToolPanel(void);
	__property TAdvToolPanel* Panel = {read=FPanel, write=FPanel};
	
__published:
	__property int Tag = {read=FTag, write=FTag, nodefault};
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
	__property bool Visible = {read=FVisible, write=SetVisible, nodefault};
	__property int ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
	__property TPanelState State = {read=FState, write=SetState, nodefault};
	__property int OpenWidth = {read=FOpenWidth, write=SetOpenWidth, nodefault};
};


class DELPHICLASS TSectionItem;
class PASCALIMPLEMENTATION TSectionItem : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	int FImageIndex;
	AnsiString FCaption;
	AnsiString FHint;
	bool FEnabled;
	int FTag;
	System::TObject* FObject;
	void __fastcall SetCaption(const AnsiString Value);
	void __fastcall SetImageIndex(const int Value);
	void __fastcall SetEnabled(const bool Value);
	
protected:
	virtual AnsiString __fastcall GetDisplayName();
	
public:
	__fastcall virtual TSectionItem(Classes::TCollection* Collection);
	__fastcall virtual ~TSectionItem(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property System::TObject* ItemObject = {read=FObject, write=FObject};
	
__published:
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
	__property bool Enabled = {read=FEnabled, write=SetEnabled, nodefault};
	__property AnsiString Hint = {read=FHint, write=FHint};
	__property int ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
	__property int Tag = {read=FTag, write=FTag, nodefault};
};


class DELPHICLASS TSectionItems;
class PASCALIMPLEMENTATION TSectionItems : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TSectionItem* operator[](int Index) { return Items[Index]; }
	
private:
	TAdvToolPanel* FOwner;
	Classes::TNotifyEvent FOnItemAdd;
	Classes::TNotifyEvent FOnItemDelete;
	TAdvToolPanelSection* FAdvToolPanelSection;
	HIDESBASE TSectionItem* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, const TSectionItem* Value);
	
protected:
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	__property TAdvToolPanelSection* AdvToolPanelSection = {read=FAdvToolPanelSection, write=FAdvToolPanelSection};
	
public:
	__fastcall TSectionItems(TAdvToolPanel* AOwner);
	HIDESBASE TSectionItem* __fastcall Add(void);
	HIDESBASE TSectionItem* __fastcall Insert(int Index);
	__property TSectionItem* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
	__property Classes::TNotifyEvent OnItemAdd = {read=FOnItemAdd, write=FOnItemAdd};
	__property Classes::TNotifyEvent OnItemDelete = {read=FOnItemDelete, write=FOnItemDelete};
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TSectionItems(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TAdvToolPanelSection : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	int FHeight;
	int FActHeight;
	AnsiString FCaption;
	TSectionItems* FSectionItems;
	int FCaptionImageIndex;
	bool FNode;
	bool FExpanded;
	bool FDraw;
	bool FAutosize;
	int FSectionItemHeight;
	bool FInternalCall;
	Classes::TList* FControlList;
	void __fastcall SetCaption(const AnsiString Value);
	void __fastcall SetHeight(const int Value);
	void __fastcall SetCaptionImageIndex(const int Value);
	void __fastcall SetNode(const bool Value);
	void __fastcall SetExpanded(const bool Value);
	__property int ActualHeight = {read=FActHeight, nodefault};
	void __fastcall SetDraw(const bool Value);
	void __fastcall SetAutosize(const bool Value);
	void __fastcall OnSectionItemsAdd(System::TObject* Sender);
	void __fastcall OnSectionItemsDelete(System::TObject* Sender);
	
protected:
	virtual AnsiString __fastcall GetDisplayName();
	__property Classes::TList* ControlList = {read=FControlList};
	
public:
	__fastcall virtual TAdvToolPanelSection(Classes::TCollection* Collection);
	__fastcall virtual ~TAdvToolPanelSection(void);
	__property bool Expanded = {read=FExpanded, write=SetExpanded, default=1};
	
__published:
	__property bool Autosize = {read=FAutosize, write=SetAutosize, nodefault};
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
	__property bool Draw = {read=FDraw, write=SetDraw, nodefault};
	__property TSectionItems* SectionItems = {read=FSectionItems, write=FSectionItems};
	__property int Height = {read=FHeight, write=SetHeight, nodefault};
	__property bool Node = {read=FNode, write=SetNode, default=0};
	__property int CaptionImageIndex = {read=FCaptionImageIndex, write=SetCaptionImageIndex, nodefault};
};


typedef void __fastcall (__closure *TNodeCollapseEvent)(System::TObject* Sender, int SectionIndex);

//-- var, const, procedure ---------------------------------------------------
static const Shortint SECTION_HEIGHT = 0x10;
static const Shortint NODEBTN_SIZE = 0x8;
static const Shortint MAJ_VER = 0x1;
static const Shortint MIN_VER = 0x4;
static const Shortint REL_VER = 0x2;
static const Shortint BLD_VER = 0x1;

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

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