sd.dfm

这是一个电力多功能电表的参数设置工具软件

object frmSd: TfrmSd
  Left = 0
  Top = 69
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = '上电显示设置'
  ClientHeight = 491
  ClientWidth = 783
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  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
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object pgeXs: TPageControl
    Left = 394
    Top = 0
    Width = 389
    Height = 469
    ActivePage = TabSheet8
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    HotTrack = True
    Images = ImageList1
    ParentFont = False
    TabOrder = 3
    TabPosition = tpBottom
    object TabSheet8: TTabSheet
      Caption = '循显项数据'
      object lstXs: TListBox
        Left = -1
        Top = 0
        Width = 382
        Height = 421
        ExtendedSelect = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 0
      end
    end
  end
  object pgeSd: TPageControl
    Tag = 6
    Left = 0
    Top = 0
    Width = 372
    Height = 491
    ActivePage = TabSheet7
    Align = alLeft
    Font.Charset = GB2312_CHARSET
    Font.Color = clTeal
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    HotTrack = True
    MultiLine = True
    ParentFont = False
    TabOrder = 0
    TabPosition = tpBottom
    object TabSheet1: TTabSheet
      Caption = '1.有功电量'
      object chkLstYgdl: TCheckListBox
        Left = 0
        Top = 0
        Width = 364
        Height = 424
        OnClickCheck = chkLstYgdlClickCheck
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = '2.无功电量'
      ImageIndex = 1
      object chkLstWgdl: TCheckListBox
        Tag = 1
        Left = 0
        Top = 0
        Width = 364
        Height = 424
        OnClickCheck = chkLstWgdlClickCheck
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 0
      end
    end
    object TabSheet3: TTabSheet
      Caption = '3.需量'
      ImageIndex = 2
      object chkLstXl: TCheckListBox
        Tag = 2
        Left = 0
        Top = 0
        Width = 364
        Height = 424
        OnClickCheck = chkLstXlClickCheck
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 0
      end
    end
    object TabSheet4: TTabSheet
      Caption = '4.需量出现时间'
      ImageIndex = 3
      object chkLstXlsj: TCheckListBox
        Tag = 4
        Left = 0
        Top = 0
        Width = 729
        Height = 424
        OnClickCheck = chkLstXlsjClickCheck
        Align = alLeft
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 0
      end
    end
    object TabSheet5: TTabSheet
      Caption = '5.实时数据'
      ImageIndex = 4
      object chkLstSs: TCheckListBox
        Left = 0
        Top = 0
        Width = 729
        Height = 424
        OnClickCheck = chkLstSsClickCheck
        Align = alLeft
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 0
      end
    end
    object TabSheet6: TTabSheet
      Caption = '6.电压越限记录'
      ImageIndex = 5
      object chkLstDy: TCheckListBox
        Left = 0
        Top = 0
        Width = 729
        Height = 424
        OnClickCheck = chkLstDyClickCheck
        Align = alLeft
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        Sorted = True
        TabOrder = 0
      end
    end
    object TabSheet7: TTabSheet
      Caption = '7.失压、失流记录'
      ImageIndex = 6
      object chkLstSysl: TCheckListBox
        Left = 0
        Top = 0
        Width = 364
        Height = 424
        OnClickCheck = chkLstSyslClickCheck
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 0
      end
    end
    object TabSheet9: TTabSheet
      Caption = '8.其它数据'
      ImageIndex = 7
      object chkLstQt: TCheckListBox
        Left = 0
        Top = 0
        Width = 729
        Height = 424
        OnClickCheck = chkLstQtClickCheck
        Align = alLeft
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        Sorted = True
        TabOrder = 0
      end
    end
    object TabSheet10: TTabSheet
      Caption = '9.电表参数'
      ImageIndex = 8
      object chkLstCs: TCheckListBox