unit1.~dfm

并口的EPP模式模拟IIC接口

object SimI2CForm: TSimI2CForm
  Left = 426
  Top = 162
  Width = 309
  Height = 400
  Caption = 'SimI2C'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object TxtAddress: TLabel
    Left = 16
    Top = 16
    Width = 66
    Height = 13
    Caption = 'Address(HEX)'
  end
  object TxtData: TLabel
    Left = 16
    Top = 48
    Width = 51
    Height = 13
    Caption = 'Data(HEX)'
  end
  object LED: TShape
    Left = 200
    Top = 96
    Width = 15
    Height = 17
    Brush.Color = clLime
    Shape = stCircle
  end
  object Label3: TLabel
    Left = 224
    Top = 96
    Width = 46
    Height = 13
    Caption = 'Operation'
  end
  object Label1: TLabel
    Left = 40
    Top = 192
    Width = 41
    Height = 13
    Caption = 'SCL_Pin'
  end
  object Label2: TLabel
    Left = 40
    Top = 224
    Width = 43
    Height = 13
    Caption = 'SDA_Pin'
  end
  object Address: TEdit
    Left = 88
    Top = 16
    Width = 97
    Height = 21
    TabOrder = 0
    Text = '00'
  end
  object Data: TEdit
    Left = 88
    Top = 48
    Width = 97
    Height = 21
    TabOrder = 1
    Text = '00'
  end
  object Executive: TButton
    Left = 208
    Top = 16
    Width = 65
    Height = 57
    Caption = 'Execute'
    TabOrder = 2
    OnClick = ExecutiveClick
  end
  object RadioRead: TRadioButton
    Left = 32
    Top = 96
    Width = 49
    Height = 17
    Caption = 'Read'
    Checked = True
    TabOrder = 3
    TabStop = True
  end
  object RadioWrite: TRadioButton
    Tag = 1
    Left = 104
    Top = 96
    Width = 49
    Height = 17
    Caption = 'Write'
    TabOrder = 4
  end
  object Process: TButton
    Left = 80
    Top = 120
    Width = 75
    Height = 25
    Caption = 'Process'
    TabOrder = 5
    OnClick = ProcessClick
  end
  object SCLPIN: TEdit
    Left = 96
    Top = 192
    Width = 65
    Height = 21
    TabOrder = 6
    Text = '00'
  end
  object SDAPIN: TEdit
    Left = 96
    Top = 224
    Width = 65
    Height = 21
    TabOrder = 7
    Text = '00'
  end
  object I2CBusSet: TButton
    Left = 208
    Top = 120
    Width = 73
    Height = 33
    Caption = 'I2C Bus Set'
    TabOrder = 8
    OnClick = I2CBusSetClick
  end
end