advpagecontrol.hpp

TMS component pack v4.2 for delphi

	__property int PageCount = {read=GetPageCount, nodefault};
	__property TAdvTabSheet* Pages[int Index] = {read=GetPage};
	__property int VersionNr = {read=GetVersionNr, nodefault};
	__property bool FullRefresh = {read=FFullRefresh, write=FFullRefresh, nodefault};
	
__published:
	__property TAdvTabSheet* ActivePage = {read=FActivePage, write=SetActivePage};
	__property Graphics::TFont* ActiveFont = {read=FActiveFont, write=SetActiveFont};
	__property Align  = {default=0};
	__property Anchors  = {default=3};
	__property BiDiMode ;
	__property Constraints ;
	__property Graphics::TBitmap* CloseGlyph = {read=FCloseGlyph, write=SetCloseGlyph};
	__property DockSite  = {default=0};
	__property DragCursor  = {default=-12};
	__property DragKind  = {default=0};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property Font ;
	__property HotTrack  = {default=0};
	__property Imglist::TCustomImageList* Images = {read=FImages, write=SetImages};
	__property MultiLine  = {default=0};
	__property ParentBiDiMode  = {default=1};
	__property ParentFont  = {default=1};
	__property ParentShowHint  = {default=1};
	__property PopupMenu ;
	__property RaggedRight  = {default=0};
	__property ScrollOpposite  = {default=0};
	__property ShowHint ;
	__property bool FreeOnClose = {read=FFreeOnClose, write=FFreeOnClose, default=0};
	__property bool ShowFocus = {read=FShowFocus, write=FShowFocus, default=0};
	__property Graphics::TColor DefaultTextColor = {read=FDefaultTextColor, write=SetDefaultTextColor, default=0};
	__property Graphics::TColor DefaultTabColor = {read=FDefaultTabColor, write=SetDefaultTabColor, default=-16777201};
	__property Graphics::TColor DefaultTabColorTo = {read=FDefaultTabColorTo, write=SetDefaultTabColorTo, default=536870911};
	__property Graphics::TColor ActiveColor = {read=FActiveColor, write=SetActiveColor, default=-16777201};
	__property Graphics::TColor ActiveColorTo = {read=FActiveColorTo, write=SetActiveColorTo, default=536870911};
	__property bool TabBorder3D = {read=FTabBorder3D, write=SetTabBorder3D, default=0};
	__property Graphics::TColor TabBorderColor = {read=FTabBorderColor, write=SetTabBorderColor, default=8421504};
	__property bool TabSheet3D = {read=FTabSheet3D, write=SetTabSheet3D, default=0};
	__property Graphics::TColor TabSheetBorderColor = {read=FTabSheetBorderColor, write=SetTabSheetBorderColor, default=8421504};
	__property Graphics::TColor TabHoverColor = {read=FTabHoverColor, write=FTabHoverColor, default=536870911};
	__property Graphics::TColor TabHoverColorTo = {read=FTabHoverColorTo, write=FTabHoverColorTo, default=536870911};
	__property Graphics::TColor TabHoverBorder = {read=FTabHoverBorder, write=FTabHoverBorder, default=536870911};
	__property Graphics::TColor TabBackGroundColor = {read=FTabBackGroundColor, write=SetTabBackGroundColor, nodefault};
	__property Graphics::TBitmap* TabBackGround = {read=FTabBackGround, write=SetTabBackGround};
	__property Graphics::TBitmap* TabBackGroundActive = {read=FTabBackGroundActive, write=SetTabBackGroundActive};
	__property TTabMargin* TabMargin = {read=FTabMargin, write=SetTabMargin};
	__property TTabOverlapSize TabOverlap = {read=FTabOverlap, write=SetTabOverlap, nodefault};
	__property bool TabSplitLine = {read=FTabSplitLine, write=SetTabSplitLine, default=0};
	__property bool RoundEdges = {read=FRoundEdges, write=SetRoundEdges, default=0};
	__property TTabStyle TabStyle = {read=FTabStyle, write=SetTabStyle, default=0};
	__property int LowerActive = {read=FLowerActive, write=SetLowerActive, default=2};
	__property AnsiString Version = {read=GetVersion, write=SetVersion};
	__property TabHeight  = {default=0};
	__property TabOrder  = {default=-1};
	__property TabPosition  = {read=GetTabPosition, write=SetTabPosition, default=0};
	__property TabStop  = {default=1};
	__property TabWidth  = {default=0};
	__property Visible  = {default=1};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
	__property OnChanging ;
	__property TCanChangeEvent OnCanChange = {read=FOnCanChange, write=FOnCanChange};
	__property OnContextPopup ;
	__property OnDockDrop ;
	__property OnDockOver ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property Comctrls::TDrawTabEvent OnDrawTab = {read=FOnDrawTab, write=FOnDrawTab};
	__property OnEndDock ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnGetImageIndex ;
	__property OnGetSiteInfo ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnResize ;
	__property OnStartDock ;
	__property OnStartDrag ;
	__property OnUnDock ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvPageControl(HWND ParentWindow) : Comctrls::TCustomTabControl(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TAdvTabSheet : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
private:
	AnsiString FTabCaption;
	Graphics::TColor FTextColor;
	Graphics::TColor FTabColor;
	Graphics::TColor FTabColorTo;
	bool FShowClose;
	TGradientDirection FTabGradientDirection;
	TGradientDirection FHoverGradientDirection;
	Imglist::TImageIndex FImageIndex;
	Imglist::TImageIndex FImageIndexDummy;
	TAdvPageControl* FAdvPageControl;
	bool FTabVisible;
	bool FTabShowing;
	bool FHighlighted;
	Classes::TNotifyEvent FOnHide;
	Classes::TNotifyEvent FOnShow;
	Classes::TNotifyEvent FOnClose;
	TCanCloseEvent FOnCanClose;
	bool FTabEnable;
	Graphics::TColor FColorTo;
	AnsiString __fastcall GetCaption();
	void __fastcall SetCaption(AnsiString Value);
	int __fastcall GetPageIndex(void);
	int __fastcall GetTabIndex(void);
	void __fastcall SetHighlighted(bool Value);
	Imglist::TImageIndex __fastcall GetImageIndex(void);
	void __fastcall SetImageIndex(Imglist::TImageIndex Value);
	void __fastcall SetAdvPageControl(TAdvPageControl* AAdvPageControl);
	void __fastcall SetPageIndex(int Value);
	void __fastcall SetTabShowing(bool Value);
	void __fastcall SetTabVisible(bool Value);
	void __fastcall UpdateTabShowing(void);
	HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMShowingChanged(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
	void __fastcall CloseButtonClick(System::TObject* Sender);
	bool __fastcall CanCloseClick(System::TObject* Sender);
	void __fastcall SetShowClose(bool value);
	void __fastcall SetTabGradientDirection(TGradientDirection value);
	void __fastcall SetHoverGradientDirection(TGradientDirection value);
	void __fastcall SetTextColor(const Graphics::TColor Value);
	void __fastcall SetTabColor(const Graphics::TColor Value);
	void __fastcall SetTabColorTo(const Graphics::TColor Value);
	void __fastcall SetTabEnable(const bool Value);
	void __fastcall SetColorTo(const Graphics::TColor Value);
	Graphics::TColor __fastcall GetColor(void);
	HIDESBASE void __fastcall SetColor(const Graphics::TColor Value);
	
protected:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	DYNAMIC void __fastcall DoHide(void);
	DYNAMIC void __fastcall DoShow(void);
	virtual void __fastcall ReadState(Classes::TReader* Reader);
	virtual void __fastcall Paint(void);
	__property AnsiString TabCaption = {read=FTabCaption};
	__property Imglist::TImageIndex ImageIndexDummy = {read=FImageIndexDummy, nodefault};
	
public:
	__fastcall virtual TAdvTabSheet(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvTabSheet(void);
	__property TAdvPageControl* AdvPageControl = {read=FAdvPageControl, write=SetAdvPageControl};
	__property int TabIndex = {read=GetTabIndex, nodefault};
	void __fastcall SelectFirstControl(void);
	
__published:
	__property BorderWidth  = {default=0};
	__property AnsiString Caption = {read=GetCaption, write=SetCaption};
	__property Graphics::TColor Color = {read=GetColor, write=SetColor, nodefault};
	__property Graphics::TColor ColorTo = {read=FColorTo, write=SetColorTo, nodefault};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property Font ;
	__property Height  = {stored=false};
	__property bool Highlighted = {read=FHighlighted, write=SetHighlighted, default=0};
	__property Imglist::TImageIndex ImageIndex = {read=GetImageIndex, write=SetImageIndex, default=0};
	__property Left  = {stored=false};
	__property Constraints ;
	__property TGradientDirection HoverGradientDirection = {read=FHoverGradientDirection, write=SetHoverGradientDirection, default=0};
	__property TGradientDirection TabGradientDirection = {read=FTabGradientDirection, write=SetTabGradientDirection, default=0};
	__property int PageIndex = {read=GetPageIndex, write=SetPageIndex, stored=false, nodefault};
	__property ParentFont  = {default=1};
	__property ParentShowHint  = {default=1};
	__property PopupMenu ;
	__property ShowHint ;
	__property bool ShowClose = {read=FShowClose, write=SetShowClose, default=0};
	__property bool TabEnable = {read=FTabEnable, write=SetTabEnable, default=1};
	__property bool TabVisible = {read=FTabVisible, write=SetTabVisible, default=1};
	__property Graphics::TColor TabColor = {read=FTabColor, write=SetTabColor, nodefault};
	__property Graphics::TColor TabColorTo = {read=FTabColorTo, write=SetTabColorTo, nodefault};
	__property Graphics::TColor TextColor = {read=FTextColor, write=SetTextColor, default=0};
	__property Top  = {stored=false};
	__property Visible  = {stored=false, default=1};
	__property Width  = {stored=false};
	__property TCanCloseEvent OnCanClose = {read=FOnCanClose, write=FOnCanClose};
	__property Classes::TNotifyEvent OnClose = {read=FOnClose, write=FOnClose};
	__property OnContextPopup ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property Classes::TNotifyEvent OnHide = {read=FOnHide, write=FOnHide};
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnResize ;
	__property Classes::TNotifyEvent OnShow = {read=FOnShow, write=FOnShow};
	__property OnStartDrag ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvTabSheet(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint CloseButtonWidth = 0xe;
static const Shortint CloseButtonHeight = 0xd;
static const Shortint MAJ_VER = 0x1;
static const Shortint MIN_VER = 0x5;
static const Shortint REL_VER = 0x0;
static const Shortint BLD_VER = 0x4;

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

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