battery.~dfm

通过串口读取EC传送的电池信息

object MainForm: TMainForm
  Left = 192
  Top = 120
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #30005#27744#30417#25511#31243#24207
  ClientHeight = 414
  ClientWidth = 812
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000033B8B8B8B8B800000000000000000003FB7B7B7B7B7B8B0000000000000
    00037BFB7B7B7B7B8B8B0000000000000037BFB7B7B7B7B7B8B8B00000000000
    003B7BFB9999999B8B8B8000000000000037BFB7B7B7B7B7B7B8B00000000000
    003B7BFB7B7B7B7B7B8B8000000000000037BFB7B7B7B7B7B7B8B00000000000
    003B7BFB7B7B7B7B7B8B8000000000000037BFB7B7B7B7B7B7B8B00000000000
    003B7BFB7B7B7B7B7B8B8000000000000037BFB7B7B7B7B7B7B8B00000000000
    003B7BFB7B7B7B7B7B8B8000000000000037B7777777777777B8B00000000000
    003B777777777777778780000000000000877777777777777778B00000000000
    0087777777777777778780000000000000877777777997777778700000000000
    0087777777799777778780000000000000877777799999977778700000000000
    0087777779999997778780000000000000877777777997777778700000000000
    0087777777799777778780000000000000877777777777777778700000000000
    0087777FFFFFFFFFFF87800000000000008777788877777777FF700000000000
    008FF887770000088888F000000000000008887778F788808800000000000000
    0000008888F7778000000000000000000000000008FFF7800000000000000000
    0000000000888880000000000000FFE007FFFF8001FFFF0000FFFE00007FFC00
    003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00
    003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00
    003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFE00
    007FFFC003FFFFF81FFFFFFC1FFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000003BBBBBB800000003
    BBBBBBBB80000003BBBBBBBB80000003BBB999BB80000003BBBBBBBB80000003
    BBBBBBBB80000003B77777778000000377777777800000087777777780000008
    77779777800000087779997780000008777797778000000877FFFFFF80000008
    F870008880000000088F770000000000000888000000F0070000E0030000E003
    0000E0030000E0030000E0030000E0030000E0030000E0030000E0030000E003
    0000E0030000E0030000E0030000F80F0000FE3F0000}
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label5: TLabel
    Left = 21
    Top = 88
    Width = 26
    Height = 13
    Caption = 'Time:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 72
    Top = 88
    Width = 63
    Height = 13
    Caption = 'RemCapacity'
  end
  object Label7: TLabel
    Left = 147
    Top = 88
    Width = 34
    Height = 13
    Caption = 'Current'
  end
  object Label8: TLabel
    Left = 210
    Top = 88
    Width = 36
    Height = 13
    Caption = 'Voltage'
  end
  object Label9: TLabel
    Left = 264
    Top = 88
    Width = 37
    Height = 13
    Caption = 'Percent'
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 3
    Width = 345
    Height = 78
    Caption = #35774#32622
    Color = clBtnFace
    ParentColor = False
    TabOrder = 6
    object Label1: TLabel
      Left = 8
      Top = 19
      Width = 24
      Height = 13
      Caption = 'Com:'
    end
    object Label2: TLabel
      Left = 8
      Top = 52
      Width = 27
      Height = 13
      Caption = #36229#26102':'
    end
    object Label3: TLabel
      Left = 128
      Top = 19
      Width = 26
      Height = 13
      Caption = 'Rate:'
    end
    object Label4: TLabel
      Left = 127
      Top = 53
      Width = 27
      Height = 13
      Caption = #25968#25454':'
    end
  end
  object Memo1: TMemo
    Left = 8
    Top = 104
    Width = 345
    Height = 297
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object ComComboBox: TComboBox
    Left = 48
    Top = 19
    Width = 81
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 0
    Text = 'COM1'
    Items.Strings = (
      'COM1'
      'COM2')
  end
  object RateComboBox: TComboBox
    Left = 168
    Top = 19
    Width = 107
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 1
    Text = '1200'
    Items.Strings = (
      '1200'
      '9600'
      '14400'
      '19200'
      '28800'
      '38400'
      '57600'
      '115200')
  end
  object MaskEdit1: TMaskEdit
    Left = 48
    Top = 51
    Width = 81
    Height = 21
    EditMask = '!99;0;_'
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    MaxLength = 2
    TabOrder = 3
    Text = '10'
  end
  object Edit1: TEdit
    Left = 168
    Top = 51
    Width = 105
    Height = 21
    AutoSize = False
    Enabled = False
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    TabOrder = 4
  end
  object Chart1: TChart
    Left = 360
    Top = 8
    Width = 449
    Height = 369
    Cursor = crCross
    BackWall.Gradient.EndColor = 11118482
    BackWall.Gradient.Visible = True
    BackWall.Transparent = False
    Border.Color = 14645801
    Border.Width = 7
    Border.Visible = True
    BottomWall.Gradient.EndColor = 16580349
    BottomWall.Gradient.StartColor = 3114493
    BottomWall.Gradient.Visible = True
    Gradient.Direction = gdDiagonalDown
    Gradient.EndColor = 11645361
    Gradient.Visible = True
    LeftWall.Gradient.EndColor = 2413052
    LeftWall.Gradient.StartColor = 900220
    LeftWall.Gradient.Visible = True
    Legend.Alignment = laTop
    Legend.CheckBoxes = True
    Legend.FontSeriesColor = True
    Legend.Gradient.Direction = gdTopBottom
    Legend.Gradient.EndColor = clYellow
    Legend.Gradient.StartColor = clWhite
    Legend.Gradient.Visible = True
    Legend.LegendStyle = lsSeries
    Legend.Shadow.Transparency = 50
    Legend.TopPos = 0
    Legend.VertSpacing = -4
    Title.Text.Strings = (
      #30005#27744#30417#25511#26354#32447)
    BottomAxis.ExactDateTime = False
    BottomAxis.Increment = 0.000115740740740741
    LeftAxis.Automatic = False
    LeftAxis.AutomaticMaximum = False
    LeftAxis.AutomaticMinimum = False
    LeftAxis.Maximum = 8500
    Shadow.Color = clBlack
    Shadow.HorizSize = 10
    Shadow.VertSize = 10
    View3D = False
    View3DOptions.Orthogonal = False
    View3DOptions.Perspective = 105
    View3DOptions.Zoom = 102
    BevelOuter = bvNone
    TabOrder = 5
    PrintMargins = (
      15
      9
      15
      9)
    ColorPaletteIndex = 9
    object RamCapicitySeries: TLineSeries
      Marks.Arrow.Visible = True
      Marks.Callout.Brush.Color = clBlack
      Marks.Callout.Arrow.Visible = True
      Marks.Gradient.Visible = True
      Marks.Visible = False
      SeriesColor = clRed
      Title = 'Capacity'
      Pointer.HorizSize = 2
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.VertSize = 2
      Pointer.Visible = False
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Y'
      YValues.Order = loNone
      Data = {
        0019000000000000000048874000000000001C8B400000000000B08D40000000
        0000C290400000000000229040000000000054904000000000008A9140000000
        0000B6924000000000000C924000000000002092400000000000E29340000000
        00007C9540000000000020974000000000007E98400000000000A09940000000
        0000F49A400000000000EE9B4000000000002E9D400000000000E49B40000000
        00008A9B400000000000C09C400000000000709C400000000000C09C40000000
        00003C9E400000000000429D40}
    end
    object ChargeCurrentSeries: TLineSeries
      Marks.Arrow.Visible = True
      Marks.Callout.Brush.Color = clBlack
      Marks.Callout.Arrow.Visible = True
      Marks.Visible = False