object SSWMainForm: TSSWMainForm Left = 267 Top = 162 Width = 743 Height = 532 Caption = 'MainForm' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MenuForm.MainMenu Position = poScreenCenter OnActivate = FormActivate OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object ToolBar: TPanel Left = 0 Top = 0 Width = 735 Height = 33 Align = alTop TabOrder = 1 object Label1: TLabel Left = 9 Top = 10 Width = 46 Height = 13 Caption = 'Database' end object DatabaseCombo: TComboBox Left = 66 Top = 6 Width = 151 Height = 21 Hint = 'Select database' HelpContext = 1 Style = csDropDownList ItemHeight = 13 ParentShowHint = False ShowHint = True Sorted = True TabOrder = 0 OnChange = DatabaseComboChange end object Panel1: TPanel Left = 232 Top = 1 Width = 505 Height = 30 BevelOuter = bvNone TabOrder = 1 object NewFileButton: TSpeedButton Left = 0 Top = 3 Width = 25 Height = 25 Hint = 'New script' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777777777777777777777777777777777700000000000777770FFFFFFFF F0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFF F0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFF00 00777770FFFFFF0F07777770FFFFFF0077777770000000077777} ParentShowHint = False ShowHint = True OnClick = NewFileButtonClick end object OpenFileButton: TSpeedButton Left = 27 Top = 3 Width = 25 Height = 25 Hint = 'Open script' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777000000000007777700333333333 077770F033333333307770BF03333333330770FBF0333333333070BFBF000000 000070FBFBFBFBF0777770BFBFBFBFB0777770FBF00000007777770007777777 7000777777777777770077777777707770707777777777000777} ParentShowHint = False ShowHint = True OnClick = OpenFileButtonClick end object SaveFileButton: TSpeedButton Left = 54 Top = 3 Width = 25 Height = 25 Hint = 'Save script' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777000000000000077033000000770307703300000077 0307703300000077030770330000000003077033333333333307703300000000 3307703077777777030770307777777703077030777777770307703077777777 0307703077777777000770307777777707077000000000000007} ParentShowHint = False ShowHint = True OnClick = SaveFileButtonClick end object ExecSQlScriptButton: TSpeedButton Left = 205 Top = 3 Width = 25 Height = 25 Hint = 'Execute script' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777777777777777777777777777777700000000000777770FFFFFFFFF07 77770FFFFFFFFF0727770FFFFFFFFF0722770FFFF222222222270FFFF2222222 22220FFFF222222222220FFFF222222222270FFFFFFFFF0722770FFFFFF00007 27770FFFFFF0F07777770FFFFFF0077777770000000077777777} ParentShowHint = False ShowHint = True OnClick = ExecSQlScriptButtonClick end object ReefreshSQLButton: TSpeedButton Left = 232 Top = 3 Width = 24 Height = 25 Hint = 'Refresh database' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777772222227777777772222222277777772222222222777772222777722 2277772227777772227772227777777722277222777777772227722277777727 2227772227777722227777222277772222777772227777222277777722777722 2227777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = ReefreshSQLButtonClick end object ExecSQLTextButton: TSpeedButton Left = 178 Top = 3 Width = 25 Height = 25 Hint = 'Execute text' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000000007777777777777777777777000000077777777777777777777 7777700000000077277777777777777722777000722222222227777772222222 2222700072222222222277777222222222277000077777772277777777777777 2777700000000077777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = ExecSQLTextButtonClick end object CommentOutButton: TSpeedButton Left = 115 Top = 3 Width = 25 Height = 25 Hint = 'Comment out' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777077777777777777707777777777 7777770777770777077777077777707077777770777777077777777077700000 0077777707777707777777770777770777777777707777777777777770777777 7777777777077777777777777707777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = CommentOutButtonClick end object ParensButton: TSpeedButton Left = 142 Top = 3 Width = 25 Height = 25 Hint = 'Parenthesise' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777707777077777777707777770 7777777707777770777777707777777707777770777777770777777077777777 0777777077777777077777707777777707777777077777707777777707777770 7777777770777707777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = ParensButtonClick end object DisconnectButton: TSpeedButton Left = 258 Top = 3 Width = 25 Height = 25 Hint = 'Disconnect' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777BBB777777BBB7777BBBB7777BBBB77777BBB777BBB B7777777BBB7BBBB77777777BBBBBBB7777700007BBBBB770000000077BBBB77 000077777BBBBBB777777777BBBBBBB77777777BBBB77BBB777777BBBB777BBB B77777BBB77777BBB77777BB7777777BB7777777777777777777} ParentShowHint = False ShowHint = True OnClick = DisconnectButtonClick end object HelpButton: TSpeedButton Left = 321 Top = 3 Width = 25 Height = 25 Hint = 'Help' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777777777777777777777777777CC77777777777777CC7777777777777777777 77777777777CC77777777777777CC77777777777777CCC77777777777777CCC7 7777777777777CCC77777777CC7777CC77777777CCC777CC777777777CCCCCC7 7777777777CCCC77777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = HelpButtonClick end object PrintButton: TSpeedButton Left = 81 Top = 3 Width = 25 Height = 25 Hint = 'Print script' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = PrintButtonClick end object SQLHelpButton: TSpeedButton Left = 292 Top = 3 Width = 25 Height = 25 Hint = 'SQL help' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777CC77700000000777CC777777777777777 777700000000077CC77777777777777CC77700000000077CCC77777777777777 CCC70000000777777CCC77777777CC7777CC00000077CCC777CC777777777CCC CCC70000000077CCCC7777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = SQLHelpButtonClick end end end object MainPane: AxSplitPanel Left = 0 Top = 33 Width = 735 Height = 433 Align = alClient TabOrder = 0 ControlA = ClickerPanel ControlB = RHSPanel SplitterWidth = 3 SplitterPosition = 175 SplitterType = stVertical DisplayPanes = ptBoth object ClickerPanel: AxSplitPanel Left = 0 Top = 0 Width = 175 Height = 433 Caption = 'ClickerPanel' TabOrder = 1 ControlA = DataPane ControlB = Macrotabs SplitterWidth = 3 SplitterPosition = 171 SplitterType = stHorizontal DisplayPanes = ptBoth object DataPane: AxSplitPanel Left = 0 Top = 0 Width = 175 Height = 171 Caption = 'DataPane' TabOrder = 1 ControlA = ObjectTabs ControlB = DetailList SplitterWidth = 3 SplitterPosition = 150 SplitterType = stHorizontal DisplayPanes = ptBoth object DetailList: TListBox Left = 0 Top = 153 Width = 175 Height = 18 ItemHeight = 13 MultiSelect = True TabOrder = 1 OnDblClick = ObjectDblClick OnKeyPress = DetailListKeyPress end object ObjectTabs: AxTabbedList Left = 0 Top = 0 Width = 175 Height = 150 MultiLine = True PopupMenu = MenuForm.ObjectsPopup TabOrder = 2 Sorted = True Multiselect = False Color = clWindow OnTabChange = ObjectTabsTabChange OnListClick = ObjectListClick OnListDblClk = ObjectTabsListDblClk OnKeyPress = ObjectTabsKeyPress end end object Macrotabs: AxTabbedList Left = 0 Top = 174 Width = 175 Height = 259 MultiLine = True TabOrder = 2 Sorted = True Multiselect = False Color = clWindow OnListDblClk = MacrotabsListDblClk end end object RHSPanel: AxSplitPanel Left = 178 Top = 0 Width = 557 Height = 433 TabOrder = 2 ControlA = EditTabs ControlB = DataViewPane SplitterWidth = 3 SplitterPosition = 300 SplitterType = stHorizontal DisplayPanes = ptBoth object EditTabs: AxTabbedEditor Left = 0 Top = 0 Width = 557 Height = 300 ParentShowHint = False ShowHint = False TabOrder = 0 MaxFiles = -1 MultipleEdits = True Untitled = '[Untitled%d]' SaveChangePrompt = True OpenDialog = OpenDialog SaveDialog = SaveDialog OnEditKeyDown = EditTabsEditKeyDown OnEditKeyPress = EditTabsEditKeyPress OnEditCreate = EditTabsEditCreate OnFileOpen = EditTabsFileUsed OnFileSave = EditTabsFileUsed end object DataViewPane: TPanel Left = 0 Top = 303 Width = 557 Height = 130 TabOrder = 2 object SQLExecStatus: AxScrollingStatusDisplay Left = 296 Top = 8 Width = 241 Height = 105 TabStop = False Font.Color = clBlack Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] ParentFont = False ReadOnly = True ScrollBars = ssVertical TabOrder = 0 WantReturns = False ErrorColor = clRed InfoColor = clBlue end object DataViewGrid: TDBGrid Left = 1 Top = 1 Width = 555 Height = 128 Align = alClient DataSource = DataViewSource ReadOnly = True TabOrder = 1 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnColEnter = DataViewGridColEnter OnDblClick = DataViewGridDblClick end end end end object StatusBar: AxStatusBar Left = 0 Top = 466 Width = 735 Height = 20 Hint = 'Click to display last message' Align = alBottom Alignment = taLeftJustify Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 InfoColor = clBlue ErrorColor = clRed DefaultColor = clBlack BeepOnError = True InfoDelay = 4 ErrorDelay = 5 end object DataViewSource: TDataSource DataSet = DatabaseInterface.TheTable Enabled = False Left = 347 Top = 97 end object SQLSource: TDataSource DataSet = DatabaseInterface.TheQuery Left = 312 Top = 96 end object OpenDialog: TOpenDialog DefaultExt = 'SQL' FileEditStyle = fsEdit Filter = 'SQL scripts|*.SQL|Text files|*.TXT|All files|*.*' Options = [ofExtensionDifferent, ofPathMustExist, ofFileMustExist] Title = 'Open Script' Left = 264 Top = 56 end object SaveDialog: TSaveDialog DefaultExt = 'SQL' FileEditStyle = fsEdit Filter = 'SQL script|*.SQL|Text file|*.TXT|All files|*.*' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist] Title = 'Save Script' Left = 296 Top = 56 end object SearchDialog: TFindDialog Options = [frDown, frHideWholeWord, frHideUpDown] OnFind = SearchDialogFind Left = 328 Top = 56 end object ReplaceDialog: TReplaceDialog Options = [frDown, frHideWholeWord, frHideUpDown] OnFind = SearchDialogFind OnReplace = ReplaceDialogReplace Left = 360 Top = 56 end object PrinterDialog: TPrinterSetupDialog Left = 402 Top = 57 end end