unit1.~dfm

实现对philp快球的串口控制

object Form1: TForm1
  Left = 464
  Top = 216
  Width = 245
  Height = 289
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 225
    Height = 249
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #25511#21046
      object Label1: TLabel
        Left = 8
        Top = 24
        Width = 84
        Height = 13
        Caption = #36873#25321#25668#20687#22836#65306
      end
      object btnCtlLeft: TSpeedButton
        Left = 16
        Top = 112
        Width = 65
        Height = 25
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333FF3333333333333744333333333333F773333333333337
          44473333333333F777F3333333333744444333333333F7733733333333374444
          4433333333F77333733333333744444447333333F7733337F333333744444444
          433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
          9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
          C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
          CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
          CCC333333333333777FF33333333333333CC3333333333333773}
        NumGlyphs = 2
        OnClick = btnCtlLeftClick
      end
      object btnCtlUp: TSpeedButton
        Left = 80
        Top = 48
        Width = 25
        Height = 65
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
          337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
          4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
          44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
          473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
          7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
          33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
          33333333333737F333333333333C943333333333333737333333333333339733
          3333333333337F33333333333333933333333333333373333333}
        NumGlyphs = 2
        OnClick = btnCtlUpClick
      end
      object btnCtlDown: TSpeedButton
        Left = 81
        Top = 136
        Width = 25
        Height = 65
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
          333333333337F3333333333333397333333333333337FF333333333333C94333
          3333333333737F333333333333C9473333333333337373F3333333333CC94433
          3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
          333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
          33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
          4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
          443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
          444377733337F333777FC3333339333337437333333733333373}
        NumGlyphs = 2
        OnClick = btnCtlDownClick
      end
      object btnCtlRight: TSpeedButton
        Left = 106
        Top = 112
        Width = 65
        Height = 25
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333FF3333333333333447333333333333377FFF33333333333744473333333
          333337773FF3333333333444447333333333373F773FF3333333334444447333
          33333373F3773FF3333333744444447333333337F333773FF333333444444444
          733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
          999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
          33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
          333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
          33333777333333333333CC333333333333337733333333333333}
        NumGlyphs = 2
        OnClick = btnCtlRightClick
      end
      object Label2: TLabel
        Left = 48
        Top = 208
        Width = 107
        Height = 13
        Caption = #25668#20687#22836#25511#21046#38754#26495'   '
      end
      object ComboBox1: TComboBox
        Left = 88
        Top = 16
        Width = 65
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        Items.Strings = (
          '01'
          '02'
          '03'
          '04'
          '05'
          '06'
          '07'
          '08'
          '09')
      end
      object Memo1: TMemo
        Left = 160
        Top = 8
        Width = 41
        Height = 33
        ImeName = #25340#38899#21152#21152#38598#21512#29256
        TabOrder = 1
        Visible = False
      end
      object btnCtlNear: TButton
        Left = 152
        Top = 56
        Width = 25
        Height = 25
        Caption = #65291
        TabOrder = 2
        OnClick = btnCtlNearClick
      end
      object btnCtlFar: TButton
        Left = 152
        Top = 168
        Width = 25
        Height = 25
        Caption = #65293
        TabOrder = 3
        OnClick = btnCtlFarClick
      end
      object MSComm1: TMSComm
        Left = 0
        Top = 56
        Width = 32
        Height = 32
        OnComm = MSComm1Comm
        ControlData = {
          2143341208000000ED030000ED03000001568A64000006000000030000040000
          00020000009600000000080000000000000000003F00000001000000}
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26085#24535
      ImageIndex = 1
      object Memo2: TMemo
        Left = 0
        Top = 0