sampledockingmain.dfm

胜天进销存源码,国产优秀的进销存

object SampleDockingMainForm: TSampleDockingMainForm
  Left = 230
  Top = 102
  Width = 716
  Height = 630
  Caption = 'ExpressBars6 SampleDocking Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object lbDescription: TLabel
    Left = 0
    Top = 23
    Width = 708
    Height = 32
    Align = alTop
    Caption = 
      'This demo illustrates runtime management of dock panels and' +
      ' the various dock styles available to you. See Help | About for' +
      ' more information.'
    Color = 15921902
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    WordWrap = True
  end
  object DockSite1: TdxDockSite
    Left = 0
    Top = 55
    Width = 708
    Height = 522
    Align = alClient
    OnHideControl = HideDockControl
    OnShowControl = ShowDockControl
    DockType = 0
    OriginalWidth = 708
    OriginalHeight = 522
  end
  object dxStatusBar: TdxStatusBar
    Left = 0
    Top = 577
    Width = 708
    Height = 19
    Panels = <
      item
        PanelStyleClassName = 'TdxStatusBarTextPanelStyle'
        PanelStyle.AutoHint = True
      end>
    PaintStyle = stpsXP
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
  end
  object dxDockingManager: TdxDockingManager
    Color = clBtnFace
    DefaultHorizContainerSiteProperties.Dockable = True
    DefaultHorizContainerSiteProperties.ImageIndex = -1
    DefaultVertContainerSiteProperties.Dockable = True
    DefaultVertContainerSiteProperties.ImageIndex = -1
    DefaultTabContainerSiteProperties.Dockable = True
    DefaultTabContainerSiteProperties.ImageIndex = -1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Images = ilDockPanels
    Options = [doActivateAfterDocking, doDblClickDocking, doFloatingOnTop, doTabContainerHasCaption, doTabContainerCanAutoHide, doSideContainerHasCaption, doSideContainerCanClose, doSideContainerCanAutoHide, doTabContainerCanInSideContainer, doSideContainerCanInTabContainer, doSideContainerCanInSideContainer]
    ViewStyle = vsXP
    Left = 520
    Top = 32
  end
  object BarManager: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Bars = <
      item
        Caption = 'Main Menu'
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 0
        DockingStyle = dsTop
        FloatLeft = 43
        FloatTop = 96
        FloatClientWidth = 132
        FloatClientHeight = 38
        IsMainMenu = True
        ItemLinks = <
          item
            Item = dxBarSubItem1
            Visible = True
          end
          item
            Item = dxBarSubItem3
            Visible = True
          end
          item
            Item = dxBarSubItem4
            Visible = True
          end
          item
            Item = dxBarSubItem2
            Visible = True
          end>
        MultiLine = True
        OneOnRow = True
        Row = 0
        UseOwnFont = False
        Visible = True
        WholeRow = True
      end>
    Categories.Strings = (
      'File'
      'Style'
      'Manager'
      'View'
      'Popup'
      'Help')
    Categories.ItemsVisibles = (
      2
      2
      2
      2
      2
      2)
    Categories.Visibles = (
      True
      True
      True
      True
      True
      True)
    HotImages = ilHotImages
    DisabledImages = ilDisabledImages
    LargeImages = imBarIcons
    PopupMenuLinks = <>
    StretchGlyphs = False
    Style = bmsXP
    UseSystemFont = True
    Left = 454
    Top = 32
    DockControlHeights = (
      0
      0
      23
      0)
    object dxBarButtonExit: TdxBarButton
      Caption = 'E&xit'
      Category = 0
      Hint = 'Exit'
      Visible = ivAlways
      ShortCut = 32856
      OnClick = dxBarButtonExitClick
    end
    object dxBarButtonStandardView: TdxBarButton
      Caption = 'Standard View'
      Category = 1
      Hint = 'Standard View'
      Visible = ivAlways
      ButtonStyle = bsChecked
      GroupIndex = 5
    end
    object dxBarButtonNETView: TdxBarButton
      Caption = 'NET View'
      Category = 1
      Hint = 'NET View'
      Visible = ivAlways
      ButtonStyle = bsChecked
      GroupIndex = 5
      Down = True
    end
    object dxBarButtonOffice11View: TdxBarButton
      Caption = 'Office View'
      Category = 1
      Hint = 'Office View'
      Visible = ivAlways
      ButtonStyle = bsChecked
      GroupIndex = 5
    end
    object dxBarButtonXPView: TdxBarButton
      Caption = 'XP View'
      Category = 1
      Hint = 'XP View'
      Visible = ivAlways
      ButtonStyle = bsChecked
      GroupIndex = 5
    end
    object dxBarButton1: TdxBarLargeButton
      Action = dmCommonData.actAbout
      Category = 5
    end
    object dxBarButton2: TdxBarLargeButton
      Action = dmCommonData.actDownloads
      Category = 5
    end
    object dxBarButton3: TdxBarLargeButton
      Action = dmCommonData.actDXOnTheWeb
      Category = 5
    end
    object dxBarButton4: TdxBarLargeButton
      Action = dmCommonData.actSupport
      Category = 5
    end
    object dxBarButton5: TdxBarLargeButton
      Action = dmCommonData.actBarsHelp
      Category = 5
    end
    object dxBarButton6: TdxBarLargeButton
      Action = dmCommonData.actProducts
      Category = 5
    end
    object dxBarButton7: TdxBarLargeButton
      Action = dmCommonData.actRateDemo
      Category = 5
    end
    object dxBarSubItem1: TdxBarSubItem
      Caption = '&File'
      Category = 0
      Visible = ivAlways
      ItemLinks = <
        item
          Item = dxBarButtonExit
          Visible = True
        end>
    end
    object dxBarSubItem2: TdxBarSubItem
      Caption = '&Help'
      Category = 5
      Visible = ivAlways
      ItemLinks = <
        item
          Item = dxBarLargeButton1
          Visible = True
        end
        item
          Item = dxBarButton5
          Visible = True