TTableControl

TControl for viewing and editing a TTableModel

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	TTableControl

Source

UserInterface.Control.Table.pas (71)

Description

When the table is first bound to a layout its columns are automatically sized based on AutoSizeAction. By default this will be configured to size columns to their minimum sizes with a minimum of 100 pixels when assigning Model. AutoSizeAction can be updated to cater to your specific needs. Be sure to clear the property by assigning nil when you manually set sizes of columns.

Fields

Scope	Visibility	Type	Name
Instance	private	TTableModel	FModel
Instance	private	TGridLines	FShowGridLines
Instance	private	TControl	FEditor
Instance	private	T2dSelection	FSelection
Instance	private	T2dSelectionDimensions	FAllowedSelectionDimensions
Instance	private	TInteger32	FAutoRefreshInterval
Instance	private	TTableCells	FFocusedCells
Instance	private	TTableCells	FVisibleCells
Instance	private	TAutoSizeAction	FAutoSizeAction
Instance	private	TIndexColorModel	ColumnColorModel
Instance	private	TSortColumns	SortColumns
Instance	private	TExpression	FilterExpression
Instance	private	TTableControlMouseAction	MouseAction
Instance	private	TTimer	AutoRefreshTimer
Instance	private	TScrollPanel	FScrollPanel
Instance	private	TColumnHeadersControl	FColumnHeadersControl
Instance	private	TRowHeadersControl	FRowHeadersControl
Instance	private	TTopLeftHeaderControl	FTopLeftHeaderControl
Instance	private	TColumnFiltersControl	FColumnFiltersControl
Instance	private	TColumnFiltersHeadersControl	FColumnFiltersHeadersControl

Methods

