home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-08-12 | 31.6 KB | 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
-