umail.~dfm

台达PLC通信用

object frmMain: TfrmMain
  Left = 207
  Top = 59
  BorderStyle = bsDialog
  Caption = 'frmMain'
  ClientHeight = 442
  ClientWidth = 544
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 40
    Top = 346
    Width = 92
    Height = 87
    Caption = #21488'  '#36798#13#13#65328#65324#65315
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 8
    Top = 8
    Width = 25
    Height = 13
    Caption = 'Delta'
  end
  object Label4: TLabel
    Left = 168
    Top = 352
    Width = 28
    Height = 13
    Caption = #21629#20196
  end
  object SpeedButton1: TSpeedButton
    Left = 200
    Top = 377
    Width = 49
    Height = 22
    Caption = #25191#34892
    OnClick = SpeedButton1Click
  end
  object Label5: TLabel
    Left = 168
    Top = 412
    Width = 28
    Height = 13
    Caption = #36820#22238
  end
  object btnRun: TSpeedButton
    Left = 232
    Top = 3
    Width = 39
    Height = 22
    Caption = 'Run'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = btnRunClick
  end
  object btnStop: TSpeedButton
    Left = 272
    Top = 3
    Width = 39
    Height = 22
    Caption = 'Stop'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = btnStopClick
  end
  object SpeedButton2: TSpeedButton
    Left = 41
    Top = 4
    Width = 23
    Height = 22
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 352
    Top = 4
    Width = 70
    Height = 22
    Caption = 'D000-D1311'
    OnClick = SpeedButton3Click
  end
  object btnReadM: TSpeedButton
    Left = 440
    Top = 4
    Width = 70
    Height = 22
    Caption = 'M000-M1279'
    OnClick = btnReadMClick
  end
  object SpeedButton4: TSpeedButton
    Left = 132
    Top = 271
    Width = 36
    Height = 22
    Caption = 'Read'
    OnClick = SpeedButton4Click
  end
  object D: TLabel
    Left = 51
    Top = 274
    Width = 9
    Height = 15
    Caption = 'D'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 16
    Top = 32
    Width = 297
    Height = 121
    TabOrder = 0
    object Label1: TLabel
      Left = 27
      Top = 90
      Width = 239
      Height = 13
      Caption = 'Y0       Y1      Y2      Y3       Y4       Y5      Y6      Y7'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object btnOut1: TSpeedButton
      Tag = 1
      Left = 24
      Top = 12
      Width = 23
      Height = 22
      Hint = '01050500'
      AllowAllUp = True
      GroupIndex = 1
      Caption = 'Y0'
      OnClick = btnOut1Click
    end
    object btnOut2: TSpeedButton
      Tag = 2
      Left = 56
      Top = 12
      Width = 23
      Height = 22
      Hint = '01050501'
      AllowAllUp = True
      GroupIndex = 2
      Caption = 'Y1'
      OnClick = btnOut1Click
    end
    object btnOut3: TSpeedButton
      Tag = 3
      Left = 88
      Top = 12
      Width = 23
      Height = 22
      Hint = '01050502'
      AllowAllUp = True
      GroupIndex = 3
      Caption = 'Y2'
      OnClick = btnOut1Click
    end
    object btnOut4: TSpeedButton
      Tag = 4
      Left = 120
      Top = 12
      Width = 23
      Height = 22
      Hint = '01050503'
      AllowAllUp = True
      GroupIndex = 4
      Caption = 'Y3'
      OnClick = btnOut1Click
    end
    object btnOut5: TSpeedButton
      Tag = 5
      Left = 152
      Top = 12
      Width = 23
      Height = 22
      Hint = '01050504'
      AllowAllUp = True
      GroupIndex = 5
      Caption = 'Y4'
      OnClick = btnOut1Click
    end
    object btnOut6: TSpeedButton
      Tag = 6
      Left = 184
      Top = 12
      Width = 23
      Height = 22
      Hint = '01050505'
      AllowAllUp = True
      GroupIndex = 6
      Caption = 'Y5'
      OnClick = btnOut1Click
    end
    object btnOut7: TSpeedButton
      Tag = 7
      Left = 216
      Top = 12
      Width = 23
      Height = 22
      Hint = '01050506'
      AllowAllUp = True
      GroupIndex = 7
      Caption = 'Y6'
      OnClick = btnOut1Click
    end
    object btnOut8: TSpeedButton
      Tag = 8
      Left = 248
      Top = 12
      Width = 23
      Height = 22
      Hint = '01050507'
      AllowAllUp = True
      GroupIndex = 8
      Caption = 'Y7'
      OnClick = btnOut1Click
    end
    object ledOut1: TiLedRound
      Left = 24
      Top = 67
      ActiveColor = clRed
    end
    object ledOut2: TiLedRound
      Left = 56
      Top = 67
      ActiveColor = clRed
    end
    object ledOut3: TiLedRound
      Left = 88
      Top = 67
      ActiveColor = clRed
    end
    object ledOut4: TiLedRound
      Left = 120
      Top = 67
      ActiveColor = clRed
    end
    object ledOut5: TiLedRound
      Left = 152
      Top = 67
      ActiveColor = clRed
    end
    object ledOut6: TiLedRound
      Left = 184
      Top = 67
      ActiveColor = clRed
    end
    object ledOut7: TiLedRound
      Left = 216
      Top = 67
      ActiveColor = clRed
    end
    object ledOut8: TiLedRound
      Left = 248
      Top = 67
      ActiveColor = clRed
    end
  end
  object Panel2: TPanel
    Left = 16
    Top = 160
    Width = 292
    Height = 89
    TabOrder = 1
    object shpIn1: TShape
      Left = 24
      Top = 16
      Width = 20
      Height = 24
      Shape = stCircle
    end
    object shpIn2: TShape
      Left = 56
      Top = 16
      Width = 20
      Height = 24
      Shape = stCircle
    end
    object shpIn3: TShape
      Left = 88
      Top = 16
      Width = 20
      Height = 24
      Shape = stCircle
    end
    object shpIn4: TShape
      Left = 120
      Top = 16
      Width = 20
      Height = 24
      Shape = stCircle
    end
    object shpIn5: TShape
      Left = 152
      Top = 16
      Width = 20
      Height = 24
      Shape = stCircle
    end
    object shpIn6: TShape
      Left = 184
      Top = 16
      Width = 20
      Height = 24
      Shape = stCircle
    end
    object shpIn7: TShape
      Left = 216
      Top = 16
      Width = 20
      Height = 24
      Shape = stCircle
    end
    object shpIn8: TShape
      Left = 248
      Top = 16
      Width = 20
      Height = 24
      Shape = stCircle
    end
    object shpIn9: TShape
      Left = 24
      Top = 49
      Width = 20
      Height = 23
      Shape = stCircle
    end
    object shpIn10: TShape
      Left = 56
      Top = 49
      Width = 20
      Height = 23
      Shape = stCircle
    end
    object shpIn11: TShape
      Left = 88
      Top = 49
      Width = 20
      Height = 23
      Shape = stCircle
    end
    object shpIn12: TShape
      Left = 120
      Top = 49
      Width = 20
      Height = 23
      Shape = stCircle
    end
    object shpIn13: TShape
      Left = 152
      Top = 49
      Width = 20
      Height = 23
      Shape = stCircle
    end
    object shpIn14: TShape
      Left = 184
      Top = 49
      Width = 20
      Height = 23
      Shape = stCircle
    end
    object shpIn15: TShape
      Left = 216
      Top = 49
      Width = 20
      Height = 23
      Shape = stCircle
    end
    object shpIn16: TShape
      Left = 248
      Top = 49
      Width = 20
      Height = 23
      Shape = stCircle
    end
  end
  object edtAdr: TEdit
    Left = 200
    Top = 349
    Width = 108
    Height = 21
    TabOrder = 2
    Text = '01010C300001'
  end
  object edtValue: TEdit
    Left = 200
    Top = 409
    Width = 108
    Height = 21
    TabOrder = 3
  end
  object Memo1: TMemo
    Left = 344
    Top = 32
    Width = 177
    Height = 313
    ScrollBars = ssBoth
    TabOrder = 4
  end
  object edtDAddr: TEdit
    Left = 64
    Top = 272
    Width = 54
    Height = 21
    TabOrder = 5
    Text = '0'
  end
  object edtDValue: TEdit
    Left = 176
    Top = 272
    Width = 97
    Height = 21
    TabOrder = 6
    Text = '0'
  end
  object TimerPLCRdStat: TTimer
    Enabled = False
    Interval = 100
    OnTimer = TimerPLCRdStatTimer
    Left = 8
    Top = 248
  end
end