systemoptionsf.dfm

极具实用价值的文件管理系统

inherited fmSystemOptions: TfmSystemOptions
  Left = 270
  Top = 243
  Caption = 'System Options'
  ClientHeight = 309
  ClientWidth = 485
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnlTitle: TCycPanel
    Width = 485
  end
  inherited lblTitle: TCycLabel
    Width = 135
    Caption = 'System options configuration'
  end
  inherited pnlFooter: TPanel
    Top = 262
    Width = 485
    inherited pnlFooterLine: TCycPanel
      Width = 485
    end
    inherited btnOK: TCycSpeedButton
      Left = 280
    end
    inherited btnCancel: TCycSpeedButton
      Left = 384
    end
  end
  object edtRootPath: TCycLabeledLookupDBEdit
    Left = 67
    Top = 59
    Width = 382
    Height = 21
    DataField = 'RootPath'
    DataSource = dmMain.srcSystemOptions
    TabOrder = 1
    EditLabel.Width = 48
    EditLabel.Height = 13
    EditLabel.Caption = 'Root Path'
    EditLabel.Transparent = True
    LabelPosition = lpLeft
    LabelSpacing = 5
    LookupButton.Left = 451
    LookupButton.Top = 59
    LookupButton.Width = 23
    LookupButton.Height = 22
    LookupButton.Flat = True
    LookupButton.Font.Charset = DEFAULT_CHARSET
    LookupButton.Font.Color = clWindowText
    LookupButton.Font.Height = -24
    LookupButton.Font.Name = 'MS Sans Serif'
    LookupButton.Font.Style = [fsBold]
    LookupButton.Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
      DADAADADADADADADADAD00000000000ADADA003333333330ADAD0B0333333333
      0ADA0FB03333333330AD0BFB03333333330A0FBFB000000000000BFBFBFBFB0A
      DADA0FBFBFBFBF0DADAD0BFB0000000ADADAA000ADADADAD000DDADADADADADA
      D00AADADADAD0DAD0D0DDADADADAD000DADAADADADADADADADAD}
    LookupButton.ParentFont = False
    LookupButton.OnClick = edtRootPathSubButtonClick
    ButtonSpacing = 2
  end
  object grxSystemRunningNo: TGroupBox
    Left = 67
    Top = 90
    Width = 382
    Height = 127
    Caption = 'System Running No.'
    TabOrder = 2
    object CycLabel1: TCycLabel
      Left = 16
      Top = 60
      Width = 22
      Height = 13
      Caption = 'Year'
      Transparent = True
    end
    object CycLabel2: TCycLabel
      Left = 118
      Top = 60
      Width = 30
      Height = 13
      Caption = 'Month'
      Transparent = True
    end
    object CycLabel4: TCycLabel
      Left = 216
      Top = 60
      Width = 19
      Height = 13
      Caption = 'Day'
      Transparent = True
    end
    object edtPrefix: TCycLabeledDBEdit
      Left = 44
      Top = 24
      Width = 77
      Height = 21
      CharCase = ecUpperCase
      DataField = 'Prefix'
      DataSource = dmMain.srcSystemOptions
      TabOrder = 0
      OnChange = edtPrefixChange
      EditLabel.Width = 26
      EditLabel.Height = 13
      EditLabel.Caption = 'Prefix'
      EditLabel.Transparent = True
      LabelPosition = lpLeft
      LabelSpacing = 5
    end
    object edtNoPlace: TCycLabeledDBEdit
      Left = 351
      Top = 56
      Width = 21
      Height = 21
      Hint = #39'3'#39'..'#39'9'#39
      DataField = 'NoPlace'
      DataSource = dmMain.srcSystemOptions
      MaxLength = 1
      TabOrder = 4
      OnChange = edtPrefixChange
      OnKeyPress = edtNoPlaceKeyPress
      EditLabel.Width = 47
      EditLabel.Height = 13
      EditLabel.Caption = 'No. Place'
      EditLabel.Transparent = True
      LabelPosition = lpLeft
      LabelSpacing = 5
    end
    object cbxYear: TDBComboBox
      Left = 44
      Top = 56
      Width = 65
      Height = 21
      Style = csDropDownList
      DataField = 'YearFormat'
      DataSource = dmMain.srcSystemOptions
      ItemHeight = 13
      Items.Strings = (
        '    '
        'YY'
        'YYYY')
      TabOrder = 1
      OnClick = edtPrefixChange
    end
    object cbxMonth: TDBComboBox
      Left = 154
      Top = 56
      Width = 51
      Height = 21
      Style = csDropDownList
      DataField = 'MonthFormat'
      DataSource = dmMain.srcSystemOptions
      ItemHeight = 13
      Items.Strings = (
        '  '
        'MM')
      TabOrder = 2
      OnClick = edtPrefixChange
    end
    object cbxDay: TDBComboBox
      Left = 240
      Top = 56
      Width = 48
      Height = 21
      Style = csDropDownList
      DataField = 'DayFormat'
      DataSource = dmMain.srcSystemOptions
      ItemHeight = 13
      Items.Strings = (
        '  '
        'DD')
      TabOrder = 3
      OnClick = edtPrefixChange
    end
    object edtFormat: TCycLabeledEdit
      Left = 44
      Top = 91
      Width = 249
      Height = 21
      EditLabel.Width = 32
      EditLabel.Height = 13
      EditLabel.Caption = 'Format'
      EditLabel.Transparent = True
      Enabled = False
      LabelPosition = lpLeft
      LabelSpacing = 5
      ReadOnly = True
      TabOrder = 5
    end
  end
  object chkUseSkin: TCheckBox
    Left = 67
    Top = 235
    Width = 97
    Height = 17
    Caption = 'Use Skin'
    TabOrder = 3
  end
end