advofficetabset.hpp

TMS component pack v4.2 for delphi

	bool FUseMaxSpace;
	bool FFreeOnClose;
	TDummyHintControl* FDummyHintControl;
	bool FTabRearrange;
	TTabMovedEvent FOnTabMoved;
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
	HIDESBASE MESSAGE void __fastcall CMVisibleChanged(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMShowingChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMControlChange(Controls::TCMControlChange &Message);
	HIDESBASE MESSAGE void __fastcall CMControlListChange(Controls::TCMControlListChange &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Msg);
	HIDESBASE MESSAGE void __fastcall CMDesignHitTest(Messages::TWMMouse &Msg);
	HIDESBASE MESSAGE void __fastcall CMHintShow(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Msg);
	HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
	void __fastcall OnTabSettingsChanged(System::TObject* Sender);
	void __fastcall OnButtonSettingChanged(System::TObject* Sender);
	void __fastcall OnCloseButtonClick(System::TObject* Sender);
	void __fastcall OnTabListButtonClick(System::TObject* Sender);
	void __fastcall OnTabListMenuClick(System::TObject* Sender);
	void __fastcall OnScrollPrevButtonClick(System::TObject* Sender);
	void __fastcall OnScrollNextButtonClick(System::TObject* Sender);
	void __fastcall OnEnterTab(int TabIndex);
	void __fastcall OnExitTab(int TabIndex);
	void __fastcall SetOfficeTabSetStyler(const TCustomAdvOfficeTabSetStyler* Value);
	Menus::TPopupMenu* __fastcall GetPopupMenuEx(void);
	void __fastcall SetPopupMenuEx(const Menus::TPopupMenu* Value);
	void __fastcall SetShowNonSelectedTabs(const bool Value);
	int __fastcall GetActiveTabIndex(void);
	void __fastcall SetActiveTabIndex(const int Value);
	void __fastcall SetTabSettings(const TTabSetTabSettings* Value);
	void __fastcall SetImages(const Imglist::TCustomImageList* Value);
	void __fastcall SetDisabledImages(const Imglist::TCustomImageList* Value);
	AnsiString __fastcall GetVersion();
	void __fastcall SetVersion(const AnsiString Value);
	void __fastcall SetOfficeHint(const Advhintinfo::TAdvHintInfo* Value);
	void __fastcall SetTabPosition(const Comctrls::TTabPosition Value);
	void __fastcall SetAntiAlias(const Advgdip::TAntiAlias Value);
	void __fastcall SetButtonSettings(const TTabSetButtonSettings* Value);
	void __fastcall SetTabListMenu(const Menus::TPopupMenu* Value);
	void __fastcall SetCloseOnTab(const bool Value);
	void __fastcall SetRotateTabLeftRight(const bool Value);
	void __fastcall SetAdvOfficeTabs(TOfficeTabCollection* Value);
	
protected:
	virtual void __fastcall AlignControls(Controls::TControl* AControl, Types::TRect &ARect);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	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);
	virtual void __fastcall AdjustClientRect(Types::TRect &Rect);
	DYNAMIC void __fastcall DragOver(System::TObject* Source, int X, int Y, Controls::TDragState State, bool &Accept);
	void __fastcall DrawTab(int TabIndex);
	void __fastcall DrawAllTabs(void);
	void __fastcall DrawTabScrollButtons(void);
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall SetChildOrder(Classes::TComponent* Child, int Order);
	void __fastcall UpdateMe(int PropID);
	virtual void __fastcall ChangeActiveTab(int TabIndex);
	void __fastcall UpdateTabScroller(void);
	void __fastcall ScrollLeftBtnClick(void);
	void __fastcall ScrollRightBtnClick(void);
	void __fastcall InitializeAndUpdateButtons(void);
	bool __fastcall AnyButtonVisible(void);
	bool __fastcall CanShowTab(int TabIndex);
	int __fastcall GetVisibleTabCount(void);
	virtual void __fastcall BeforeCloseTab(TOfficeTabCollectionItem* Tab);
	void __fastcall InvalidateTab(int TabIndex);
	Types::TRect __fastcall GetButtonsRect();
	Types::TRect __fastcall GetTabsArea();
	Types::TRect __fastcall GetTabsRect();
	Types::TRect __fastcall GetTabRect(int StartIndex, int TabIndex, bool ConsiderTabScroller)/* overload */;
	Types::TRect __fastcall GetTabRect(int TabIndex)/* overload */;
	int __fastcall PTOnTab(int X, int Y);
	Types::TRect __fastcall GetCloseButtonRect();
	Types::TRect __fastcall GetTabListRect();
	Types::TRect __fastcall GetTabScrollerRect();
	Types::TRect __fastcall GetTabScrollerLeftRect();
	Types::TRect __fastcall GetTabScrollerRightRect();
	bool __fastcall PtOnTabScrollLeftBtn(int X, int Y);
	bool __fastcall PtOnTabScrollRightBtn(int X, int Y);
	__property TOfficeTabCollection* AdvOfficeTabs = {read=FAdvOfficeTabs, write=SetAdvOfficeTabs};
	__property TCustomAdvOfficeTabSetStyler* AdvOfficeTabSetStyler = {read=FOfficeTabSetStyler, write=SetOfficeTabSetStyler};
	__property int ActiveTabIndex = {read=GetActiveTabIndex, write=SetActiveTabIndex, nodefault};
	__property Advgdip::TAntiAlias AntiAlias = {read=FAntiAlias, write=SetAntiAlias, default=1};
	__property TTabSetButtonSettings* ButtonSettings = {read=FButtonSettings, write=SetButtonSettings};
	__property bool CloseOnTab = {read=FCloseOnTab, write=SetCloseOnTab, default=0};
	__property Imglist::TCustomImageList* DisabledImages = {read=FDisabledImages, write=SetDisabledImages};
	__property bool FreeOnClose = {read=FFreeOnClose, write=FFreeOnClose, default=0};
	__property Imglist::TCustomImageList* Images = {read=FImages, write=SetImages};
	__property Advhintinfo::TAdvHintInfo* OfficeHint = {read=FOfficeHint, write=SetOfficeHint};
	__property Menus::TPopupMenu* TabListMenu = {read=FTabListMenu, write=SetTabListMenu};
	__property Menus::TPopupMenu* PopupMenu = {read=GetPopupMenuEx, write=SetPopupMenuEx};
	__property bool RotateTabLeftRight = {read=FRotateTabLeftRight, write=SetRotateTabLeftRight, default=1};
	__property bool ShowNonSelectedTabs = {read=FShowNonSelectedTabs, write=SetShowNonSelectedTabs, default=0};
	__property bool ShowTabHint = {read=FShowTabHint, write=FShowTabHint, default=0};
	__property Comctrls::TTabPosition TabPosition = {read=FTabPosition, write=SetTabPosition, default=0};
	__property bool TabRearrange = {read=FTabRearrange, write=FTabRearrange, default=0};
	__property TTabSetTabSettings* TabSettings = {read=FTabSettings, write=SetTabSettings};
	__property AnsiString Version = {read=GetVersion, write=SetVersion, stored=false};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
	__property TTabChangingEvent OnChanging = {read=FOnChanging, write=FOnChanging};
	__property TOnTabClose OnTabClose = {read=FOnTabClose, write=FOnTabClose};
	__property TTabMovedEvent OnTabMoved = {read=FOnTabMoved, write=FOnTabMoved};
	__property TOnTabListClick OnTabListClick = {read=FOnTabListClick, write=FOnTabListClick};
	