Scope	Visibility	Result	Name
Instance	private		SetFocusedCells(Value: TTableCells)
Instance	private		SetVisibleCells(Value: TTableCells)
Instance	private		SetAutoSizeAction(Value: TAutoSizeAction)
Instance	private		SetModel(Value: TTableModel)
Instance	private		SetShowGridLines(Value: TGridLines)
Instance	private	TInteger32	GetFocusedRow()
Instance	private		SetFocusedRow(Value: TInteger32)
Instance	private	TInteger32	GetFocusedColumn()
Instance	private		SetFocusedColumn(Value: TInteger32)
Instance	private		SetFocusedCell(Row: TInteger32; Column: TInteger32)
Instance	private	T2dSelectionDimension	GetSelectionDimension()
Instance	private		SetSelectionDimension(Value: T2dSelectionDimension)
Instance	private		SetAllowedSelectionDimensions(Value: T2dSelectionDimensions)
Instance	private		SetAutoRefreshInterval(Value: TInteger32)
Instance	private	TBoolean	GetIsRowFiltering()
Instance	private		SetIsRowFiltering(Value: TBoolean)
Instance	private	TCumulativeSizes	GetRows()
Instance	private	TCumulativeSizes	GetColumns()
Instance	private		DetermineVisibleCells()
Instance	private		AttachToModel()
Instance	private		DetachFromModel()
Instance	private	TControl	CreatePainterForCell(Cells: TTableCells; Row: TInteger32; Column: TInteger32)
Instance	private		PaintGridLines(Canvas: TCanvas)
Instance	private		PaintCell(Canvas: TCanvas; Row: TInteger32; Column: TInteger32; Color: TRgbColor)
Instance	private		PaintColumn(Canvas: TCanvas; Column: TInteger32)
Instance	private		HandleFocusAndEditor(Canvas: TCanvas)
Instance	private		IndicateFocus(Canvas: TCanvas)
Instance	private		UpdateTableCells()
Instance	private		FireFocusedCellChanged()
Instance	private		HandleMouseSelection(Row: TInteger32; Column: TInteger32; SelectionMode: TMouseSelectionMode)
Instance	private	T2dSelectionDimension	ValidateSelectionDimension(Dimension: T2dSelectionDimension)
Instance	private		ValidateAutoSizeAction()
Instance	private		AutoSizeColumns(Action: TAutoSizeAction)
Instance	private		AutoSizeColumnsPreferred(Action: TAutoSizeActionPreferred)
Instance	private		AutoSizeColumnsFixed(Action: TAutoSizeActionFixed)
Instance	protected		BoundsChanged(OldBounds: TInteger32Rectangle; NewBounds: TInteger32Rectangle)
Instance	protected		HasBeenBoundToLayout()
Instance	protected		DescendantRequestsFocus(Descendant: TControl)
Instance	protected		DescendantFiresEvent(Descendant: TControl; Event: TEvent)
Instance	protected	TBoolean	Navigate(Direction: TNavigationDirection; KeyModifiers: TKeyModifiers)
Instance	protected	TBoolean	GoForward()
Instance	protected	TBoolean	GoBackward()
Instance	protected	TControl	GetEditor()
Instance	protected		SetEditorValue(Value: TValue)
Instance	protected		ResetEditorValue()
Instance	protected	TInteger32Rectangle	GetEditorBounds()
Instance	protected		ScrollEditorIntoView()
Instance	protected		RemoveEditor()
Instance	protected		AdjustColumnEditors()
Instance	protected		AdjustRowEditors()
Instance	protected		AdjustEditor()
Instance	protected	TBoolean	NavigateDimension(NavigationDimension: TValidNavigationDimension; Direction: TNavigationDirection; KeyModifiers: TKeyModifiers; Expand: TBoolean)
Instance	protected	TBoolean	NavigateVertically(Direction: TNavigationDirection; KeyModifiers: TKeyModifiers; Expand: TBoolean)
Instance	protected	TBoolean	NavigateHorizontally(Direction: TNavigationDirection; KeyModifiers: TKeyModifiers; Expand: TBoolean)
Instance	protected	TBoolean	HandleInsert(KeyModifiers: TKeyModifiers)
Instance	protected	TBoolean	HandleDelete(KeyModifiers: TKeyModifiers)
Instance	protected		InsertRow(Index: TInteger32)
Instance	protected		InsertColumn(Index: TInteger32)
Instance	protected		DeleteCells()
Instance	protected		DeleteRows()
Instance	protected		DeleteColumns()
Instance	protected		DeleteAll()
Instance	protected		DetermineRowCount()
Instance	protected	TInteger32Rectangle	GetCellBounds(Row: TInteger32; Column: TInteger32)
Instance	protected		ResetSort()
Instance	protected		SortOnColumn(Column: TInteger32)
Instance	protected		SortOnRow(Row: TInteger32)
Instance	protected		UpdateRowFilter()
Instance	protected		WriteCells(Writer: TTabDelimitedWriter; Block: TInteger32Rectangle)
Instance	public		Create()
Instance	public		Destroy()
Instance	public	TBoolean	HandleEvent(Event: TEvent)
Instance	public		Paint(Canvas: TCanvas)
Instance	public	TControl	CreateToolbar()
Instance	public	TControl	Embellish()
Instance	public		GainedFocus()
Instance	public		LostFocus()
Instance	public	TInteger32Size	GetScrollSize(AvailableSize: TInteger32Size)
Instance	public	TInteger32Size	GetPreferredSize(AvailableSize: TInteger32Size)
Instance	public		VisibleRectangleChanged()
Instance	public	TBoolean	KeyDown(Event: TKeyDownEvent)
Instance	public	TBoolean	ShouldForwardKeyDownDownChain(Event: TKeyDownEvent)
Instance	public	TBoolean	HandlesNavigationDimension(NavigationDimension: TValidNavigationDimension)
Instance	public	TBoolean	MouseLeftDown(Event: TMouseButtonEvent)
Instance	public	TBoolean	MouseLeftUp(Event: TMouseButtonEvent)
Instance	public	TBoolean	MouseMove(Event: TMouseMoveEvent)
Instance	public	TBoolean	PasteFromClipboard()
Instance	public	TBoolean	CopyToClipboard()
Instance	public		Enter()
Instance	public		EnterFromTop(Fast: TBoolean)
Instance	public		EnterFromBottom(Fast: TBoolean)
Instance	public		EnterFromLeft(Fast: TBoolean)
Instance	public		EnterFromRight(Fast: TBoolean)
Instance	public	TValuePath	GetFocusedObject()
Instance	public	TObjectSelection	GetObjectSelection()
Instance	public		Refresh()
Instance	public		Save()
Instance	public		ToggleRowFiltering()
Instance	public		CreatePivotTable()
Instance	public		CreateRowGroupingTable()
Instance	public		CreateTableDrawing()
Instance	public		ColumnCountChanged()
Instance	public		RowCountChanged()
Instance	public		Changed()
Instance	public		CellsChanged(Cells: TInteger32Rectangle)
Instance	public		NewSelection(KeepOld: TBoolean)
Instance	public		ExpandSelection()
Instance	public		SelectAllRows()
Instance	public		SelectAllColumns()
Instance	public		SelectAllCells()
Instance	public	TMouseSelectionMode	DetermineMouseSelectionMode(SelectionDimension: T2dSelectionDimension; KeyModifiers: TKeyModifiers)
Instance	public		ScrollRowIntoView(Row: TInteger32)
Instance	public		ScrollColumnIntoView(Column: TInteger32)
Instance	public		ScrollCellIntoView(Row: TInteger32; Column: TInteger32)
Instance	public		ScrollFocusedCellIntoView()
Instance	public		SizeColumnToFitContents(ColumnIndex: TInteger32; InPlace: TBoolean; MinimumSize: TInteger32)