dxbarcustform.dfm

来自「胜天进销存源码,国产优秀的进销存」· DFM 代码 · 共 1,421 行 · 第 1/4 页

          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 6
          OnClick = ComboBoxMenuAnimationsClick
          Items.Strings = (
            '(None)'
            'Random'
            'Unfold'
            'Slide')
        end
        object CBHint1Ex: TCheckBox
          Left = 20
          Top = 152
          Width = 309
          Height = 17
          Caption = 'Show Tool&Tips on toolbars'
          TabOrder = 4
          OnClick = CBHint1ExClick
        end
        object CBHint2Ex: TCheckBox
          Left = 36
          Top = 172
          Width = 293
          Height = 17
          Caption = 'Show s&hortcut keys in ToolTips'
          TabOrder = 5
          OnClick = CBHint2Click
        end
        object CBLargeIconsEx: TCheckBox
          Left = 20
          Top = 132
          Width = 309
          Height = 17
          Caption = '&Large icons'
          TabOrder = 3
          OnClick = CBLargeIconsClick
        end
        object CBMenusShowRecentItemsFirst: TCheckBox
          Left = 20
          Top = 32
          Width = 309
          Height = 17
          Caption = 'Me&nus show recently used commands first'
          TabOrder = 0
          OnClick = CBMenusShowRecentItemsFirstClick
        end
        object CBShowFullMenusAfterDelay: TCheckBox
          Left = 36
          Top = 52
          Width = 293
          Height = 17
          Caption = 'Show f&ull menus after a short delay'
          TabOrder = 1
          OnClick = CBShowFullMenusAfterDelayClick
        end
        object BResetUsageData: TButton
          Left = 20
          Top = 76
          Width = 119
          Height = 22
          Caption = '&Reset my usage data'
          TabOrder = 2
          OnClick = BResetUsageDataClick
        end
      end
    end
    object tsCommands: TTabSheet
      Caption = ' All commands '
      object LAllCommands: TListBox
        Left = 6
        Top = 8
        Width = 333
        Height = 200
        Style = lbOwnerDrawFixed
        Anchors = [akLeft, akTop, akBottom]
        ItemHeight = 16
        MultiSelect = True
        TabOrder = 0
        OnClick = LAllCommandsClick
        OnDrawItem = LAllCommandsDrawItem
      end
      object CBShowCommandsWithShortCut: TCheckBox
        Left = 6
        Top = 216
        Width = 333
        Height = 17
        Anchors = [akLeft, akBottom]
        Caption = 'Show commands that may have a shortcut'
        Checked = True
        State = cbChecked
        TabOrder = 1
        OnClick = CBShowCommandsWithShortCutClick
      end
    end
    object tsGroups: TTabSheet
      Caption = 'Groups'
      object Bevel4: TBevel
        Left = 171
        Top = 0
        Width = 4
        Height = 238
        Align = alLeft
        Shape = bsSpacer
      end
      object gpGroupItems: TGroupBox
        Left = 175
        Top = 0
        Width = 171
        Height = 238
        Align = alClient
        Caption = ' Items '
        TabOrder = 0
        object lbGroupItems: TListBox
          Left = 2
          Top = 44
          Width = 167
          Height = 192
          Style = lbOwnerDrawVariable
          Align = alClient
          BorderStyle = bsNone
          ItemHeight = 13
          MultiSelect = True
          TabOrder = 0
          OnClick = lbGroupItemsClick
          OnDrawItem = lbGroupItemsDrawItem
          OnKeyDown = lbGroupItemsKeyDown
          OnMeasureItem = lbGroupsMeasureItem
        end
        object tbGroupItems: TToolBar
          Left = 2
          Top = 15
          Width = 167
          Height = 29
          Caption = 'tbGroupItems'
          EdgeBorders = [ebBottom]
          EdgeOuter = esNone
          Flat = True
          Images = imgGroups
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          object btnAddGroupItem: TToolButton
            Left = 0
            Top = 0
            Hint = 'Add Item... (Ins)'
            Action = aAddGroupItem
            Caption = 'Add...'
          end
          object btnDeleteGroupItem: TToolButton
            Left = 23
            Top = 0
            Hint = 'Delete Item (Del)'
            Action = aDeleteGroupItem
          end
          object ToolButton8: TToolButton
            Left = 46
            Top = 0
            Width = 8
            Caption = 'ToolButton8'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object btnMoveUpGroupItem: TToolButton
            Left = 54
            Top = 0
            Hint = 'Move Up Item'
            Action = aMoveUpGroupItem
            Caption = 'Up'
          end
          object btnMoveDownGroupItem: TToolButton
            Left = 77
            Top = 0
            Hint = 'Move Down Item'
            Action = aMoveDownGroupItem
            Caption = 'Down'
          end
        end
      end
      object gbGroups: TGroupBox
        Left = 0
        Top = 0
        Width = 171
        Height = 238
        Align = alLeft
        Caption = ' Groups '
        TabOrder = 1
        object lbGroups: TListBox
          Left = 2
          Top = 44
          Width = 167
          Height = 192
          Style = lbOwnerDrawVariable
          Align = alClient
          BorderStyle = bsNone
          ItemHeight = 13
          MultiSelect = True
          TabOrder = 0
          OnClick = lbGroupsClick
          OnDrawItem = lbGroupsDrawItem
          OnKeyDown = lbGroupsKeyDown
          OnMeasureItem = lbGroupsMeasureItem
        end
        object tbGroups: TToolBar
          Left = 2
          Top = 15
          Width = 167
          Height = 29
          Caption = 'tbGroups'
          EdgeBorders = [ebBottom]
          EdgeOuter = esNone
          Flat = True
          Images = imgGroups
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          object btnAddGroup: TToolButton
            Left = 0
            Top = 0
            Action = aAddGroup
            Caption = 'Add'
          end
          object btnDeleteGroup: TToolButton
            Left = 23
            Top = 0
            Action = aDeleteGroup
            Caption = 'Delete'
          end
          object ToolButton3: TToolButton
            Left = 46
            Top = 0
            Width = 8
            Caption = 'ToolButton3'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object btnMoveUpGroup: TToolButton
            Left = 54
            Top = 0
            Action = aMoveUpGroup
            AllowAllUp = True
            Caption = 'Up'
          end
          object btnMoveDownGroup: TToolButton
            Left = 77
            Top = 0
            Action = aMoveDownGroup
            Caption = 'Down'
          end
        end
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'Key Tips'
      ImageIndex = 5
      TabVisible = False
      object tvKeyTips: TTreeView
        Left = 11
        Top = 13
        Width = 314
        Height = 204
        Indent = 19
        TabOrder = 0
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 8
    Width = 6
    Height = 266
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 2
  end
  object Panel3: TPanel
    Left = 360
    Top = 8
    Width = 6
    Height = 266
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 3
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 366
    Height = 8
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 4
  end
  object BarManager1: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Categories.Strings = (
      'Categories'
      'Commands')
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    PopupMenuLinks = <>
    StretchGlyphs = False
    UseSystemFont = False
    Left = 170
    Top = 278
    DockControlHeights = (
      0
      0
      0
      0)
    object CategoriesAdd: TdxBarButton
      Caption = 'Add...'
      Category = 0
      Hint = 'Add'
      Visible = ivAlways
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        888888888888888888888800000000000888880FFFFFFFFF0888880FFFFFFFFF
        0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF
        0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFF0000888880FFFFFF0F0
        8888880FFFFFF008888888000000008888888888888888888888}
      OnClick = CategoriesAddClick
    end
    object CategoriesInsert: TdxBarButton
      Caption = 'Insert...'
      Category = 0
      Hint = 'Insert'
      Visible = ivAlways
      ShortCut = 45
      OnClick = CategoriesInsertClick
    end
    object CategoriesRename: TdxBarButton
      Caption = 'Rename...'
      Category = 0
      Hint = 'Rename'
      Visible = ivAlways
      OnClick = CategoriesRenameClick
    end
    object CategoriesVisible: TdxBarButton
      Caption = 'Visible'
      Category = 0
      Hint = 'Visible'
      Visible = ivAlways
      ButtonStyle = bsChecked
      OnClick = CategoriesVisibleClick