advtabset.hpp

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

	int FVisIndex;
	void __fastcall SetCaption(const AnsiString Value);
	void __fastcall SetVisible(const bool Value);
	void __fastcall SetShowClose(const bool Value);
	void __fastcall SetTextColor(const Graphics::TColor Value);
	void __fastcall SetTabColor(const Graphics::TColor Value);
	void __fastcall SetTabColorTo(const Graphics::TColor Value);
	void __fastcall SetTabGradientDirection(TGradientDirection value);
	void __fastcall SetHoverGradientDirection(TGradientDirection value);
	void __fastcall SetImageIndex(const int Value);
	void __fastcall SetEnable(const bool Value);
	
protected:
	Forms::TForm* FChildForm;
	Classes::TNotifyEvent FOnActivateForm;
	Classes::TNotifyEvent FOnDestroyForm;
	virtual AnsiString __fastcall GetDisplayName();
	virtual void __fastcall SetIndex(int Value);
	__property int VisIndex = {read=FVisIndex, nodefault};
	
public:
	bool __fastcall MoveItemInTabSetTo(int ItemIndexOfTabSet);
	__fastcall virtual TTabCollectionItem(Classes::TCollection* Collection);
	__fastcall virtual ~TTabCollectionItem(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property System::TObject* AObject = {read=FObject, write=FObject};
	
__published:
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
	__property bool Enable = {read=FEnable, write=SetEnable, nodefault};
	__property bool Visible = {read=FVisible, write=SetVisible, nodefault};
	__property bool ShowClose = {read=FShowClose, write=SetShowClose, nodefault};
	__property Graphics::TColor TextColor = {read=FTextColor, write=SetTextColor, default=0};
	__property Graphics::TColor TabColor = {read=FTabColor, write=SetTabColor, nodefault};
	__property Graphics::TColor TabColorTo = {read=FTabColorTo, write=SetTabColorTo, nodefault};
	__property TGradientDirection HoverGradientDirection = {read=FHoverGradientDirection, write=SetHoverGradientDirection, default=0};
	__property TGradientDirection TabGradientDirection = {read=FTabGradientDirection, write=SetTabGradientDirection, default=0};
	__property int ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
	__property int Tag = {read=FTag, write=FTag, nodefault};
};


