ebarmegademooptions.dfm

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

object EBarMegaDemoOptionsForm: TEBarMegaDemoOptionsForm
  Left = 692
  Top = 338
  ActiveControl = btnClose
  BorderStyle = bsDialog
  Caption = 'Options'
  ClientHeight = 336
  ClientWidth = 450
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = True
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object pgOptions: TPageControl
    Left = 0
    Top = 0
    Width = 450
    Height = 297
    ActivePage = tsBars
    Align = alTop
    TabOrder = 0
    object tsBars: TTabSheet
      Caption = 'Bars'
      ImageIndex = 1
      object gbBackgroundSubMenu: TGroupBox
        Left = 168
        Top = 129
        Width = 274
        Height = 133
        Caption = 'Submenu background'
        TabOrder = 3
        object imSubMenuBackground: TImage
          Left = 2
          Top = 15
          Width = 270
          Height = 116
          Align = alClient
        end
        object btnBkSubMenuLoad: TButton
          Left = 12
          Top = 104
          Width = 41
          Height = 21
          Caption = 'Load'
          TabOrder = 0
          OnClick = btnBkSubMenuLoadClick
        end
        object btnBkSubMenuClear: TButton
          Left = 56
          Top = 104
          Width = 41
          Height = 21
          Caption = 'Clear'
          TabOrder = 1
          OnClick = btnBkSubMenuClearClick
        end
      end
      object gbBackgroundBars: TGroupBox
        Left = 168
        Top = 0
        Width = 273
        Height = 129
        Caption = 'Background'
        TabOrder = 1
        object imBarsBackground: TImage
          Left = 2
          Top = 15
          Width = 269
          Height = 112
          Align = alClient
        end
        object btnBkBarsLoad: TButton
          Left = 12
          Top = 96
          Width = 41
          Height = 21
          Caption = 'Load'
          TabOrder = 0
          OnClick = btnBkBarsLoadClick
        end
        object btnBkBarsClear: TButton
          Left = 56
          Top = 96
          Width = 41
          Height = 21
          Caption = 'Clear'
          TabOrder = 1
          OnClick = btnBkBarsClearClick
        end
      end
      object rgStyle: TRadioGroup
        Left = 1
        Top = 0
        Width = 160
        Height = 126
        Caption = 'Style'
        Items.Strings = (
          '&Standard'
          '&Enhanced'
          '&Flat'
          '&XP'
          '&Office11')
        TabOrder = 0
        OnClick = rgStyleClick
      end
      object gbBarsMiscellaneous: TGroupBox
        Left = 1
        Top = 128
        Width = 160
        Height = 134
        Caption = 'Miscellaneous'
        TabOrder = 2
        object sbFont: TSpeedButton
          Left = 134
          Top = 11
          Width = 21
          Height = 21
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333333333333333333333FFF33FFFFF33333300033000
            00333337773377777333333330333300033333337FF33777F333333330733300
            0333333377FFF777F33333333700000073333333777777773333333333033000
            3333333337FF777F333333333307300033333333377F777F3333333333703007
            33333333377F7773333333333330000333333333337777F33333333333300003
            33333333337777F3333333333337007333333333337777333333333333330033
            3333333333377333333333333333033333333333333733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = sbFontClick
        end
        object lbFont: TLabel
          Left = 22
          Top = 14
          Width = 21
          Height = 13
          Caption = 'Font'
        end
        object lbFontName: TLabel
          Left = 22
          Top = 31
          Width = 57
          Height = 13
          Caption = 'lbFontName'
        end
        object beMiscellaneous: TBevel
          Left = 8
          Top = 47
          Width = 137
          Height = 5
          Shape = bsBottomLine
        end
        object cbUseF10ForMenu: TCheckBox
          Left = 21
          Top = 55
          Width = 124
          Height = 17
          Caption = 'Use F10 for Menu'
          TabOrder = 0
          OnClick = cbUseF10ForMenuClick
        end
        object cbCanCustomize: TCheckBox
          Left = 21
          Top = 72
          Width = 97
          Height = 17
          Caption = 'Can Customize'
          TabOrder = 1
          OnClick = cbCanCustomizeClick
        end
        object cbSunkenBorder: TCheckBox
          Left = 21
          Top = 90
          Width = 97
          Height = 17
          Caption = 'Sunken Border'
          TabOrder = 2
          OnClick = cbSunkenBorderClick
        end
        object cbAllowReset: TCheckBox
          Left = 21
          Top = 109
          Width = 97
          Height = 17
          Caption = 'Allow Reset'
          TabOrder = 3
          OnClick = cbAllowResetClick
        end
      end
    end
    object tsSideBar: TTabSheet
      Caption = 'Side Bar'
      object gbBackgroundColor: TGroupBox
        Left = 10
        Top = 12
        Width = 138
        Height = 113
        Caption = ' Background Color '
        TabOrder = 0
        object lbBeginColor: TLabel
          Left = 8
          Top = 24
          Width = 53
          Height = 13
          Caption = 'Begin color'
        end
        object lbEndColor: TLabel
          Left = 8
          Top = 44
          Width = 45
          Height = 13
          Caption = 'End color'
        end
        object lbFillStyle: TLabel
          Left = 8
          Top = 68
          Width = 36
          Height = 13
          Caption = 'Fill style'
        end
        object blStep: TLabel
          Left = 8
          Top = 92
          Width = 22
          Height = 13
          Caption = 'Step'
        end
        object pBeginColor: TPanel
          Left = 64
          Top = 20
          Width = 65
          Height = 17
          Color = clGrayText
          TabOrder = 0
          OnClick = pBeginColorClick
        end
        object pEndColor: TPanel
          Tag = 1
          Left = 64
          Top = 40
          Width = 65
          Height = 17
          Color = clGrayText
          TabOrder = 1
          OnClick = pBeginColorClick
        end
        object cbFillStyle: TComboBox
          Left = 64
          Top = 60
          Width = 65
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 2
          OnChange = cbFillStyleChange
          Items.Strings = (
            'Horz'
            'None'
            'Vert')
        end
        object seStep: TSpinEdit
          Left = 64
          Top = 84
          Width = 65
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 3
          Value = 0
          OnChange = seStepChange
        end
      end
      object gbBackgroundPicture: TGroupBox
        Left = 297
        Top = 12
        Width = 137
        Height = 252
        Caption = ' Background Picture '
        TabOrder = 5
        object ImSideBarbkPicture: TImage
          Left = 2
          Top = 15
          Width = 133
          Height = 235