mainfrm.dfm

Delphi采用MSComm控件开发串口测试工具,在Windows+Delphi7编译通过

object Form1: TForm1
  Left = 363
  Top = 140
  Width = 592
  Height = 391
  Caption = 'TPV_COM Testing Program'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 152
    Top = 100
    Width = 150
    Height = 23
    Caption = 'Send Command'
    Font.Charset = ANSI_CHARSET
    Font.Color = clMaroon
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic, fsUnderline]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 152
    Top = 163
    Width = 234
    Height = 23
    Caption = 'Receive Data Information'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic, fsUnderline]
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 80
    Top = 8
    Width = 433
    Height = 41
    Caption = 'TPV_COM Testing Program'
    Color = clSkyBlue
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -29
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 49
    Width = 141
    Height = 172
    Caption = 'Com Setting '
    Font.Charset = ANSI_CHARSET
    Font.Color = clPurple
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 6
      Top = 24
      Width = 68
      Height = 19
      Caption = 'ComPort'
      Color = clSkyBlue
      Font.Charset = ANSI_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label2: TLabel
      Left = 82
      Top = 24
      Width = 49
      Height = 19
      Caption = 'Status'
      Color = clYellow
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object SetCom1: TBitBtn
      Left = 13
      Top = 46
      Width = 55
      Height = 25
      Caption = 'Com1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = SetCom1Click
    end
    object SetCom2: TBitBtn
      Left = 13
      Top = 76
      Width = 55
      Height = 25
      Caption = 'Com2'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = SetCom2Click
    end
    object SetCom3: TBitBtn
      Left = 13
      Top = 106
      Width = 55
      Height = 25
      Caption = 'Com3'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = SetCom3Click
    end
    object SetCom4: TBitBtn
      Left = 13
      Top = 136
      Width = 55
      Height = 25
      Caption = 'Com4'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = SetCom4Click
    end
    object Panel2: TPanel
      Left = 89
      Top = 46
      Width = 28
      Height = 116
      Color = clSkyBlue
      TabOrder = 4
      object Shape1: TShape
        Left = 5
        Top = 5
        Width = 20
        Height = 20
        Shape = stCircle
      end
      object Shape2: TShape
        Left = 5
        Top = 32
        Width = 20
        Height = 20
        Shape = stCircle
      end
      object Shape3: TShape
        Left = 5
        Top = 62
        Width = 20
        Height = 20
        Shape = stCircle
      end
      object Shape4: TShape
        Left = 4
        Top = 91
        Width = 20
        Height = 20
        Shape = stCircle
      end
    end
  end
  object Command: TEdit
    Left = 151
    Top = 124
    Width = 345
    Height = 30
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
  end
  object MSComm1: TMSComm
    Left = 6
    Top = 9
    Width = 32
    Height = 32
    OnComm = MSComm1Comm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020100802500000000080000000000000000003F00000001000000}
  end
  object MSComm2: TMSComm
    Left = 46
    Top = 9
    Width = 32
    Height = 32
    OnComm = MSComm2Comm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020100802500000000080000000000000000003F00000001000000}
  end
  object MSComm3: TMSComm
    Left = 86
    Top = 9
    Width = 32
    Height = 32
    OnComm = MSComm3Comm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020100802500000000080000000000000000003F00000001000000}
  end
  object MSComm4: TMSComm
    Left = 126
    Top = 9
    Width = 32
    Height = 32
    OnComm = MSComm4Comm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020100802500000000080000000000000000003F00000001000000}
  end
  object Memo1: TMemo
    Left = 152
    Top = 189
    Width = 426
    Height = 164
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 7
  end
  object Send: TBitBtn
    Left = 499
    Top = 123
    Width = 78
    Height = 30
    Caption = 'Send'
    Default = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ModalResult = 5
    ParentFont = False
    TabOrder = 8
    OnClick = SendClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00344446333334
      44433333FFFF333333FFFF33000033AAA43333332A4333338833F33333883F33
      00003332A46333332A4333333383F33333383F3300003332A2433336A6633333
      33833F333383F33300003333AA463362A433333333383F333833F33300003333
      6AA4462A46333333333833FF833F33330000333332AA22246333333333338333
      33F3333300003333336AAA22646333333333383333F8FF33000033444466AA43
      6A43333338FFF8833F383F330000336AA246A2436A43333338833F833F383F33
      000033336A24AA442A433333333833F33FF83F330000333333A2AA2AA4333333
      333383333333F3330000333333322AAA4333333333333833333F333300003333
      333322A4333333333333338333F333330000333333344A433333333333333338
      3F333333000033333336A24333333333333333833F333333000033333336AA43
      33333333333333833F3333330000333333336663333333333333333888333333
      0000}
    NumGlyphs = 2
  end
  object Clear: TBitBtn
    Left = 499
    Top = 156
    Width = 78
    Height = 30
    Caption = 'Clear'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
    OnClick = ClearClick
    Kind = bkCancel
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 224
    Width = 141
    Height = 129
    Caption = 'Count '
    Font.Charset = ANSI_CHARSET
    Font.Color = clOlive
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    TabOrder = 10
    object Label5: TLabel
      Left = 8
      Top = 35
      Width = 40
      Height = 19
      Caption = 'Send'
      Font.Charset = ANSI_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 8
      Top = 65
      Width = 61
      Height = 19
      Caption = 'Receive'
      Font.Charset = ANSI_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object SendCount: TEdit
      Left = 74
      Top = 31
      Width = 54
      Height = 27
      Font.Charset = ANSI_CHARSET
      Font.Color = clPurple
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      Text = '0'
    end
    object ClearCount: TBitBtn
      Left = 23
      Top = 93
      Width = 96
      Height = 28
      Caption = 'ClearCount'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = ClearCountClick
    end
  end
  object ReceiveCount: TEdit
    Left = 82
    Top = 286
    Width = 54
    Height = 27
    Font.Charset = ANSI_CHARSET
    Font.Color = clPurple
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ReadOnly = True
    TabOrder = 11
    Text = '0'
  end
  object Panel3: TPanel
    Left = 152
    Top = 57
    Width = 426
    Height = 41
    Color = clMoneyGreen
    TabOrder = 12
    object SelectCom1: TRadioButton
      Left = 16
      Top = 13
      Width = 84
      Height = 21
      Caption = 'Com1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -21
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object SelectCom2: TRadioButton
      Left = 97
      Top = 13
      Width = 84
      Height = 21
      Caption = 'Com2'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -21
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object SelectCom3: TRadioButton
      Left = 179
      Top = 13
      Width = 84
      Height = 21
      Caption = 'Com3'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -21
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
    object SelectCom4: TRadioButton
      Left = 260
      Top = 13
      Width = 84
      Height = 21
      Caption = 'Com4'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -21
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
    object Update: TBitBtn
      Left = 355
      Top = 8
      Width = 64
      Height = 26
      Caption = 'Update'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = UpdateClick
    end
  end
end