TdxBarManager->TdxBar->

 TcxBarEditItem 像单项框
   Properties 设定为RadioGroup 这样就是单项框了。
 TdxBarSubItem 下拉菜单
 TdxBarEdit 像 labelEdit
 
 TdxBarEdit
//电召
 object dxbrmngr1: TdxBarManager
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Tahoma'
  Font.Style = []
  Categories.Strings = (
    'Default')
  Categories.ItemsVisibles = (
    2)
  Categories.Visibles = (
    True)
  PopupMenuLinks = <>
  UseSystemFont = False
  Left = 336
  Top = 184
  DockControlHeights = (
    0
    0
    0
    0)
  object dxbrmngr1Bar1: TdxBar
    AllowClose = False
    AllowCustomizing = False
    AllowQuickCustomizing = False
    AllowReset = False
    BorderStyle = bbsNone
    Caption = #33756#21333#26639
    CaptionButtons = <>
    Color = 15789015
    DockControl = dxbrdckcntrl1
    DockedDockControl = dxbrdckcntrl1
    DockedLeft = 0
    DockedTop = 0
    FloatLeft = 231
    FloatTop = 361
    FloatClientWidth = 101
    FloatClientHeight = 168
    ItemLinks = <
      item
        Visible = True
        ItemName = 'btnSys'
      end
      item
        Visible = True
        ItemName = 'btnFeedBack'
      end
      item
        Visible = True
        ItemName = 'dxbrbtn1'
      end
      item
        Visible = True
        ItemName = 'dxbrbtnSubscribleOrNo'
      end
      item
        Visible = True
        ItemName = 'dxbrbtn3'
      end
      item
        Visible = True
        ItemName = 'cxBarEditItem1'
      end>
    NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
    OneOnRow = True
    Row = 0
    ShowMark = False
    SizeGrip = False
    UseOwnFont = False
    UseRecentItems = False
    Visible = True
    WholeRow = True
  end
  object btnSys: TdxBarSubItem
    Caption = #31995#32479#37197#32622
    Category = 0
    Visible = ivAlways
    ItemLinks = <
      item
        Visible = True
        ItemName = 'dxbtnSetIniSequenceNo'
      end
      item
        Visible = True
        ItemName = 'dxbtnEditOperatorNO'
      end>
  end
  object dxbtnSetIniSequenceNo: TdxBarButton
    Caption = #35774#32622#35746#21333#24207#21015#21495
    Category = 0
    Hint = #35774#32622#35746#21333#24207#21015#21495
    Visible = ivAlways
    OnClick = dxbtnSetIniSequenceNoClick
  end
  object dxbtnEditOperatorNO: TdxBarButton
    Caption = #35774#32622#25805#20316#21592#24037#21495
    Category = 0
    Hint = #35774#32622#25805#20316#21592#24037#21495
    Visible = ivAlways
    OnClick = dxbtnEditOperatorNOClick
  end
  object btnFeedBack: TdxBarSubItem
    Caption = #21453#39304#20449#24687
    Category = 0
    Visible = ivAlways
    ItemLinks = <
      item
        Visible = True
        ItemName = 'dxbtnComplain'
      end>
  end
  object dxbtnComplain: TdxBarButton
    Caption = #29992#25143#25237#35785
    Category = 0
    Hint = #29992#25143#25237#35785
    Visible = ivAlways
    OnClick = dxbtnComplainClick
  end
  object dxbrbtn1: TdxBarButton
    Align = iaClient
    Caption = '  |   '
    Category = 0
    Enabled = False
    Hint = '  |  '
    Visible = ivAlways
  end
  object dxbrbtnSubscribleOrNo: TdxBarButton
    Caption = #35746#38405#36710#36742
    Category = 0
    Hint = #35746#38405#36710#36742
    Visible = ivAlways
    ButtonStyle = bsChecked
    Glyph.Data = {
      DE030000424DDE030000000000003600000028000000180000000D0000000100
      180000000000A803000000000000000000000000000000000000FFFFFFFCFFFF
      FCFFFFFFFFFF9D9D9D979695FFFFFFFFFFFFF5FFFFF6FFFFF6FFFFF6FFFFF6FF
      FFF6FFFFF6FFFFF6FFFFF5FFFFFAFFFFFFFFFF989A9A9B9B99FFFFFFF5F7F7FE
      FEFED9D2CF9180749B8F88575A5B928B8F8E8587545254B2A49DA68D7EA58F81
      A68F82A68F81A78E82A68E82A68F82A79082A88F82AC9A915254559B92988279
      7C5D5B59E6EFF4FFFFFFC09A85F2A576E08E625E6771DCCED2E2D8E27A7D819D
      694AFCAF7BFAA875FAA976F9A874FBA672FAA571FAA470FAA26FFCAA72E69466
      5D6771DED2D5E1D6DF75777CCA9980E4D2C9DAA688FFB782FFCF9F0E1C26A6A5
      ACCCC7CF000F1BF3B792FFBE92FFBD94FFC097FFC29BFFC59EFFC8A3FFCAA8FE
      CBAAFFCBAAFFCA9B1F2C36ACA7B1C1C0C9000C1CF4AF7CEAA77FDDCDC2FACEB4
      FFCFAAC99C802423262224249A7862FFE0BDFBBB96FBBA97FBB995FBBA95FBB9
      94FBB892FFBB93F8B690FBB892FFCEAFC6987D2225252B2927C38B6DFFE3AAE7
      C2A3ECF2F6C8D2D8E7E1DFFFF7D5FFE3C3FFDBBEFFFFF1FAC1A5FFE4BCFFE1BB
      FFE1BBFFDDB7FFD8B3FFD3B0FFC7A8FAC3A4FFDDB9FFCAA6FFF7D8FFD6B9FFDA
      BDFFFFEBE7C2BEBDB8E1FFFFFFEFEDECD1D4D6EFD7CEE6CFB9F7D3B4E8B79B9F
      86798C7665B7A58EBCAE93D1BCA1E5CBAEFADDC0F0D6C6FFD9BBC6B59AFFE2C0
      FFF1CDFFFEDFFFEACFFFE7BE2A2BF7DCD2CBFFFFFFFFFFFFFAFAFAEFF6F9DFE0
      E3F0ECEC615F5CA07C633B3B3B0000000000000000000D08071B1513322923D2
      B19C0000001E1B1A5C5147BFA48EFFE9CBFED3B1121669FEFCF1FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF999EA2B28F76A7928407121C191E210206
      08000000000000AB9485242A2D12181B00000000000047403DF4CFBB464A31FF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE2EFF7CDBEB6
      FBDCC97B76705C5A593F3D3D1216169C8B814042424443444241403E3D3D554F
      4CD9C5B6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFDEE1E3FFFDF3EDDED5E1D9D2DACEC4E1D0C6C8C0B8CFC8C2
      DAD1CBE3D6CCEBDDD4E3E1E2FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F5F9FFFFFFFFFFFFFFFFFFFD
      FEFEFFFFFFFFFFFFFFFFFFFFFFFFB7BCBEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFEFEFFFEFFFFFFFFFFFEFFFFFEFFFFFFFFFFFFFFFFFFFFFFEEEEEEFFFFFFFF
      FFFF}
    PaintStyle = psCaptionGlyph
    OnClick = dxbrbtnSubscribleOrNoClick
  end
  object cxBarEditItem1: TcxBarEditItem
    Caption = #29366#24577#65306#26410#30331#38470
    Category = 0
    Hint = #29366#24577#65306
    Visible = ivAlways
    Width = 100
    PropertiesClassName = 'TcxLabelProperties'
  end
  object dxbrbtn3: TdxBarButton
    Caption = '          |             '
    Category = 0
    Enabled = False
    Hint = '      |             '
    Visible = ivAlways
    DropDownEnabled = False
  end
  object dxbrbtn2: TdxBarButton
    Caption = '|'
    Category = 0
    Enabled = False
    Hint = '     |     '
    Visible = ivAlways
  end
  object cxbrdtmVehicleOnLine: TcxBarEditItem
    Align = iaRight
    Category = 0
    MergeKind = mkNone
    Visible = ivAlways
    ShowCaption = True
    Width = 200
    PropertiesClassName = 'TcxLabelProperties'
  end
