TTabControl

TControl to control the active page of a TPagedPanel using tabs.

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	TTabControl

Source

UserInterface.Control.Tab.pas (64)

Fields

Scope	Visibility	Type	Name
Instance	private	TPagedPanel	FPagedPanel
Instance	private	TBoolean	FMouseOverCloseTab
Instance	private	TInteger32	FMouseOverTab
Instance	private	TList<TTab>	Tabs

Methods

Scope	Visibility	Result	Name
Instance	private		SetPagedPanel(Value: TPagedPanel)
Instance	private	TInteger32	GetInsertPoint()
Instance	private		SetInsertPoint(Value: TInteger32)
Instance	private		SetMouseOverTab(Value: TInteger32)
Instance	private		SetMouseOverCloseTab(Value: TBoolean)
Instance	private	TInteger32	TabWithX(X: TInteger32)
Instance	private	TInteger32	InsertPointWithX(X: TInteger32)
Instance	private	TTab	CreateTab(CurrentLeft: TInteger32; Index: TInteger32)
Instance	private	TTabState	DetermineTabState(Index: TInteger32)
Instance	private		DetermineTabs()
Instance	private		LayoutTabs()
Instance	private		ActiveTabChanged()
Instance	protected		HasBeenBoundToLayout()
Instance	protected	TBoolean	GoLeft(KeyModifiers: TKeyModifiers)
Instance	protected	TBoolean	GoRight(KeyModifiers: TKeyModifiers)
Instance	protected		PaintTabState(Canvas: TCanvas; Bounds: TInteger32Rectangle; TabState: TTabState)
Instance	protected		PaintTab(Canvas: TCanvas; Index: TInteger32)
Instance	protected		PaintInsertPoint(Canvas: TCanvas)
Instance	protected	TInteger32	TotalTabWidth()
Instance	protected	TInteger32	TabHeight()
Instance	public		Create()
Instance	public		Destroy()
Instance	public	TBoolean	HandleEvent(Event: TEvent)
Instance	public		Paint(Canvas: TCanvas)
Instance	public	TControl	Embellish()
Instance	public	TBoolean	MouseLeftUp(Event: TMouseButtonEvent)
Instance	public	TBoolean	MouseMove(Event: TMouseMoveEvent)
Instance	public	TBoolean	MouseLeave(Event: TMouseLeaveEvent)
Instance	public	TBoolean	HandlesNavigationDimension(NavigationDimension: TValidNavigationDimension)
Instance	public	TInteger32Size	GetPreferredSize(AvailableSize: TInteger32Size)
Instance	public	TControl	GetDragControl(Position: TInteger32Point)
Instance	public	TDragSite	CreateDragSource(Control: TControl)
Instance	public	TDragSite	CreateDragTarget(Source: TDragSite; Position: TInteger32Point)
Instance	public		MakeTabVisible(Index: TInteger32)