class DELPHICLASS TAdvTabSet;
class PASCALIMPLEMENTATION TAdvTabSet : public TAdvCustomTabSet 
{
	typedef TAdvCustomTabSet inherited;
	
__published:
	__property Align  = {default=0};
	__property Anchors  = {default=3};
	__property AutoScroll  = {default=1};
	__property ActiveFont ;
	__property BackgroundColor  = {default=-16777201};
	__property CloseGlyph ;
	__property ClosePosition  = {default=0};
	__property Constraints ;
	__property DragCursor  = {default=-12};
	__property DragKind  = {default=0};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property EndMargin  = {default=5};
	__property Font ;
	__property ParentShowHint  = {default=1};
	__property PopupMenu ;
	__property ShowHint ;
	__property StartMargin  = {default=5};
	__property SelectedColor  = {default=-16777201};
	__property SoftTop  = {default=0};
	__property AdvTabs ;
	__property FreeOnClose ;
	__property SelectedColorTo  = {default=536870911};
	__property UnSelectedColorTo  = {default=536870911};
	__property TextColor  = {default=0};
	__property TabBorderColor  = {default=8421504};
	__property TabBackGround ;
	__property TabBackGroundSelected ;
	__property GradientDirection ;
	__property HoverGradientDirection  = {default=0};
	__property TabHoverColor  = {default=536870911};
	__property TabHoverColorTo  = {default=536870911};
	__property TabHoverBorder  = {default=536870911};
	__property TabMargin ;
	__property TabOverlap ;
	__property ShowFocus  = {default=0};
	__property Images ;
	__property TabStyle  = {default=0};
	__property TabPosition  = {default=2};
	__property CloseButtonAt  = {default=0};
	__property TabRearrange  = {default=0};
	__property ShowScroller  = {default=1};
	__property LowerSelected  = {default=2};
	__property TabHeight  = {default=20};
	__property TabIndex  = {default=-1};
	__property UnselectedColor  = {default=-16777211};
	__property Visible  = {default=1};
	__property VisibleTabs ;
	__property OnTabMoved ;
	__property OnTabClose ;
	__property OnCanClose ;
	__property OnClick ;
	__property OnChange ;
	__property OnChanged ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDock ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnMeasureTab ;
	__property OnStartDock ;
	__property OnStartDrag ;
	__property OnDrawTabSetBackground ;
public:
	#pragma option push -w-inl
	/* TAdvCustomTabSet.Create */ inline __fastcall virtual TAdvTabSet(Classes::TComponent* AOwner) : TAdvCustomTabSet(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TAdvCustomTabSet.Destroy */ inline __fastcall virtual ~TAdvTabSet(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvTabSet(HWND ParentWindow) : TAdvCustomTabSet(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvMDITabSet;
class PASCALIMPLEMENTATION TAdvMDITabSet : public TAdvCustomTabSet 
{
	typedef TAdvCustomTabSet inherited;
	
private:
	bool FInternalDelete;
	int __fastcall GetAdvTabCount(void);
	void __fastcall OnChildFormActivate(System::TObject* Sender);
	void __fastcall OnChildFormDestroy(System::TObject* Sender);
	
protected:
	TTabCollectionItem* __fastcall GetAdvTabs(int index);
	void __fastcall Change(void);
	virtual void __fastcall ChangeActiveTab(int Value);
	virtual void __fastcall BeforeCloseTab(TTabCollectionItem* Tab, Forms::TCloseAction &CloseAction);
	virtual bool __fastcall CanCloseTab(int TabIdx, Forms::TCloseAction &CloseAction);
	
public:
	__fastcall virtual TAdvMDITabSet(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvMDITabSet(void);
	TTabCollectionItem* __fastcall AddTab(Forms::TForm* ChildForm);
	Forms::TForm* __fastcall GetChildForm(TTabCollectionItem* Tab);
	__property int AdvTabCount = {read=GetAdvTabCount, nodefault};
	__property TTabCollectionItem* AdvTab[int index] = {read=GetAdvTabs};
	TTabCollectionItem* __fastcall GetTab(Forms::TForm* AChild);
	__property TabIndex  = {default=-1};
	
__published:
	__property Align  = {default=0};
	__property Anchors  = {default=3};
	__property AutoScroll  = {default=1};
	__property ActiveFont ;
	__property BackgroundColor  = {default=-16777201};
	__property CloseGlyph ;
	__property ClosePosition  = {default=0};
	__property Constraints ;
	__property DragCursor  = {default=-12};
	__property DragKind  = {default=0};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property EndMargin  = {default=5};
	__property Font ;
	__property ParentShowHint  = {default=1};
	__property PopupMenu ;
	__property ShowHint ;
	__property StartMargin  = {default=5};
	__property SelectedColor  = {default=-16777201};
	__property SoftTop  = {default=0};
	__property SelectedColorTo  = {default=536870911};
	__property UnSelectedColorTo  = {default=536870911};
	__property TextColor  = {default=0};
	__property TabBorderColor  = {default=8421504};
	__property TabBackGround ;
	__property TabBackGroundSelected ;
	__property GradientDirection ;
	__property HoverGradientDirection  = {default=0};
	__property TabHoverColor  = {default=536870911};
	__property TabHoverColorTo  = {default=536870911};
	__property TabHoverBorder  = {default=536870911};
	__property TabMargin ;
	__property TabOverlap ;
	__property ShowFocus  = {default=0};
	__property Images ;
	__property TabStyle  = {default=0};
	__property TabPosition  = {default=2};
	__property CloseButtonAt  = {default=0};
	__property TabRearrange  = {default=0};
	__property ShowScroller  = {default=1};
	__property LowerSelected  = {default=2};
	__property TabHeight  = {default=20};
	__property UnselectedColor  = {default=-16777211};
	__property Visible  = {default=1};
	__property VisibleTabs ;
	__property OnTabMoved ;
	__property OnTabClose ;
	__property OnCanClose ;
	__property OnClick ;
	__property OnChange ;
	__property OnChanged ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDock ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnMeasureTab ;
	__property OnStartDock ;
	__property OnStartDrag ;
	__property OnDrawTabSetBackground ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvMDITabSet(HWND ParentWindow) : TAdvCustomTabSet(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint CloseButtonWidth = 0xe;
static const Shortint CloseButtonHeight = 0xd;
static const Shortint ScrollLength = 0x18;
static const Shortint ScrollWidth = 0xd;
static const Shortint MAJ_VER = 0x1;
static const Shortint MIN_VER = 0x7;
static const Shortint REL_VER = 0x1;
static const Shortint BLD_VER = 0x0;

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

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