object FormMain: TFormMain Left = 403 Height = 669 Top = 365 Width = 1088 Caption = 'MyData' ClientHeight = 635 ClientWidth = 1088 DesignTimePPI = 144 Menu = MainMenu1 OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow LCLVersion = '2.2.2.0' WindowState = wsMaximized object StatusBar1: TStatusBar Left = 0 Height = 28 Top = 607 Width = 1088 Panels = <> end object CoolBar1: TCoolBar Left = 0 Height = 44 Top = 0 Width = 1088 AutoSize = True Bands = < item Break = False Control = ToolBar1 MinHeight = 40 MinWidth = 90 Width = 179 end> Images = Core.ImageList1 object ToolBar1: TToolBar AnchorSideLeft.Control = CoolBar1 AnchorSideTop.Control = CoolBar1 Left = 24 Height = 33 Top = 5 Width = 150 Align = alNone BorderSpacing.Left = 22 BorderSpacing.Top = 3 EdgeInner = esNone EdgeOuter = esNone Images = Core.ImageList1 TabOrder = 0 Transparent = True object ToolButton1: TToolButton Left = 1 Top = 0 Action = Core.ADatabaseConnect end object ToolButton2: TToolButton Left = 36 Top = 0 Action = Core.ADatabaseDisconnect end object ToolButton3: TToolButton Left = 71 Top = 0 Action = Core.APreferences end end end object MainMenu1: TMainMenu Images = Core.ImageList1 Left = 112 Top = 112 object MenuItem1: TMenuItem Caption = 'Database' object MenuItem2: TMenuItem Action = Core.ADatabaseConnect end object MenuItem4: TMenuItem Action = Core.ADatabaseDisconnect end object MenuItem5: TMenuItem Caption = '-' end object MenuItem6: TMenuItem Action = Core.AExit end end object MenuItemPreferences: TMenuItem Caption = 'Tools' object MenuItem3: TMenuItem Action = Core.APreferences end end object MenuItem7: TMenuItem Caption = 'Help' object MenuItem8: TMenuItem Action = Core.AAbout end end end end