TDefaultApplication

TApplication that creates a basic user interface that is suitable for most purposes.

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	TApplication	Abstract base class for applications that support a graphical user interface.
4	TDefaultApplication

Source

Application.Default.pas (63)

Description

TDefaultApplication adds a number of user interface controls to the MainWindow. These controls include an explorer tree, a details panel, a progress panel, an information panel and a problems table. Descendant classes can further customize the user interface as needed.

Fields

Scope	Visibility	Type	Name
Instance	protected	TTableModelFactory	TableFactory
Instance	protected	TObjectModelFactory	ObjectModelFactory
Instance	protected	TWindowFactory	WindowFactory
Instance	protected	TSplitPanel	MainSplitPanel
Instance	protected	TVerticalSplitPanel	LeftPanel
Instance	protected	THorizontalStackPanel	Toolbar
Instance	protected	TDefaultApplicationStyleSheet	CurrentStyleSheet
Instance	protected	TPagedPanel	ExplorerPagedPanel
Instance	protected	TSingleLineTextControl	ProgressLabel
Instance	protected	TStaticPercentageModel	ProgressModel
Instance	protected	TTimer	ProgressTimer
Instance	protected	TList<TSqlDatabaseConnector>	DatabaseConnectors
Instance	protected	TAuthorizationManager	AuthorizationManager
Instance	protected	TAutomatedTestSession	TestSession

Methods

Scope	Visibility	Result	Name
Instance	protected	TUuid	GetProductId()
Instance	protected	TObjectModelFactory	CreateObjectModelFactory()
Instance	protected	TTableModelFactory	CreateTableFactory()
Instance	protected	TControlFactory	CreateControlFactory()
Instance	protected	TObjectActionFactory	CreateObjectActionFactory()
Instance	protected	TUserLevel	GetInitialUserLevel()
Instance	protected		ShowContextMenuForControl(Control: TControl; Position: TInteger32Point)
Instance	protected		AddToolBarButtons(ToolBar: THorizontalStackPanel)
Instance	protected	TControl	CreateLanguageToolBar()
Instance	protected		InstallHotKeys()
Instance	protected	TControl	CreateProblemsControl()
Instance	protected	TControl	CreateMainPanel()
Instance	protected	TControl	CreateToolBar()
Instance	protected	TControl	CreateTopBar()
Instance	protected	TButton	CreateButton(Caption: TText; Listener: TBaseObject)
Instance	protected	TTableControl	CreateDefaultTable(Model: TTableModel; Caption: TText)
Instance	protected	TTableControl	CreateTasksControl()
Instance	protected	TValue	GetApplicationExplorerRoot()
Instance	protected	TValue	GetExplorerRoot()
Instance	protected	TControl	CreateExplorerPanel()
Instance	protected	TTreeControl	CreateExplorerTreeControl(Root: TValue)
Instance	protected		CreateExplorerPagedPanel()
Instance	protected		AssureExplorerPagedPanelExists()
Instance	protected	TTreeControl	CreateExplorerControl()
Instance	protected	THorizontalSplitPanel	CreateExplorerDetailsPanel()
Instance	protected	TControl	CreateProgressPanel()
Instance	protected		HandleProgressTimer()
Instance	protected		RegisterTableSets(TableSetRegistration: TSqlTableSetRegistration)
Instance	protected		InitializeDatabaseConnectors(Configuration: TDomElement)
Instance	protected		CreateSqlConnectionControl()
Instance	protected	TAuthorizationManager	CreateAuthorizationManager()
Instance	protected	TWindow	CreateWindow()
Instance	protected	TWindowState	GetDefaultWindowState()
Instance	protected	TWindowState	DetermineWindowState()
Instance	protected	TBoolean	IncludeVersionInCaption()
Instance	protected	TText	GetCaption()
Instance	protected	TText	GetCompany()
Instance	protected	TText	GetApplicationCaption()
Instance	protected	TControl	DisplaySplashScreen(Caption: TText)
Instance	protected		CreateAndShowMainWindow(MainPanel: TControl)
Instance	protected	TAutomatedTestSuite	CreateTestSuite()
Instance	protected		ExecuteTests()
Instance	protected	TBoolean	HandleContextMenuEvent(ContextMenuEvent: TControlContextMenuEvent)
Instance	protected	TBoolean	HandleDefaultActionExecutedEvent(Event: TControlDefaultActionExecutedEvent)
Instance	protected	TBoolean	HandleTimerFired(TimerFired: TTimerFired)
Instance	protected		CloseUserInterface()
Instance	protected		Initialize(Configuration: TDomElement)
Instance	protected		InitializeControls()
Instance	protected	TWindowClass	GetDefaultWindowClass()
Instance	protected	TWindowClass	TextToWindowClass(Type_: TText)
Instance	protected		InitializeWindowFactory(Element: TDomElement)
Instance	public		Create()
Instance	public		Destroy()
Instance	public		AfterConstruction()
Instance	public	TBoolean	HandleEvent(Event: TEvent)
Instance	public		OpenExplorer()
Instance	public		OpenTasks()
Instance	public		OpenTests()
Instance	public		SwitchStyleSheet()