main.~dfm

串口监控程序,可与UPS进行通信,适合初学者使用

object fmain: Tfmain
  Left = 352
  Top = 153
  AutoScroll = False
  Caption = #21019#30005'UPS'#30417#25511#31995#32479
  ClientHeight = 488
  ClientWidth = 668
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label14: TLabel
    Left = 56
    Top = 198
    Width = 48
    Height = 13
    Caption = #36755#20837#30005#21387
  end
  object Label16: TLabel
    Left = 228
    Top = 54
    Width = 48
    Height = 13
    Caption = #36755#20837#30005#21387
  end
  object Label17: TLabel
    Left = 225
    Top = 95
    Width = 60
    Height = 13
    Caption = #30005#27744#20805#30005#29575
  end
  object Label23: TLabel
    Left = 285
    Top = 243
    Width = 19
    Height = 13
    Caption = 'Vac'
  end
  object Label25: TLabel
    Left = 294
    Top = 245
    Width = 72
    Height = 13
    Caption = #39069#23450#36755#20986#30005#27969
  end
  object Label26: TLabel
    Left = 294
    Top = 228
    Width = 72
    Height = 13
    Caption = #39069#23450#36755#20986#30005#21387
  end
  object Label28: TLabel
    Left = 440
    Top = 247
    Width = 7
    Height = 13
    Caption = 'A'
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 668
    Height = 42
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 38
        Width = 664
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 651
      Height = 38
      AutoSize = True
      ButtonHeight = 36
      ButtonWidth = 61
      Caption = 'ToolBar1'
      Flat = True
      Images = ImageList
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        AutoSize = True
        Caption = ' '#36873#25321'UPS '
        ImageIndex = 4
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 63
        Top = 0
        AutoSize = True
        Caption = ' '#21442#25968#35774#32622' '
        ImageIndex = 5
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 128
        Top = 0
        AutoSize = True
        Caption = ' '#26085#31243#34920' '
        ImageIndex = 32
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 181
        Top = 0
        AutoSize = True
        Caption = ' '#25968#25454#26085#24535' '
        ImageIndex = 33
        OnClick = ToolButton4Click
      end
      object ToolButton5: TToolButton
        Left = 246
        Top = 0
        AutoSize = True
        Caption = ' '#20107#20214#26085#24535' '
        ImageIndex = 34
        OnClick = ToolButton5Click
      end
      object ToolButton6: TToolButton
        Left = 311
        Top = 0
        AutoSize = True
        Caption = ' '#21382#21490#20107#20214' '
        ImageIndex = 26
        OnClick = ToolButton6Click
      end
      object ToolButton7: TToolButton
        Left = 376
        Top = 0
        Hint = #23545'UPS'#30340#30452#25509#25511#21046
        AutoSize = True
        Caption = ' '#23545'UPS.. '
        ImageIndex = 35
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton7Click
      end
      object ToolButton8: TToolButton
        Left = 433
        Top = 0
        Hint = #19978#27425#20851#38381#31995#32479#26102#20851#38381#24212#29992#31243#24207#30340#35760#24405
        AutoSize = True
        Caption = ' '#19978#27425#20851'... '
        ImageIndex = 36
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton8Click
      end
      object ToolButton9: TToolButton
        Left = 495
        Top = 0
        AutoSize = True
        Caption = '  '#20851#20110'  '
        ImageIndex = 38
        OnClick = ToolButton9Click
      end
      object ToolButton10: TToolButton
        Left = 542
        Top = 0
        AutoSize = True
        Caption = '  '#36864#20986'  '
        ImageIndex = 37
        OnClick = ToolButton10Click
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 469
    Width = 668
    Height = 19
    Panels = <>
  end
  object Panel2: TPanel
    Left = 0
    Top = 42
    Width = 668
    Height = 222
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 2
    object RzPageControl1: TRzPageControl
      Left = 0
      Top = 0
      Width = 668
      Height = 222
      ActivePage = TabSheet2
      Align = alClient
      BackgroundColor = clMenuBar
      Color = clCream
      UseColoredTabs = True
      ParentBackgroundColor = False
      ParentColor = False
      TabIndex = 1
      TabOrder = 0
      FixedDimension = 19
      object TabSheet1: TRzTabSheet
        Color = clCream
        Caption = '   '#20202'   '#34920'  '
        object Label33: TLabel
          Left = 76
          Top = 2
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #36755' '#20837' '#30005' '#21387
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clHighlight
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label34: TLabel
          Left = 300
          Top = 3
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #36755' '#20986' '#30005' '#21387
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clHighlight
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label35: TLabel
          Left = 76
          Top = 101
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #36755' '#20837' '#39057' '#29575
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clHighlight
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label36: TLabel
          Left = 298
          Top = 101
          Width = 78
          Height = 13
          AutoSize = False
          Caption = #26426' '#20869' '#28201' '#24230
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clHighlight
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label37: TLabel
          Left = 502
          Top = 16
          Width = 81
          Height = 13
          AutoSize = False
          Caption = #30005#27744#20805#30005#29575
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clHighlight
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label38: TLabel
          Left = 513
          Top = 100
          Width = 74
          Height = 13
          AutoSize = False
          Caption = 'UPS'#36127#36733#29575
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clHighlight
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
      end
      object TabSheet2: TRzTabSheet
        Color = clCream
        Caption = '   '#25968'   '#23383'    '
        object Label8: TLabel
          Left = 33
          Top = 36
          Width = 45
          Height = 13
          Caption = #24403' '#21069' '#20540':'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clActiveCaption
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 33
          Top = 58
          Width = 45
          Height = 13
          Caption = #26368' '#23567' '#20540':'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clActiveCaption
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 33
          Top = 79
          Width = 45
          Height = 13
          Caption = #26368' '#22823' '#20540':'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clActiveCaption
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 34
          Top = 134
          Width = 45
          Height = 13
          Caption = #24403' '#21069' '#20540':'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clActiveCaption