TPagedPanel

Panel that contains several Pages of which only one can be visible at the same time.

Inheritance

Level	Ancestor	Description
1	TObject	Ultimate ancestor in a class hierarchy
2	TBaseObject	A base class for objects that can be used instead of `TObject`.
3	TControl	Visual user interface element that can react to user input.
4	TPanel	Base class for a `TControl` that contains other controls.
5	TOpaquePanel	`TPanel` that fills its background with `Style.PanelBackground`
6	TPagedPanel

Source

UserInterface.Control.Panel.Paged.pas (69)

Description

The currently visible page is ActivePage. By itself a TPagedPanel does not provide the user with a means to change the active page. Embellish creates a TTabControl by default which allows the user to switch to another page by selecting the corresponding tab.

Fields

Scope	Visibility	Type	Name
Instance	private	TControl	FActivePage
Instance	private	TInteger32	FInsertPoint
Instance	private	TBoolean	FDraggedActivePage
Instance	protected	TList<TPageInformation>	PageInformations
Instance	public	TBoolean	IsExplorerTarget

Methods

Scope	Visibility	Result	Name
Instance	private		SetActivePage(Value: TControl)
Instance	private	TInteger32	GetActivePageIndex()
Instance	private		SetActivePageIndex(Value: TInteger32)
Instance	private	TControl	GetPages(Index: TInteger32)
Instance	private		SetInsertPoint(Value: TInteger32)
Instance	private	TBoolean	PageHasFocus(Page: TControl)
Instance	protected		BoundsChanged(OldBounds: TInteger32Rectangle; NewBounds: TInteger32Rectangle)
Instance	protected		ResizeActivePage()
Instance	protected		FireActivePageChanged()
Instance	protected		ChildControlAdded(Control: TControl)
Instance	protected		ChildControlRemoved(Control: TControl)
Instance	public		Create()
Instance	public		Destroy()
Instance	public		Paint(Canvas: TCanvas)
Instance	public		GainedFocus()
Instance	public	TControl	Embellish()
Instance	public	TInteger32Size	GetPreferredSize(AvailableSize: TInteger32Size)
Instance	public		AddPage(Page: TControl; Activate: TBoolean)
Instance	public		InsertPage(Index: TInteger32; Page: TControl; Activate: TBoolean)
Instance	public		RemovePage(Page: TControl)
Instance	public	TInteger32	IndexOfPage(Page: TControl)
Instance	public		ClosePage(Index: TInteger32)
Instance	public	TInteger32	PageCount()
Instance	public	TText	GetPageCaption(Index: TInteger32)
Instance	public		CloseControl(Control: TControl)
Instance	public		MakeRectangleVisibleForControl(Control: TControl; Rectangle: TInteger32Rectangle)
Instance	public	TBoolean	IsChildVisible(Control: TControl)
Instance	public	TDragSite	CreateDragSource(Control: TControl)
Instance	public	TDragSite	CreateDragTarget(Source: TDragSite; Position: TInteger32Point)
Instance	public	TBoolean	IsDynamicContainer()
Instance	public	TControl	FindFirstDescendant(Condition: TCondition<TControl>)
Instance	public	TIterator<TControl>	CreateChildIterator()