object FormMain: TFormMain Left = 449 Height = 849 Top = 278 Width = 1250 Caption = 'MyData' ClientHeight = 815 ClientWidth = 1250 Menu = MainMenu1 OnActivate = FormActivate OnClose = FormClose OnShow = FormShow LCLVersion = '1.8.0.4' WindowState = wsMaximized object StatusBar1: TStatusBar Left = 0 Height = 30 Top = 785 Width = 1250 Panels = <> end object CoolBar1: TCoolBar Left = 0 Height = 43 Top = 0 Width = 1250 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 = 108 Align = alNone BorderSpacing.Left = 22 BorderSpacing.Top = 3 Caption = 'ToolBar1' 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 = 37 Top = 0 Action = Core.ADatabaseDisconnect end object ToolButton3: TToolButton Left = 73 Top = 0 Action = Core.APreferences end end end object MainMenu1: TMainMenu Images = Core.ImageList1 left = 824 top = 216 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