testcontrol.dfm

自己用API编写的端口通讯

object Form1: TForm1
  Left = 197
  Top = 120
  Width = 734
  Height = 481
  Caption = #20809#30424#23384#20648#26588#27979#35797
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 55
    Top = 125
    Width = 48
    Height = 12
    Caption = #36873#25321#26588#23376
  end
  object Label2: TLabel
    Left = 56
    Top = 200
    Width = 48
    Height = 12
    Caption = #36873#25321#25277#23625
  end
  object Label3: TLabel
    Left = 56
    Top = 289
    Width = 48
    Height = 12
    Caption = #36873#25321#21333#20803
  end
  object Label4: TLabel
    Left = 56
    Top = 44
    Width = 48
    Height = 12
    Caption = #20018#21475#24207#21495
  end
  object ComboBoxCabinet: TComboBox
    Left = 167
    Top = 120
    Width = 145
    Height = 22
    Style = csOwnerDrawFixed
    ItemHeight = 16
    TabOrder = 0
    Items.Strings = (
      #26588#23376'1'
      #26588#23376'2'
      #26588#23376'3'
      #26588#23376'4'
      #26588#23376'5'
      #26588#23376'6'
      #26588#23376'7'
      #26588#23376'8'
      #26588#23376'9'
      #26588#23376'10'
      #26588#23376'11'
      #26588#23376'12'
      #26588#23376'13'
      #26588#23376'14'
      #26588#23376'15'
      #26588#23376'16')
  end
  object ComboBoxBox: TComboBox
    Left = 168
    Top = 196
    Width = 145
    Height = 22
    Style = csOwnerDrawFixed
    ItemHeight = 16
    TabOrder = 1
    Items.Strings = (
      #25277#23625'1'
      #25277#23625'2'
      #25277#23625'3'
      #25277#23625'4'
      #25277#23625'5'
      #25277#23625'6'
      #25277#23625'7'
      #25277#23625'8'
      #25277#23625'9'
      #25277#23625'10'
      #25277#23625'11'
      #25277#23625'12'
      #25277#23625'13'
      #25277#23625'14'
      #25277#23625'15'
      #25277#23625'16')
  end
  object ComboBoxUnit: TComboBox
    Left = 168
    Top = 282
    Width = 145
    Height = 22
    Style = csOwnerDrawFixed
    ItemHeight = 16
    TabOrder = 2
    Items.Strings = (
      #21333#20803'1'
      #21333#20803'2'
      #21333#20803'3'
      #21333#20803'4'
      #21333#20803'5'
      #21333#20803'6'
      #21333#20803'7'
      #21333#20803'8'
      #21333#20803'9'
      #21333#20803'10'
      #21333#20803'11'
      #21333#20803'12'
      #21333#20803'13'
      #21333#20803'14'
      #21333#20803'15'
      #21333#20803'16'
      #21333#20803'17'
      #21333#20803'18'
      #21333#20803'19'
      #21333#20803'20'
      #21333#20803'21'
      #21333#20803'22'
      #21333#20803'23'
      #21333#20803'24'
      #21333#20803'25'
      #21333#20803'26'
      #21333#20803'27'
      #21333#20803'28'
      #21333#20803'29'
      #21333#20803'30'
      #21333#20803'31'
      #21333#20803'32'
      #21333#20803'33'
      #21333#20803'34'
      #21333#20803'35'
      #21333#20803'36'
      #21333#20803'37'
      #21333#20803'38'
      #21333#20803'39'
      #21333#20803'40'
      #21333#20803'41'
      #21333#20803'42'
      #21333#20803'43'
      #21333#20803'44'
      #21333#20803'45'
      #21333#20803'46'
      #21333#20803'47'
      #21333#20803'48'
      #21333#20803'49'
      #21333#20803'50'
      #21333#20803'51'
      #21333#20803'52'
      #21333#20803'53'
      #21333#20803'54'
      #21333#20803'55'
      #21333#20803'56'
      #21333#20803'57'
      #21333#20803'58'
      #21333#20803'59'
      #21333#20803'60'
      #21333#20803'61'
      #21333#20803'62'
      #21333#20803'63'
      #21333#20803'64')
  end
  object ButtonOpenOneBox: TButton
    Left = 45
    Top = 391
    Width = 84
    Height = 25
    Caption = #24320#21551#21333#20010#25277#23625
    TabOrder = 3
    OnClick = ButtonOpenOneBoxClick
  end
  object ButtonLightOneUnit: TButton
    Left = 44
    Top = 347
    Width = 85
    Height = 25
    Caption = #28857#20142#21333#20010#21333#20803
    TabOrder = 4
    OnClick = ButtonLightOneUnitClick
  end
  object ButtonLightOneBox: TButton
    Left = 158
    Top = 347
    Width = 102
    Height = 25
    Caption = #28857#20142#21333#20010#25277#23625
    TabOrder = 5
    OnClick = ButtonLightOneBoxClick
  end
  object ListView1: TListView
    Left = 446
    Top = 35
    Width = 244
    Height = 270
    Columns = <
      item
        Caption = #25277#23625#32534#21495
        Width = 120
      end
      item
        Caption = #25277#23625#29366#24577
        Width = 120
      end>
    GridLines = True
    PopupMenu = PopupMenu1
    TabOrder = 6
    ViewStyle = vsReport
  end
  object ComboBoxCom: TComboBox
    Left = 168
    Top = 36
    Width = 145
    Height = 22
    Style = csOwnerDrawFixed
    ItemHeight = 16
    TabOrder = 7
    Items.Strings = (
      'COM3'
      'COM4'
      'COM5'
      'COM6')
  end
  object ButtonQuery: TButton
    Left = 522
    Top = 347
    Width = 75
    Height = 25
    Caption = #26597#35810
    TabOrder = 8
    OnClick = ButtonQueryClick
  end
  object ButtonClear: TButton
    Left = 626
    Top = 347
    Width = 75
    Height = 25
    Caption = #28165#38500
    TabOrder = 9
    OnClick = ButtonClearClick
  end
  object ButtonLightAllUnit: TButton
    Left = 288
    Top = 347
    Width = 100
    Height = 25
    Caption = #28857#20142#25152#26377#21333#20803
    TabOrder = 10
    OnClick = ButtonLightAllUnitClick
  end
  object ButtonStopLightAllUnit: TButton
    Left = 289
    Top = 391
    Width = 99
    Height = 25
    Caption = #20572#27490#28857#20142#25152#26377#21333#20803
    Enabled = False
    TabOrder = 11
    OnClick = ButtonStopLightAllUnitClick
  end
  object ButtonStopLightOneBox: TButton
    Left = 159
    Top = 392
    Width = 101
    Height = 25
    Caption = #20572#27490#28857#20142#21333#20010#25277#23625
    Enabled = False
    TabOrder = 12
    OnClick = ButtonStopLightOneBoxClick
  end
  object ButtonOpenAllBox: TButton
    Left = 414
    Top = 347
    Width = 83
    Height = 25
    Caption = #24320#21551#25152#26377#25277#23625
    TabOrder = 13
    OnClick = ButtonOpenAllBoxClick
  end
  object PopupMenu1: TPopupMenu
    Left = 360
    Top = 16
    object N1: TMenuItem
      Caption = #26597#35810
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #28165#38500
      OnClick = N2Click
    end
  end
end