public:
	__fastcall virtual TAdvCustomOfficeTabSet(Classes::TComponent* AOwner);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	__fastcall virtual ~TAdvCustomOfficeTabSet(void);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	DYNAMIC void __fastcall DragDrop(System::TObject* Source, int X, int Y);
	int __fastcall GetVersionNr(void);
	int __fastcall FindNextTab(int TabIndex, bool GoForward, bool CheckTabVisible);
	void __fastcall SelectNextTab(bool GoForward);
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvCustomOfficeTabSet(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TOfficeTabCollection : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TOfficeTabCollectionItem* operator[](int Index) { return Items[Index]; }
	
private:
	TAdvCustomOfficeTabSet* FOwner;
	HIDESBASE TOfficeTabCollectionItem* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, const TOfficeTabCollectionItem* Value);
	
public:
	__fastcall TOfficeTabCollection(TAdvCustomOfficeTabSet* AOwner);
	__property TOfficeTabCollectionItem* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
	__property TAdvCustomOfficeTabSet* AdvOfficeTabSet = {read=FOwner};
	HIDESBASE TOfficeTabCollectionItem* __fastcall Add(void);
	HIDESBASE void __fastcall Delete(int Index);
	HIDESBASE TOfficeTabCollectionItem* __fastcall Insert(int Index);
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	void __fastcall Move(int CurIndex, int NewIndex);
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TOfficeTabCollection(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvOfficeTabSet;
class PASCALIMPLEMENTATION TAdvOfficeTabSet : public TAdvCustomOfficeTabSet 
{
	typedef TAdvCustomOfficeTabSet inherited;
	
__published:
	__property AdvOfficeTabs ;
	__property AdvOfficeTabSetStyler ;
	__property Align  = {default=0};
	__property Anchors  = {default=3};
	__property ActiveTabIndex ;
	__property AntiAlias  = {default=1};
	__property ButtonSettings ;
	__property Constraints ;
	__property CloseOnTab  = {default=0};
	__property DisabledImages ;
	__property FreeOnClose  = {default=0};
	__property Images ;
	__property OfficeHint ;
	__property TabListMenu ;
	__property PopupMenu ;
	__property RotateTabLeftRight  = {default=1};
	__property ShowNonSelectedTabs  = {default=0};
	__property ShowTabHint  = {default=0};
	__property ShowHint ;
	__property TabPosition  = {default=0};
	__property TabRearrange  = {default=0};
	__property TabSettings ;
	__property Version ;
	__property Visible  = {default=1};
	__property OnChange ;
	__property OnChanging ;
	__property OnTabClose ;
	__property OnTabMoved ;
	__property OnTabListClick ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnResize ;
public:
	#pragma option push -w-inl
	/* TAdvCustomOfficeTabSet.Create */ inline __fastcall virtual TAdvOfficeTabSet(Classes::TComponent* AOwner) : TAdvCustomOfficeTabSet(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TAdvCustomOfficeTabSet.Destroy */ inline __fastcall virtual ~TAdvOfficeTabSet(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvOfficeTabSet(HWND ParentWindow) : TAdvCustomOfficeTabSet(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvOfficeMDITabSet;
class PASCALIMPLEMENTATION TAdvOfficeMDITabSet : public TAdvCustomOfficeTabSet 
{
	typedef TAdvCustomOfficeTabSet inherited;
	
private:
	bool FInternalDelete;
	int __fastcall GetAdvOfficeTabCount(void);
	TOfficeTabCollectionItem* __fastcall GetAdvOfficeTabs(int index);
	void __fastcall OnChildFormActivate(System::TObject* Sender);
	void __fastcall OnChildFormDestroy(System::TObject* Sender);
	
protected:
	virtual void __fastcall ChangeActiveTab(int TabIndex);
	virtual void __fastcall BeforeCloseTab(TOfficeTabCollectionItem* Tab);
	void __fastcall Change(void);
	
public:
	__fastcall virtual TAdvOfficeMDITabSet(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvOfficeMDITabSet(void);
	TOfficeTabCollectionItem* __fastcall AddTab(Forms::TForm* ChildForm);
	Forms::TForm* __fastcall GetChildForm(TOfficeTabCollectionItem* Tab);
	__property int AdvOfficeTabCount = {read=GetAdvOfficeTabCount, nodefault};
	__property TOfficeTabCollectionItem* AdvOfficeTabs[int index] = {read=GetAdvOfficeTabs};
	__property ActiveTabIndex ;
	
__published:
	__property AdvOfficeTabSetStyler ;
	__property Align  = {default=0};
	__property Anchors  = {default=3};
	__property AntiAlias  = {default=1};
	__property ButtonSettings ;
	__property Constraints ;
	__property CloseOnTab  = {default=0};
	__property DisabledImages ;
	__property Images ;
	__property OfficeHint ;
	__property TabListMenu ;
	__property PopupMenu ;
	__property RotateTabLeftRight  = {default=1};
	__property ShowNonSelectedTabs  = {default=0};
	__property ShowTabHint  = {default=0};
	__property ShowHint ;
	__property TabPosition  = {default=0};
	__property TabRearrange  = {default=0};
	__property TabSettings ;
	__property Version ;
	__property Visible  = {default=1};
	__property OnChange ;
	__property OnChanging ;
	__property OnTabClose ;
	__property OnTabMoved ;
	__property OnTabListClick ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnResize ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvOfficeMDITabSet(HWND ParentWindow) : TAdvCustomOfficeTabSet(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint GLOWSPEED = 0x32;
static const Shortint IMG_SPACE = 0x2;
static const Shortint DEFAULT_TABHEIGHT = 0x1a;
static const Shortint ADVPAGE_OFFSET = 0x1;
static const Shortint SCROLLER_SIZE = 0x20;
static const Shortint TabBUTTON_SIZE = 0x12;
static const Shortint MAJ_VER = 0x1;
static const Shortint MIN_VER = 0x0;
static const Shortint REL_VER = 0x0;
static const Shortint BLD_VER = 0x2;

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

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