end
电召工具条窗体文件
//--
object bmManager: TdxBarManager
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #24494#36719#38597#40657
  Font.Style = []
  CanCustomize = False
  Categories.Strings = (
    'Default')
  Categories.ItemsVisibles = (
    2)
  Categories.Visibles = (
    True)
  ImageOptions.Images = imageList
  PopupMenuLinks = <>
  UseBarHintWindow = False
  UseSystemFont = True
  Left = 272
  Top = 96
  DockControlHeights = (
    0
    0
    0
    0)
  object dbActVehicleTool: TdxBar
    AllowClose = False
    AllowCustomizing = False
    AllowQuickCustomizing = False
    Caption = #27963#21160#36710#36742#24037#20855#26639
    CaptionButtons = <>
    Color = clGradientInactiveCaption
    DockControl = bdcActVechicle
    DockedDockControl = bdcActVechicle
    DockedLeft = 0
    DockedTop = 0
    FloatLeft = 506
    FloatTop = 8
    FloatClientWidth = 0
    FloatClientHeight = 0
    ItemLinks = <
      item
        UserDefine = [udWidth]
        UserWidth = 215
        Visible = True
        ItemName = 'cxbViewChose1'
      end
      item
        BeginGroup = True
        Visible = True
        ItemName = 'btnCancelSubscribe'
      end
      item
        Visible = True
        ItemName = 'btnCancelAllSubscribe'
      end
      item
        Visible = True
        ItemName = 'btnClearActList'
      end
      item
        Visible = True
        ItemName = 'btnShowTrack'
      end
      item
        Visible = True
        ItemName = 'btnUnShowTrack'
      end
      item
        Visible = True
        ItemName = 'dxBarSubItem1'
      end
      item
        Visible = True
        ItemName = 'btnCopy'
      end
      item
        Visible = True
        ItemName = 'btnVehicleInfo'
      end
      item
        Visible = True
        ItemName = 'EditVehicleReNO'
      end>
    NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
    OneOnRow = True
    Row = 0
    ShowMark = False
    UseOwnFont = False
    Visible = True
    WholeRow = True
  end
  object btnCancelSubscribe: TdxBarButton
    Caption = #20572#27490#30417#25511
    Category = 0
    Hint = #20572#27490#30417#25511
    Visible = ivAlways
    ImageIndex = 0
    OnClick = btnCancelSubscribeClick
  end
  object btnCancelAllSubscribe: TdxBarButton
    Caption = #20572#27490#30417#25511#25152#26377#36710#36742
    Category = 0
    Hint = #20572#27490#30417#25511#25152#26377#36710#36742
    Visible = ivAlways
    ImageIndex = 1
    OnClick = btnCancelAllSubscribeClick
  end
  object btnShowTrack: TdxBarButton
    Caption = #26174#31034#20840#36712#36857
    Category = 0
    Hint = #26174#31034#20840#36712#36857
    Visible = ivAlways
    ImageIndex = 5
    OnClick = btnShowTrackClick
  end
  object btnUnShowTrack: TdxBarButton
    Caption = #19981#26174#31034#36712#36857
    Category = 0
    Hint = #19981#26174#31034#36712#36857
    Visible = ivAlways
    ImageIndex = 6
    OnClick = btnUnShowTrackClick
  end
  object dxBarSubItem1: TdxBarSubItem
    Caption = #36873#25321
    Category = 0
    Visible = ivAlways
    ItemLinks = <
      item
        Visible = True
        ItemName = 'btnSelectAll'
      end
      item
        Visible = True
        ItemName = 'btnSelectOpp'
      end
      item
        Visible = True
        ItemName = 'btnSelectNone'
      end>
  end
  object btnSelectAll: TdxBarButton
    Caption = #20840#36873
    Category = 0
    Hint = #20840#36873
    Visible = ivAlways
    OnClick = btnSelectAllClick
  end
  object btnSelectOpp: TdxBarButton
    Caption = #21453#36873
    Category = 0
    Hint = #21453#36873
    Visible = ivAlways
    OnClick = btnSelectOppClick
  end
  object btnSelectNone: TdxBarButton
    Caption = #19981#36873
    Category = 0
    Hint = #19981#36873
    Visible = ivAlways
    OnClick = btnSelectNoneClick
  end
  object btnVehicleInfo: TdxBarButton
    Caption = #36710#36742#35814#32454#20449#24687
    Category = 0
    Hint = #36710#36742#35814#32454#20449#24687
    Visible = ivAlways
    ImageIndex = 9
    OnClick = btnVehicleInfoClick
  end
  object EditVehicleReNO: TdxBarEdit
    Caption = #36710#29260#24555#29031
    Category = 0
    Hint = #36710#29260#24555#29031
    Visible = ivAlways
    OnKeyDown = EditVehicleReNOKeyDown
    OnKeyPress = EditVehicleReNOKeyPress
    ShowCaption = True
    Width = 100
  end
  object dxBarSubItem2: TdxBarSubItem
    Caption = 'New SubItem'
    Category = 0
    Visible = ivAlways
    ItemLinks = <>
  end
  object btnClearActList: TdxBarButton
    Caption = 'New Button'
    Category = 0
    Hint = #28165#38500#27963#21160#21015#34920
    Visible = ivAlways
    ImageIndex = 2
    OnClick = btnClearActListClick
  end
  object cxbViewChose1: TcxBarEditItem
    Caption = #35270#22270#65306
    Category = 0
    Hint = #35270#22270#65306
    Visible = ivAlways
    OnCurChange = cxbViewChose1CurChange
    ShowCaption = True
    Width = 100
    PropertiesClassName = 'TcxRadioGroupProperties'
    Properties.Columns = 3
    Properties.DefaultValue = 0
    Properties.Items = <
      item
        Caption = #35746#38405
        Value = 0
      end
      item
        Caption = #19994#21153#35746#38405
        Value = 1
        Tag = 1
      end
      item
        Caption = #20840#37096
        Value = 2
        Tag = 2
      end>
    InternalEditValue = 0
  end
  object btnCopy: TdxBarButton
    Caption = 'New Button'
    Category = 0
    Hint = #22797#21046
    Visible = ivAlways
    ImageIndex = 8
    OnClick = btnCopyClick
  end
end
活动车辆工具条窗体文件

 

posted @ 2016-08-19 15:39  海蓝7  阅读(693)  评论(0编辑  收藏  举报