main.dfm

VUOPCclient Trial version

object fMain: TfMain
  Left = 195
  Top = 110
  Width = 696
  Height = 441
  Caption = 'Demo for OPCclient'
  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 ComboBox1: TComboBox
    Left = 128
    Top = 16
    Width = 193
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    TabStop = False
    Text = 'Name of OPC-server'
  end
  object Button1: TButton
    Left = 0
    Top = 15
    Width = 121
    Height = 23
    Caption = 'Browse OPC-servers'
    TabOrder = 1
    TabStop = False
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 328
    Top = 16
    Width = 105
    Height = 21
    Caption = 'Connect'
    TabOrder = 2
    TabStop = False
    OnClick = Button2Click
  end
  object ListBox1: TListBox
    Left = 0
    Top = 40
    Width = 321
    Height = 345
    ItemHeight = 13
    TabOrder = 3
    OnClick = ListBox1Click
  end
  object CheckBox1: TCheckBox
    Left = 442
    Top = 18
    Width = 231
    Height = 17
    TabStop = False
    Caption = 'To remove a root from a name of an item'
    TabOrder = 4
  end
  object Edit2: TEdit
    Left = 440
    Top = 41
    Width = 121
    Height = 21
    TabStop = False
    TabOrder = 5
    Text = 'MyGroup'
  end
  object Button4: TButton
    Left = 328
    Top = 42
    Width = 106
    Height = 21
    Caption = 'Create group'
    TabOrder = 6
    TabStop = False
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 0
    Top = 384
    Width = 193
    Height = 25
    Caption = 'To subscribe for updating'
    TabOrder = 7
    TabStop = False
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 192
    Top = 384
    Width = 129
    Height = 25
    Caption = 'Read Items'
    TabOrder = 8
    TabStop = False
    OnClick = Button6Click
  end
  object GroupBox1: TGroupBox
    Left = 328
    Top = 72
    Width = 345
    Height = 337
    TabOrder = 9
    object Label1: TLabel
      Left = 6
      Top = 48
      Width = 3
      Height = 13
    end
    object Label2: TLabel
      Left = 9
      Top = 64
      Width = 3
      Height = 13
    end
    object Label3: TLabel
      Left = 9
      Top = 84
      Width = 3
      Height = 13
    end
    object Label4: TLabel
      Left = 8
      Top = 100
      Width = 77
      Height = 13
      Caption = 'Property of Item:'
    end
    object Button3: TButton
      Left = 96
      Top = 20
      Width = 89
      Height = 21
      Caption = 'Write Item'
      TabOrder = 0
      TabStop = False
      OnClick = Button3Click
    end
    object Edit1: TEdit
      Left = 184
      Top = 20
      Width = 153
      Height = 21
      TabStop = False
      TabOrder = 1
      Text = 'Any value'
    end
    object Button7: TButton
      Left = 8
      Top = 20
      Width = 89
      Height = 21
      Caption = 'Read Item'
      TabOrder = 2
      TabStop = False
      OnClick = Button7Click
    end
    object ListBox2: TListBox
      Left = 0
      Top = 120
      Width = 345
      Height = 217
      TabStop = False
      ItemHeight = 13
      TabOrder = 3
    end
  end
  object VUOPCclient1: TVUOPCclient
    Access = aLocale
    Connect = False
    Organization = oUnknown
    RootOmitted = False
    OnDataChange = VUOPCclient1DataChange
    OnError = VUOPCclient1Error
  end
end