Freesoft 1997 June/Freesoft_1997-06_cd.bin/nerecenz/programmers/SSW/SSW.EXE/0/RCDATA/TSSWMAINFORM/TSSWMAINFORM.txt

Text File | 1997-05-06 | 18KB | 516 lines

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