SPS_Emulator/Example/unit1.lfm

object Form1: TForm1
  Left = 264
  Height = 265
  Top = 133
  Width = 380
  Caption = 'Setup Serial Link'
  ClientHeight = 265
  ClientWidth = 380
  OnClose = FormClose
  OnCreate = FormCreate
  LCLVersion = '1.0.14.0'
  object Label1: TLabel
    Left = 203
    Height = 16
    Top = 33
    Width = 26
    Caption = 'Port:'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 203
    Height = 16
    Top = 63
    Width = 54
    Caption = 'Baudrate :'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 203
    Height = 16
    Top = 96
    Width = 37
    Caption = 'Parity :'
    ParentColor = False
  end
  object Label4: TLabel
    Left = 203
    Height = 16
    Top = 127
    Width = 50
    Caption = 'StopBits :'
    ParentColor = False
  end
  object Label5: TLabel
    Left = 203
    Height = 16
    Top = 159
    Width = 50
    Caption = 'Databits :'
    ParentColor = False
  end
  object Label6: TLabel
    Left = 203
    Height = 16
    Top = 191
    Width = 72
    Caption = 'FlowControl :'
    ParentColor = False
  end
  object BitBtn_close: TBitBtn
    Left = 295
    Height = 30
    Top = 227
    Width = 75
    Caption = '&Close'
    Kind = bkClose
    TabOrder = 0
  end
  object ComboBox_port: TComboBox
    Left = 270
    Height = 23
    Top = 26
    Width = 100
    ItemHeight = 15
    ItemIndex = 7
    Items.Strings = (
      'COM1'
      'COM2'
      'COM3'
      'COM4'
      'COM5'
      'COM6'
      'COM7'
      'COM8'
    )
    TabOrder = 1
    Text = 'COM8'
  end
  object ComboBox_baudrate: TComboBox
    Left = 270
    Height = 23
    Top = 56
    Width = 100
    ItemHeight = 15
    ItemIndex = 5
    Items.Strings = (
      'br___300'
      'br___600'
      'br__1200'
      'br__2400'
      'br__4800'
      'br__9600'
      'br_19200'
      'br_38400'
      'br_57600'
      'br115200'
    )
    TabOrder = 2
    Text = 'br__9600'
  end
  object ComboBox_parite: TComboBox
    Left = 270
    Height = 23
    Top = 88
    Width = 100
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      'pNone'
      'pOdd'
      'pEven'
      'pMark'
      'pSpace'
    )
    TabOrder = 3
    Text = 'pNone'
  end
  object ComboBox_stopbits: TComboBox
    Left = 270
    Height = 23
    Top = 120
    Width = 100
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      'sbOne'
      'sbTwo'
    )
    TabOrder = 4
    Text = 'sbOne'
  end
  object ComboBox_databits: TComboBox
    Left = 270
    Height = 23
    Top = 152
    Width = 100
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      'db8bits'
      'db7bits'
      'db6bits'
      'db5bits'
    )
    TabOrder = 5
    Text = 'db8bits'
  end
  object ComboBox_flowcontrol: TComboBox
    Left = 270
    Height = 23
    Top = 184
    Width = 100
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      'fcNone'
      'fcXonXoff'
      'fcHardware'
    )
    TabOrder = 6
    Text = 'fcNone'
  end
  object Memo_terminal: TMemo
    Left = 8
    Height = 184
    Top = 40
    Width = 184
    TabOrder = 7
  end
  object Button_connect: TButton
    Left = 8
    Height = 25
    Top = 232
    Width = 75
    Caption = 'Connect !'
    OnClick = Button_connectClick
    TabOrder = 8
  end
  object Button_disconnect: TButton
    Left = 117
    Height = 25
    Top = 232
    Width = 75
    Caption = 'Disconnect !'
    OnClick = Button_disconnectClick
    TabOrder = 9
  end
  object Edit1: TEdit
    Left = 8
    Height = 23
    Top = 8
    Width = 88
    TabOrder = 10
    Text = 'Text to send...'
  end
  object Button_send: TButton
    Left = 104
    Height = 25
    Top = 8
    Width = 75
    Caption = 'Send'
    OnClick = Button_sendClick
    TabOrder = 11
  end
  object SdpoSerial1: TSdpoSerial
    Active = False
    BaudRate = br__9600
    DataBits = db8bits
    Parity = pNone
    FlowControl = fcNone
    StopBits = sbOne
    Device = 'COM8'
    OnRxData = SdpoSerial1RxData
    left = 248
    top = 216
  end
end