unit1.dfm

来自「串口通信 基本的运算 与下位机通信实现对下位机的控制与监控」· DFM 代码 · 共 625 行 · 第 1/2 页

      Left = 7
      Top = 304
      Width = 129
      Height = 25
      AutoSize = False
      Caption = #36865#19997#36895#24230'(cm/s)'
      FocusControl = filum
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 7
      Top = 432
      Width = 121
      Height = 33
      AutoSize = False
      Caption = #22534#31215#37327'(cm3/h)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object voltage: TEdit
      Left = 8
      Top = 40
      Width = 113
      Height = 28
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ParentFont = False
      TabOrder = 0
    end
    object current: TEdit
      Left = 8
      Top = 176
      Width = 113
      Height = 28
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ParentFont = False
      TabOrder = 1
    end
    object filum: TEdit
      Left = 8
      Top = 336
      Width = 113
      Height = 28
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ParentFont = False
      TabOrder = 2
    end
    object heap: TEdit
      Left = 8
      Top = 472
      Width = 113
      Height = 28
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ParentFont = False
      TabOrder = 3
    end
  end
  object StatusBar1: TStatusBar
    Left = -82
    Top = 689
    Width = 1001
    Height = 21
    Panels = <>
  end
  object Panel4: TPanel
    Left = 78
    Top = 128
    Width = 841
    Height = 129
    TabOrder = 4
    object Image1: TImage
      Left = 0
      Top = 0
      Width = 841
      Height = 129
    end
  end
  object Panel5: TPanel
    Left = 78
    Top = 272
    Width = 841
    Height = 129
    TabOrder = 5
    object Image2: TImage
      Left = 0
      Top = 0
      Width = 841
      Height = 129
    end
  end
  object Panel6: TPanel
    Left = 78
    Top = 416
    Width = 841
    Height = 129
    TabOrder = 6
    object Image3: TImage
      Left = 0
      Top = 0
      Width = 841
      Height = 129
    end
  end
  object MSComm: TMSComm
    Left = 558
    Top = 0
    Width = 32
    Height = 32
    OnComm = MSCommComm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040100
      00020800802500000000080000000000000000003F00000005000000}
  end
  object Panel7: TPanel
    Left = 78
    Top = 560
    Width = 841
    Height = 129
    TabOrder = 8
    object Image4: TImage
      Left = 0
      Top = 0
      Width = 841
      Height = 129
    end
  end
  object ToolBar1: TToolBar
    Left = -82
    Top = 0
    Width = 1001
    Height = 41
    ButtonHeight = 33
    Caption = 'ToolBar1'
    TabOrder = 9
    object chckbxSerial: TCheckBox
      Left = 0
      Top = 2
      Width = 177
      Height = 33
      Caption = #21551#21160#19978#20301#26426#30417#25511
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = chckbxSerialClick
    end
    object BitBtn1: TBitBtn
      Left = 177
      Top = 2
      Width = 81
      Height = 33
      Caption = #24613#20572
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF3333993333339993333377FF3333377FF3399993333339
        993337777FF3333377F3393999333333993337F777FF333337FF993399933333
        399377F3777FF333377F993339993333399377F33777FF33377F993333999333
        399377F333777FF3377F993333399933399377F3333777FF377F993333339993
        399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
        99333773FF3333777733339993333339933333773FFFFFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
    end
    object BitBtn6: TBitBtn
      Left = 258
      Top = 2
      Width = 81
      Height = 33
      Caption = #21551#21160
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = BitBtn6Click
    end
    object BitBtn7: TBitBtn
      Left = 339
      Top = 2
      Width = 81
      Height = 33
      Caption = #26242#20572
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = BitBtn7Click
    end
    object BitBtn5: TBitBtn
      Left = 420
      Top = 2
      Width = 81
      Height = 33
      Caption = #22797#20301
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtn5Click
    end
    object BitBtn3: TBitBtn
      Left = 501
      Top = 2
      Width = 81
      Height = 33
      Caption = #26816#27668
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnMouseDown = BitBtn3MouseDown
      OnMouseUp = BitBtn3MouseUp
    end
    object BitBtn4: TBitBtn
      Left = 582
      Top = 2
      Width = 81
      Height = 33
      Caption = #36865#19997
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnMouseDown = BitBtn4MouseDown
      OnMouseUp = BitBtn4MouseUp
    end
    object BitBtn8: TBitBtn
      Left = 663
      Top = 2
      Width = 81
      Height = 33
      Caption = #24320#28938#26538
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = BitBtn8Click
    end
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 688
    Top = 5
  end
  object Timer2: TTimer
    Interval = 200
    Left = 600
    Top = 8
  end
end