Chip 1997 April/Chip_1997-04_cd.bin/prezent/cb/data.z/DBX.DLL/RCDATA/TDBEXPLORERFORM/TDBEXPLORERFORM.txt

Text File | 1997-01-16 | 32KB | 1,079 lines

object DbExplorerForm: TDbExplorerForm
  Left = 356
  Top = 103
  Width = 510
  Height = 292
  HelpContext = 1000
  ActiveControl = TreePanel
  Caption = 'Database Explorer'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  Position = poDefaultPosOnly
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object MenuBevel: TBevel
    Left = 0
    Top = 0
    Width = 502
    Height = 2
    Align = alTop
    Shape = bsTopLine
  end
  object SpeedBar: TPanel
    Left = 0
    Top = 2
    Width = 502
    Height = 29
    HelpContext = 1080
    Align = alTop
    BevelOuter = bvNone
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    object SBOpen: TSpeedButton
      Left = 2
      Top = 2
      Width = 26
      Height = 25
      Hint = 'Open'
      AllowAllUp = True
      GroupIndex = 2
      Enabled = False
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555555555555555555555555555555555555555555
        555555555555555555555555555555555555555FFFFFFFFFF555550000000000
        55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
        B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
        000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
        555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
        55555575FFF75555555555700007555555555557777555555555555555555555
        55555555555555555555555555555555555555555555555555550000}
      NumGlyphs = 2
      OnClick = PMOpenCloseClick
    end
    object SBShowAllAttrs: TSpeedButton
      Left = 141
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Show Raw Attrs'
      AllowAllUp = True
      GroupIndex = 4
      Glyph.Data = {
        0E030000424D0E03000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000006D4374726C732C204244455363680000
        000000000000000000000000000000000000CCCCCCCB9999999B000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000}
      NumGlyphs = 2
      Visible = False
      OnClick = SBShowAllAttrsClick
    end
    object SBViewBlobs: TSpeedButton
      Left = 115
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Explore Blobs'
      AllowAllUp = True
      GroupIndex = 3
      Glyph.Data = {
        0E030000424D0E03000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF
        77F07F773FFFFFFF77F70FFF7700000000007F337777777777770FFFFF0BBBBB
        BBB07F333F7F3FF33FF70FFF700B00BB00B07F3F777F77F377370F707F0BB0B0
        0BB07F77337F37F77337007EEE0BB0B0BBB077FFFF7F37F7F3370777770EE000
        EEE07777777F3777F3F7307EEE0E0E00E0E03773FF7F7377F73733707F0EE000
        0EE03337737F377773373333700EEE00EEE03333377F3377FF373333330EEEE0
        0EE03333337F33377F373333330EEEE00EE03333337F333773373333330EEEEE
        EEE03333337FFFFFFFF733333300000000003333337777777777000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000074726F7926D13815671654466F720000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000003030303030300D0A202020203030
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000048444E6F746966795700
        095448440000000000000000000000000000}
      NumGlyphs = 2
      OnClick = ViewBlobsClick
    end
    object SBSave: TSpeedButton
      Left = 87
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Apply'
      Enabled = False
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3443333333333333333338833333333333333333433333333333333333338333
        3333333333333334333333333444444333383333333338888883334333333333
        3344444333833333333333888883334333333333333444433383333333333338
        8883334333333333333444433383333333333338888333433333333333433443
        3383333333333383388333343333333334333343333833333333383333833333
        4433333443333333333388333338833333333333334444433333333333333388
        8883333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      OnClick = PMSaveClick
    end
    object SBCancel: TSpeedButton
      Left = 62
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Cancel'
      Enabled = False
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333331133333333333333333388333333333333333333331333333333333
        3333333833333111111333333333133338888883333333338333311111333333
        3333313338888833333333333833311113333333333331333888833333333333
        3833311113333333333331333888833333333333383331133133333333333133
        3883383333333333383331333313333333331333383333833333333383333333
        3331133333113333333333388333338833333333333331111133333333333333
        3888883333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      OnClick = PMCancelClick
    end
    object SBDelete: TSpeedButton
      Left = 34
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Delete'
      Enabled = False
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333444433333333333333338888333333333333
        3333444443333333333333438888833333333333338344444333333333333433
        8888833333333333383334444433333333334433388888333333333388333344
        4433333333344333338888333333333883333334444333333344433333388883
        3333338883333333444433333444333333338888333338883333333334444333
        4443333333333888833388833333333333444434443333333333338888388833
        3333333333344444433333333333333888888333333333333333444433333333
        3333333388883333333333333334444443333333333333388888833333333333
        3444433444333333333338888338883333333333444433334443333333338888
        3333888333333344444333333344333333888883333333883333344444333333
        3334433338888833333333388333444443333333333344338888833333333333
        8833444433333333333333448888333333333333338844433333333333333333
        88833333333333333333}
      NumGlyphs = 2
      OnClick = PMDeleteClick
    end
    object DbNavPanel: TPanel
      Left = 269
      Top = 0
      Width = 233
      Height = 29
      Align = alRight
      BevelOuter = bvNone
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 0
      Visible = False
      object DbNavigator: TDBNavigator
        Left = 7
        Top = 2
        Width = 220
        Height = 25
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
      end
    end
  end
  object TreePanel: TPanel
    Left = 0
    Top = 31
    Width = 180
    Height = 199
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object TreeInfoPanel: TPanel
      Left = 0
      Top = 0
      Width = 180
      Height = 20
      Align = alTop
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      TabOrder = 1
      object TreeInfoLine: TLabel
        Left = 6
        Top = 3
        Width = 2
        Height = 11
      end
    end
    object TreeDeltaPanel: TPanel
      Left = 0
      Top = 20
      Width = 180
      Height = 4
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 2
    end
    object TreeTabs: TTabControl
      Left = 0
      Top = 24
      Width = 180
      Height = 175
      Align = alClient
      TabIndex = 0
      TabOrder = 0
      Tabs.Strings = (
        'Databases'
        'Dictionary')
      OnChanging = TreeTabsChanging
      object AntiUnicodeHackPanel: TPanel
        Left = 4
        Top = 24
        Width = 172
        Height = 147
        Align = alClient
        BevelOuter = bvNone
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 0
        object DRTree: TTreeView
          Left = 0
          Top = 0
          Width = 172
          Height = 147
          DragMode = dmAutomatic
          HideSelection = False
          Indent = 19
          OnEditing = ExplorerTreeEditing
          OnEdited = ExplorerTreeEdited
          OnExpanding = ExplorerTreeExpanding
          OnChange = ExplorerTreeSelect
          Align = alClient
          ParentColor = False
          TabOrder = 0
          OnStartDrag = DbXStartDrag
          PopupMenu = BasePopupMenu
          Images = SmallImages
          StateImages = SmallImages
        end
        object DbTree: TTreeView
          Left = 0
          Top = 0
          Width = 172
          Height = 147
          DragMode = dmAutomatic
          HideSelection = False
          Indent = 19
          OnEditing = ExplorerTreeEditing
          OnEdited = ExplorerTreeEdited
          OnExpanding = ExplorerTreeExpanding
          OnChange = ExplorerTreeSelect
          Align = alClient
          ParentColor = False
          TabOrder = 1
          OnStartDrag = DbXStartDrag
          PopupMenu = BasePopupMenu
          Images = SmallImages
          StateImages = SmallImages
        end
      end
    end
  end
  object DataPanel: TPanel
    Left = 184
    Top = 31
    Width = 318
    Height = 199
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object DataInfoPanel: TPanel
      Left = 0
      Top = 0
      Width = 318
      Height = 20
      Align = alTop
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      TabOrder = 1
      object DataInfoLine: TLabel
        Left = 6
        Top = 3
        Width = 2
        Height = 11
      end
    end
    object DataPageControl: TPageControl
      Left = 0
      Top = 24
      Width = 318
      Height = 175
      ActivePage = TabDefinition
      Align = alClient
      TabOrder = 0
      OnChange = DataPageControlChange
      object TabDefinition: TTabSheet
        HelpContext = 1020
        Caption = 'Definition'
        PopupMenu = BasePopupMenu
      end
      object TabSummary: TTabSheet
        HelpContext = 1030
        Caption = 'Summary'
        object SummaryView: TListView
          Left = 0
          Top = 0
          Width = 329
          Height = 118
          Align = alClient
          ColumnClick = False
          OnDblClick = SummaryViewShowInTree
          Columns = <>
          DragMode = dmAutomatic
          ReadOnly = False
          IconOptions.Arrangement = iaLeft
          OnChange = SummaryViewSelect
          OnEdited = SummaryViewEdited
          OnEditing = SummaryViewEditing
          OnEnter = SummaryViewEnter
          OnExit = SummaryViewExit
          OnStartDrag = DbXStartDrag
          PopupMenu = BasePopupMenu
          TabOrder = 0
          ViewStyle = vsSmallIcon
          LargeImages = LargeImages
          SmallImages = SmallImages
          StateImages = SmallImages
        end
      end
      object TabText: TTabSheet
        HelpContext = 1040
        Caption = 'Text'
        object DefinitionMemo: TMemo
          Left = 0
          Top = 0
          Width = 329
          Height = 118
          Align = alClient
          OEMConvert = True
          ReadOnly = True
          ScrollBars = ssBoth
          TabOrder = 0
          WordWrap = False
        end
      end
      object TabDiagram: TTabSheet
        HelpContext = 1050
        Caption = 'Diagram'
        object ConnectionPanel: TPanel
          Left = 0
          Top = 0
          Width = 329
          Height = 118
          Align = alClient
          BevelInner = bvLowered
          BevelOuter = bvLowered
          Caption = 'Data Model Diagramming Not Implemented Yet'
          TabOrder = 0
        end
      end
      object TabData: TTabSheet
        HelpContext = 1060
        Caption = 'Data'
        object TableGrid: TDBGrid
          Left = 0
          Top = 0
          Width = 329
          Height = 118
          Align = alClient
          DataSource = DbTableSource
          TabOrder = 0
          TitleFont.Color = clBlack
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = ViewABlob
        end
      end
      object TabSQL: TTabSheet
        HelpContext = 1070
        Caption = 'Enter SQL'
        object QueryPanel: TPanel
          Left = 0
          Top = 0
          Width = 0
          Height = 32
          Align = alTop
          BevelOuter = bvNone
          PopupMenu = QueryPopupMenu
          TabOrder = 0
          object QueryMemo: TMemo
            Left = 0
            Top = 0
            Width = 279
            Height = 32
            Align = alClient
            TabOrder = 0
          end
          object QueryButtons: TPanel
            Left = -31
            Top = 0
            Width = 31
            Height = 32
            Align = alRight
            BevelOuter = bvNone
            TabOrder = 1
            object SBExecQuery: TSpeedButton
              Left = 4
              Top = 4
              Width = 25
              Height = 25
              Hint = 'Execute Query'
              Glyph.Data = {
                FC020000424DFC02000000000000760000002800000014000000140000000100
                040000000000F000000000000000000000001000000000000000000000000000
                80000080000000808000800000008000800080800000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                3333333300003333333333333333333300003333333083333333333300003333
                33380833333333330000333333330083333333330000333333330B0833333333
                00003333330000B08333333300003333330BBFBB08333333000033333330FB00
                00333333000033333330BFB0833333330000333300000BFB0833333300003333
                0FBFBFBFB08333330000333330FBFB00003333330000333330BFBFB083333333
                00003333330BFBFB0833333300003333330FFFBFF0833333000033333330FBFF
                BF08333300003333333000000000333300003333333333333333333300003333
                3333333333333333000000000000000000000000000000000000000000000000
                0000000000000000000000000000000000000000000000000000000000000000
                0000000000000000000000000000000000000000000000000000000000000000
                0000000000000000000000000000000000000000000000000000000000000000
                0000000000000000000000000000000000000000000000000000000000000000
                0000000000000000000000000000000000000000000000000000000000000000
                0000000000000000000000000000000000000000000000000000000000000000
                0000000000000000000000000000000000000000000000000000000000000000
                0000000000000000000000000000000000000000000000000000000000000000
                0000000000000000000000000000000000000000000000000000000000000000
                0000000000000000000000000000000000000000000000000000000000000000
                0000000000000000000000000000000000000000000000000000000000000000
                000000006C756D6E446566000D42444544650000000000000000000000000000}
              OnClick = PMQExecClick
            end
          end
        end
        object QueryGrid: TDBGrid
          Left = 0
          Top = 35
          Width = 310
          Height = 112
          Align = alClient
          DataSource = DbQuerySource
          TabOrder = 1
          TitleFont.Color = clBlack
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Visible = False
          OnDblClick = ViewABlob
        end
        object QuerySplitPanel: TPanel
          Left = 0
          Top = 32
          Width = 0
          Height = 3
          Cursor = crVSplit
          Align = alTop
          BevelInner = bvRaised
          BevelOuter = bvLowered
          DragCursor = crVSplit
          TabOrder = 2
          OnMouseDown = QuerySplitPanelMouseDown
          OnMouseMove = SplitPanelMouseMove
          OnMouseUp = SplitPanelMouseUp
        end
      end
    end
    object PageDeltaPanel: TPanel
      Left = 0
      Top = 20
      Width = 318
      Height = 4
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 2
    end
  end
  object MainSplitPanel: TPanel
    Left = 180
    Top = 31
    Width = 4
    Height = 199
    Cursor = crHSplit
    Align = alLeft
    BevelOuter = bvNone
    DragCursor = crHSplit
    TabOrder = 2
    OnMouseDown = MainSplitPanelMouseDown
    OnMouseMove = SplitPanelMouseMove
    OnMouseUp = SplitPanelMouseUp
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 230
    Width = 502
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object DbTable: TTable
    Left = 8
    Top = 128
  end
  object BasePopupMenu: TPopupMenu
    OnPopup = BasePopupMenuPopup
    Left = 40
    Top = 96
    object PMOpen: TMenuItem
      Caption = '&Open'
      Enabled = False
      ShortCut = 0
      OnClick = PMOpenCloseClick
    end
    object PMClose: TMenuItem
      Caption = '&Close'
      Enabled = False
      ShortCut = 0
      OnClick = PMOpenCloseClick
    end
    object PMRefresh: TMenuItem
      Caption = '&Refresh'
      Enabled = False
      ShortCut = 16466
      OnClick = PMRefreshClick
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object PMNew: TMenuItem
      Caption = '&New...'
      Enabled = False
      ShortCut = 16462
      OnClick = PMNewClick
    end
    object PMDelete: TMenuItem
      Caption = '&Delete'
      Enabled = False
      ShortCut = 16430
      OnClick = PMDeleteClick
    end
    object PMRename: TMenuItem
      Caption = 'Rena&me'
      Enabled = False
      ShortCut = 16461
      OnClick = PMRenameClick
    end
    object PMSave: TMenuItem
      Caption = '&Apply'
      Enabled = False
      ShortCut = 16449
      OnClick = PMSaveClick
    end
    object PMCancel: TMenuItem
      Caption = 'Cance&l'
      Enabled = False
      ShortCut = 32776
      OnClick = PMCancelClick
    end
    object PMImport: TMenuItem
      Caption = '&Import'
      Enabled = False
      ShortCut = 0
      OnClick = PMImportClick
    end
    object MHotKey: TMenuItem
      Caption = 'HotKey'
      ShortCut = 32889
      Visible = False
      OnClick = MHotKeyClick
    end
    object _Rename: TMenuItem
      Caption = '_Rename'
      ShortCut = 113
      Visible = False
      OnClick = PMRenameClick
    end
  end
  object MainMenu: TMainMenu
    Left = 8
    Top = 96
    object MObject: TMenuItem
      Caption = '&Object'
      ShortCut = 0
      OnClick = MObjectClick
      object MOpen: TMenuItem
        Caption = '&Open'
        Enabled = False
        Hint = 'Open the selected item'
        ShortCut = 0
        OnClick = PMOpenCloseClick
      end
      object MClose: TMenuItem
        Caption = '&Close'
        Enabled = False
        Hint = 'Close the selected item'
        ShortCut = 0
        OnClick = PMOpenCloseClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MNew: TMenuItem
        Caption = '&New...'
        Enabled = False
        ShortCut = 0
        OnClick = PMNewClick
      end
      object MDelete: TMenuItem
        Caption = '&Delete'
        Enabled = False
        ShortCut = 0
        OnClick = PMDeleteClick
      end
      object MRename: TMenuItem
        Caption = 'Rena&me'
        Enabled = False
        ShortCut = 0
        OnClick = PMRenameClick
      end
      object MSave: TMenuItem
        Caption = '&Apply'
        Enabled = False
        ShortCut = 0
        OnClick = PMSaveClick
      end
      object MCancel: TMenuItem
        Caption = 'Cance&l'
        Enabled = False
        ShortCut = 0
        OnClick = PMCancelClick
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MExit: TMenuItem
        Caption = 'E&xit'
        Hint = 'Close the Explorer'
        ShortCut = 0
        OnClick = MExitClick
      end
    end
    object MRepository: TMenuItem
      Caption = '&Dictionary'
      ShortCut = 0
      OnClick = MRepositoryClick
      object MDRSelect: TMenuItem
        Caption = '&Select...'
        ShortCut = 0
        OnClick = MDRSelectClick
      end
      object MDRRegister: TMenuItem
        Caption = '&Register...'
        ShortCut = 0
        OnClick = MDRRegisterClick
      end
      object MDRUnregister: TMenuItem
        Caption = '&Unregister...'
        ShortCut = 0
        OnClick = MDRUnregisterClick
      end
      object MDRNew: TMenuItem
        Caption = '&New...'
        ShortCut = 0
        OnClick = MDRNewClick
      end
      object MDRDelete: TMenuItem
        Caption = '&Delete...'
        ShortCut = 0
        OnClick = MDRDeleteClick
      end
      object MDRImportDb: TMenuItem
        Caption = 'I&mport from Database...'
        Enabled = False
        ShortCut = 0
        OnClick = MDRImportDbClick
      end
      object MDRImport: TMenuItem
        Caption = '&Import from File...'
        Enabled = False
        ShortCut = 0
        OnClick = MDRImportClick
      end
      object MDRExport: TMenuItem
        Caption = '&Export to File...'
        Enabled = False
        ShortCut = 0
        OnClick = MDRExportClick
      end
    end
    object MEdit: TMenuItem
      Caption = '&Edit'
      ShortCut = 0
      OnClick = MEditClick
      object MCut: TMenuItem
        Caption = 'Cu&t'
        Enabled = False
        Hint = 'Cut to clipboard'
        ShortCut = 16472
        OnClick = MCutClick
      end
      object MCopy: TMenuItem
        Caption = '&Copy'
        Enabled = False
        Hint = 'Copy to clipboard'
        ShortCut = 16451
        OnClick = MCopyClick
      end
      object MPaste: TMenuItem
        Caption = '&Paste'
        Enabled = False
        Hint = 'Paste from clipboard'
        ShortCut = 16470
        OnClick = MPasteClick
      end
      object MOldCut: TMenuItem
        Caption = 'OldCut'
        ShortCut = 8238
        Visible = False
        OnClick = MCutClick
      end
      object MOldCopy: TMenuItem
        Caption = 'OldCopy'
        ShortCut = 16429
        Visible = False
        OnClick = MCopyClick
      end
      object MOldPaste: TMenuItem
        Caption = 'OldPaste'
        ShortCut = 8237
        Visible = False
        OnClick = MPasteClick
      end
      object MOtherCut: TMenuItem
        Caption = 'OtherCut'
        ShortCut = 16430
        Visible = False
        OnClick = MCutClick
      end
    end
    object MView: TMenuItem
      Caption = '&View'
      ShortCut = 0
      OnClick = MViewClick
      object MToolbar: TMenuItem
        Caption = '&Toolbar'
        Checked = True
        ShortCut = 0
        OnClick = MToolbarClick
      end
      object MStatusBar: TMenuItem
        Caption = 'Status &Bar'
        Checked = True
        ShortCut = 0
        OnClick = MStatusBarClick
      end
      object MViewBlobs: TMenuItem
        Caption = 'Blob &Explorer'
        ShortCut = 0
        OnClick = ViewBlobsClick
      end
      object MViewSystemData: TMenuItem
        Caption = '&System Data'
        ShortCut = 0
        OnClick = MViewSystemDataClick
      end
      object N8: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MLargeIcons: TMenuItem
        Caption = 'Lar&ge Icons'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = MViewStyleClick
      end
      object MSmallIcons: TMenuItem
        Tag = 1
        Caption = 'S&mall Icons'
        Checked = True
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = MViewStyleClick
      end
      object MList: TMenuItem
        Tag = 2
        Caption = '&List'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = MViewStyleClick
      end
      object MDetail: TMenuItem
        Tag = 3
        Caption = '&Detail'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = MViewStyleClick
      end
      object MAutoArrange: TMenuItem
        Caption = '&Auto Arrange'
        GroupIndex = 2
        ShortCut = 0
        OnClick = MAutoArrangeClick
      end
      object N9: TMenuItem
        Caption = '-'
        GroupIndex = 2
        ShortCut = 0
      end
      object MRefresh: TMenuItem
        Caption = '&Refresh'
        Enabled = False
        GroupIndex = 2
        ShortCut = 0
        OnClick = PMRefreshClick
      end
    end
    object MOptions: TMenuItem
      Caption = 'O&ptions'
      ShortCut = 0
      object MConfirmEdits: TMenuItem
        Caption = 'Confirm &Edits'
        Checked = True
        ShortCut = 0
        OnClick = MConfirmEditsClick
      end
      object MLiveQueries: TMenuItem
        Caption = '&Live Queries'
        ShortCut = 0
        OnClick = MLiveQueriesClick
      end
      object MKeepTreeSync: TMenuItem
        Caption = '&Sync Pages'
        Checked = True
        ShortCut = 0
        OnClick = MKeepTreeSyncClick
      end
    end
    object MHelp: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      OnClick = MHelpClick
      object MContents: TMenuItem
        Caption = '&Contents'
        ShortCut = 0
        OnClick = MContentsClick
      end
      object MAbout: TMenuItem
        Caption = '&About...'
        ShortCut = 0
        OnClick = MAboutClick
      end
    end
  end
  object DbQuery: TQuery
    AfterOpen = DbQueryAfterOpen
    BeforeClose = DbQueryBeforeClose
    Left = 40
    Top = 128
  end
  object DbTableSource: TDataSource
    DataSet = DbTable
    Left = 8
    Top = 160
  end
  object DbQuerySource: TDataSource
    DataSet = DbQuery
    Left = 40
    Top = 160
  end
  object QueryPopupMenu: TPopupMenu
    OnPopup = QueryMenuPopup
    Left = 72
    Top = 96
    object PMQUndo: TMenuItem
      Caption = '&Undo'
      ShortCut = 0
      OnClick = PMQUndoClick
    end
    object N5: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object PMQCut: TMenuItem
      Caption = 'Cu&t'
      ShortCut = 0
      OnClick = PMQCutClick
    end
    object PMQCopy: TMenuItem
      Caption = '&Copy'
      ShortCut = 0
      OnClick = PMQCopyClick
    end
    object PMQPaste: TMenuItem
      Caption = '&Paste'
      ShortCut = 0
      OnClick = PMQPasteClick
    end
    object PMQDelete: TMenuItem
      Caption = '&Delete'
      ShortCut = 0
      OnClick = PMQDeleteClick
    end
    object PMQSelectAll: TMenuItem
      Caption = 'Se&lect All'
      ShortCut = 16449
      OnClick = PMQSelectAllClick
    end
    object N6: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object PMQLoad: TMenuItem
      Caption = 'Load From File...'
      ShortCut = 16460
      OnClick = PMQLoadClick
    end
    object PMQSave: TMenuItem
      Caption = 'Save to File...'
      ShortCut = 16467
      OnClick = PMQSaveClick
    end
    object N7: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object PMQExecute: TMenuItem
      Caption = 'E&xecute'
      ShortCut = 16453
      OnClick = PMQExecClick
    end
    object MQueryHotKey: TMenuItem
      Caption = 'HotKey'
      ShortCut = 32889
      Visible = False
      OnClick = MQueryHotKeyClick
    end
  end
  object LoadQueryDialog: TOpenDialog
    HelpContext = 3000
    DefaultExt = 'sql'
    FileEditStyle = fsEdit
    Filter = 'SQL Files (*.sql)|*.sql|All Files|*.*'
    Options = [ofHideReadOnly, ofShowHelp, ofPathMustExist, ofFileMustExist]
    Title = 'Load Query'
    Left = 104
    Top = 160
  end
  object SaveQueryDialog: TSaveDialog
    HelpContext = 2900
    DefaultExt = 'sql'
    FileEditStyle = fsEdit
    Filter = 'SQL Files(*.sql)|*.sql|All Files|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofShowHelp]
    Title = 'Save Query'
    Left = 72
    Top = 160
  end
  object TablePopupMenu: TPopupMenu
    Left = 104
    Top = 96
  end
  object SmallImages: TImageList
    Left = 72
    Top = 128
  end
  object LargeImages: TImageList
    Height = 32
    Width = 32
    Left = 104
    Top = 128
  end
  object ImportFileDialog: TOpenDialog
    HelpContext = 3100
    DefaultExt = 'bdx'
    FileEditStyle = fsEdit
    Filter = 'Borland Dictionary Exchange Files (*.bdx)|*.bdx|All Files|*.*'
    Options = [ofHideReadOnly, ofShowHelp, ofPathMustExist, ofFileMustExist]
    Title = 'Import from File into Dictionary'
    Left = 136
    Top = 160
  end
end