tbmain.dfm

电话银行菜单编辑器

object MainForm: TMainForm
  Left = 190
  Top = 105
  Width = 600
  Height = 468
  Caption = '中太电话银行后台菜单编辑器'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 750
    Height = 30
    Anchors = [akLeft, akTop, akRight, akBottom]
    AutoDock = False
    AutoDrag = False
    AutoSize = True
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 12
      Top = 2
      Width = 341
      Height = 22
      Align = alLeft
      Anchors = [akLeft, akTop, akRight, akBottom]
      Caption = 'ToolBar1'
      EdgeBorders = []
      Flat = True
      Images = ImageList1
      TabOrder = 0
      object TBNewChild: TToolButton
        Left = 0
        Top = 0
        Hint = '新建菜单结点'
        Caption = 'TBNewChild'
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = NewChildClick
      end
      object ToolButton10: TToolButton
        Left = 23
        Top = 0
        Width = 8
        Caption = 'ToolButton10'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object TBAddScreen: TToolButton
        Left = 31
        Top = 0
        Hint = '新建域输入结点'
        Caption = 'TBAddScreen'
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        OnClick = AddScreenClick
      end
      object ToolButton3: TToolButton
        Left = 54
        Top = 0
        Width = 9
        Caption = 'ToolButton3'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object TBDelete: TToolButton
        Left = 63
        Top = 0
        Hint = '删除树结点'
        Caption = 'TBDelete'
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = DeleteClick
      end
      object ToolButton4: TToolButton
        Left = 86
        Top = 0
        Width = 9
        Caption = 'ToolButton4'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object TBExpand: TToolButton
        Left = 95
        Top = 0
        Hint = '扩展树结点'
        Caption = '扩展菜单树(&E)'
        ImageIndex = 7
        ParentShowHint = False
        ShowHint = True
        OnClick = ExpandClick
      end
      object ToolButton5: TToolButton
        Left = 118
        Top = 0
        Width = 9
        Caption = 'ToolButton5'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object TBCollapse: TToolButton
        Left = 127
        Top = 0
        Hint = '折叠树结点'
        Caption = '折叠菜单树(&C)'
        ImageIndex = 8
        ParentShowHint = False
        ShowHint = True
        OnClick = CollapseClick
      end
      object ToolButton7: TToolButton
        Left = 150
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object TBFind: TToolButton
        Left = 158
        Top = 0
        Hint = '查找树结点'
        Caption = 'TBFind'
        ImageIndex = 4
        ParentShowHint = False
        ShowHint = True
        OnClick = FindClick
      end
      object ToolButton9: TToolButton
        Left = 181
        Top = 0
        Width = 8
        Caption = 'ToolButton9'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object TBRefresh: TToolButton
        Left = 189
        Top = 0
        Hint = '刷新树结点'
        Caption = 'TBRefresh'
        ImageIndex = 9
        ParentShowHint = False
        ShowHint = True
        OnClick = RefreshClick
      end
      object ToolButton8: TToolButton
        Left = 212
        Top = 0
        Width = 8
        Caption = 'ToolButton8'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object TBHelp: TToolButton
        Left = 220
        Top = 0
        Hint = '系统帮助'
        Caption = 'TBHelp'
        ImageIndex = 5
        ParentShowHint = False
        ShowHint = True
        OnClick = AboutClick
      end
      object ToolButton6: TToolButton
        Left = 243
        Top = 0
        Width = 9
        Caption = 'ToolButton6'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object TBExit: TToolButton
        Left = 252
        Top = 0
        Hint = '退出系统'
        Caption = 'TBExit'
        ImageIndex = 6
        ParentShowHint = False
        ShowHint = True
        OnClick = ExitClick
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 32
    Width = 729
    Height = 481
    Alignment = taRightJustify
    Anchors = [akLeft, akTop, akRight, akBottom]
    DragMode = dmAutomatic
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 679
      Height = 479
      ActivePage = TabSheet1
      Anchors = [akLeft, akTop, akRight, akBottom]
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = '菜单编辑器'
        OnShow = TabSheet1Show
        object GroupBox1: TGroupBox
          Left = 245
          Top = 0
          Width = 337
          Height = 362
          Anchors = [akTop, akRight, akBottom]
          BiDiMode = bdRightToLeft
          Caption = '菜单结点属性'
          ParentBiDiMode = False
          TabOrder = 1
          object dxInspector1: TdxInspector
            Left = 8
            Top = 16
            Width = 321
            Height = 338
            TabOrder = 0
            OnExit = dxInspector1Exit
            OnKeyPress = dxInspector1KeyPress
            DividerPos = 96
            OnEdited = dxInspector1Edited
            Anchors = [akLeft, akTop, akRight, akBottom]
            Data = {
              CC000000070000000800000000000000100000006478496E73706563746F7231
              526F77310800000000000000100000006478496E73706563746F7231526F7732
              0800000000000000100000006478496E73706563746F7231526F773308000000
              00000000100000006478496E73706563746F7231526F77340800000000000000
              100000006478496E73706563746F7231526F7735080000000000000010000000
              6478496E73706563746F7231526F77360800000000000000100000006478496E
              73706563746F7231526F773700000000}
            object dxInspector1Row1: TdxInspectorTextRow
              Caption = '菜单代码'
              MaxLength = 10
            end
            object dxInspector1Row2: TdxInspectorTextRow
              Caption = '菜单名称'
              MaxLength = 30
            end
            object dxInspector1Row3: TdxInspectorTextRow
              Caption = '父菜单码'
              MaxLength = 10
              ReadOnly = True
            end
            object dxInspector1Row4: TdxInspectorTextRow
              Caption = '子菜单码'
              MaxLength = 10
            end
            object dxInspector1Row5: TdxInspectorTextRow
              Caption = '交易代码'
              MaxLength = 10
            end
            object dxInspector1Row6: TdxInspectorTextButtonRow
              Caption = '语音文件'
              MaxLength = 30
              RowHeight = 18
              Buttons = <
                item
                  Default = True
                  Glyph.Data = {
                    42020000424D4202000000000000420000002800000010000000100000000100
                    1000030000000002000000000000000000000000000000000000007C0000E003
                    00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
                    1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
                    1F7C1F7C1F7C000000000000000000000000000000000000000000001F7C1F7C
                    1F7C1F7C1F7C0000000000420042004200420042004200420042004200001F7C
                    1F7C1F7C1F7C0000E07F00000042004200420042004200420042004200420000
                    1F7C1F7C1F7C0000FF7FE07F0000004200420042004200420042004200420042
                    00001F7C1F7C0000E07FFF7FE07F000000420042004200420042004200420042
                    004200001F7C0000FF7FE07FFF7FE07F00000000000000000000000000000000
                    0000000000000000E07FFF7FE07FFF7FE07FFF7FE07FFF7FE07F00001F7C1F7C
                    1F7C1F7C1F7C0000FF7FE07FFF7FE07FFF7FE07FFF7FE07FFF7F00001F7C1F7C
                    1F7C1F7C1F7C0000E07FFF7FE07F00000000000000000000000000001F7C1F7C
                    1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
                    000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
                    000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C0000
                    1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C
                    1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
                    1F7C1F7C1F7C}
                  Kind = bkGlyph
                end>
              EditButtonStyle = ebsGlyph
              ClickKey = 0
              Glyph.Data = {
                42020000424D4202000000000000420000002800000010000000100000000100
                1000030000000002000000000000000000000000000000000000007C0000E003
                00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
                1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
                1F7C1F7C1F7C000000000000000000000000000000000000000000001F7C1F7C
                1F7C1F7C1F7C0000000000420042004200420042004200420042004200001F7C
                1F7C1F7C1F7C0000E07F00000042004200420042004200420042004200420000
                1F7C1F7C1F7C0000FF7FE07F0000004200420042004200420042004200420042
                00001F7C1F7C0000E07FFF7FE07F000000420042004200420042004200420042
                004200001F7C0000FF7FE07FFF7FE07F00000000000000000000000000000000
                0000000000000000E07FFF7FE07FFF7FE07FFF7FE07FFF7FE07F00001F7C1F7C
                1F7C1F7C1F7C0000FF7FE07FFF7FE07FFF7FE07FFF7FE07FFF7F00001F7C1F7C
                1F7C1F7C1F7C0000E07FFF7FE07F00000000000000000000000000001F7C1F7C
                1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
                000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
                000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C0000
                1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C
                1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
                1F7C1F7C1F7C}
              OnButtonClick = dxInspector1Row6ButtonClick
            end
            object dxInspector1Row7: TdxInspectorTextPickRow