setcs.dfm

来自「这是一个电力多功能电表的参数设置工具软件」· DFM 代码 · 共 790 行 · 第 1/2 页

object frmSetCs: TfrmSetCs
  Left = 105
  Top = 109
  BorderStyle = bsDialog
  Caption = '参数卡设置'
  ClientHeight = 338
  ClientWidth = 456
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    000000000000330077000000000000000000000000003B077070000000000000
    000000000000BB807007000000000000000000000300B0007000700000000000
    00000000330070070700070000000000000000003B0700700070007000000000
    00000000BB800700000700070000000000000300B00070000000700070000000
    0000330070070000000007000700000000003B07007000000000007007000000
    0000BB800700000000000007070000000300B000700000000070000077000000
    330070070000000007000000803300003B070070000000000000000800330000
    BB8007000000000000000080BBBB0300B000700000000070000008000BB03300
    70070000000707000000803300003B070070000000707000000800330000BB80
    07000000070700000080BBBB0000B000700000000070000008000BB000007007
    0000000007000000803300000000707000007770000000080033000000008700
    0007070700000080BBBB00000000080000077777000008000BB0000000000080
    0007070700008033000000000000000800007770000800330000000000000000
    800000000080BBBB00000000000000000800000008000BB00000000000000000
    0080000080330000000000000000000000080008003300000000000000000000
    00008080BBBB00000000000000000000000008000BB00000000000000000FFFF
    33FFFFFF21FFFFFF00FFFFFB007FFFF3003FFFF2001FFFF0000FFFB00007FF30
    0003FF200003FF000003FB000003F3000000F2000000F0000010B00000393000
    000F2000000F0000010F0000039F000000FF000000FF000010FF800039FFC000
    0FFFE0000FFFF0010FFFF8039FFFFC00FFFFFE00FFFFFF10FFFFFFB9FFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 456
    Height = 338
    Align = alClient
  end
  object SpeedButton3: TSpeedButton
    Left = 345
    Top = 193
    Width = 76
    Height = 25
    Caption = '全不选'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
      33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
      993337777F777F3377F3393999707333993337F77737333337FF993399933333
      399377F3777FF333377F993339903333399377F33737FF33377F993333707333
      399377F333377FF3377F993333101933399377F333777FFF377F993333000993
      399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
      99333773FF777F777733339993707339933333773FF7FFF77333333999999999
      3333333777333777333333333999993333333333377777333333}
    NumGlyphs = 2
    OnClick = SpeedButton3Click
  end
  object SpeedButton2: TSpeedButton
    Left = 345
    Top = 157
    Width = 76
    Height = 25
    Caption = '全选'
    Flat = True
    Glyph.Data = {
      F2010000424DF201000000000000760000002800000024000000130000000100
      0400000000007C01000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334433333
      3333333333388F3333333333000033334224333333333333338338F333333333
      0000333422224333333333333833338F33333333000033422222243333333333
      83333338F3333333000034222A22224333333338F33F33338F33333300003222
      A2A2224333333338F383F3338F33333300003A2A222A222433333338F8333F33
      38F33333000034A22222A22243333338833333F3338F333300004222A2222A22
      2433338F338F333F3338F3330000222A3A2224A22243338F3838F338F3338F33
      0000A2A333A2224A2224338F83338F338F3338F300003A33333A2224A2224338
      333338F338F3338F000033333333A2224A2243333333338F338F338F00003333
      33333A2224A2233333333338F338F83300003333333333A2224A333333333333
      8F338F33000033333333333A222433333333333338F338F30000333333333333
      A224333333333333338F38F300003333333333333A223333333333333338F8F3
      000033333333333333A3333333333333333383330000}
    NumGlyphs = 2
    OnClick = SpeedButton2Click
  end
  object SpeedButton1: TSpeedButton
    Left = 345
    Top = 240
    Width = 77
    Height = 41
    Caption = '设置为默认值'
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
      7700333333337777777733333333008088003333333377F73377333333330088
      88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
      000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
      FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
      99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    Layout = blGlyphTop
    NumGlyphs = 2
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object Label7: TLabel
    Left = 188
    Top = 304
    Width = 258
    Height = 12
    Caption = '(0:显示顺序--峰平谷尖;1:显示顺序--尖峰平谷)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 192
    Top = 194
    Width = 6
    Height = 12
    Caption = 'V'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 192
    Top = 164
    Width = 6
    Height = 12
    Caption = 'V'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 192
    Top = 136
    Width = 6
    Height = 12
    Caption = 'W'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 190
    Top = 49
    Width = 12
    Height = 12
    Caption = '秒'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 190
    Top = 21
    Width = 12
    Height = 12
    Caption = '分'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 167
    Top = 78
    Width = 12
    Height = 12
    Caption = '日'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 226
    Top = 78
    Width = 12
    Height = 12
    Caption = '时'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 189
    Top = 107
    Width = 12
    Height = 12
    Caption = '分'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object chkFl: TCheckBox
    Left = 12
    Top = 302
    Width = 19
    Height = 19
    Caption = 'chkXl'
    TabOrder = 36
  end
  object chkBps: TCheckBox
    Left = 12
    Top = 273
    Width = 19
    Height = 19
    Caption = 'chkXl'
    TabOrder = 35
  end
  object chkDld: TCheckBox
    Left = 12
    Top = 245
    Width = 19
    Height = 19
    Caption = 'chkXl'
    TabOrder = 34
  end
  object chkBph: TCheckBox
    Left = 12
    Top = 216
    Width = 19
    Height = 19
    Caption = 'chkXl'
    Checked = True
    State = cbChecked
    TabOrder = 33
  end
  object chkDyl: TCheckBox
    Left = 12
    Top = 188
    Width = 19
    Height = 19
    Caption = 'chkXl'
    Checked = True
    State = cbChecked
    TabOrder = 32
  end
  object chkDyh: TCheckBox
    Left = 12
    Top = 159
    Width = 19
    Height = 19
    Caption = 'chkXl'
    Checked = True
    State = cbChecked
    TabOrder = 31
  end
  object chkCfh: TCheckBox
    Left = 12
    Top = 132
    Width = 19
    Height = 19
    Caption = 'chkXl'
    Checked = True
    State = cbChecked
    TabOrder = 30
  end
  object chkFhr: TCheckBox
    Left = 12
    Top = 102
    Width = 19
    Height = 19
    Caption = 'chkXl'
    Checked = True
    State = cbChecked
    TabOrder = 29
  end
  object chkCbr: TCheckBox
    Left = 12
    Top = 75
    Width = 19
    Height = 19
    Caption = 'chkXl'
    Checked = True
    State = cbChecked
    TabOrder = 28
  end
  object chkXxsj: TCheckBox
    Left = 12
    Top = 46
    Width = 19
    Height = 19
    Caption = 'chkXl'
    Checked = True
    State = cbChecked
    TabOrder = 27
  end
  object chkXlsj: TCheckBox
    Left = 12
    Top = 17
    Width = 19
    Height = 19
    Caption = 'chkXlsj'
    Checked = True
    State = cbChecked
    TabOrder = 26
  end
  object cboFl: TComboBox
    Left = 128
    Top = 301
    Width = 52
    Height = 20
    ItemHeight = 12
    MaxLength = 2
    TabOrder = 25
    Text = '1'
    Items.Strings = (
      '0'
      '1')
  end
  object Panel11: TPanel
    Left = 29
    Top = 301
    Width = 97
    Height = 21
    Caption = '费率顺序号'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 24
  end
  object cboCbr: TComboBox
    Left = 128
    Top = 73
    Width = 39
    Height = 20
    ItemHeight = 12
    MaxLength = 2
    TabOrder = 23
    Text = '1'
    Items.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'