unit SmartSCADAtest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SignalControls, ObjectSignals, ProcessTimer, CheckLst,
  Grids, ExtCtrls, TeeProcs, TeEngine, Chart, ComCtrls, DigitalSignalShape,
  SimpleMeter, AnimatedProcessImage, Series;

type
  TForm1 = class(TForm)
    ProcessTimer1: TProcessTimer;
    SignalButton1: TSignalButton;
    SignalGrid1: TSignalGrid;
    Panel1: TPanel;
    SignalLabel1: TSignalLabel;
    Counter1Label: TLabel;
    Counter2Label: TLabel;
    SignalLabel2: TSignalLabel;
    Counter3Label: TLabel;
    SignalLabel3: TSignalLabel;
    ConnectButton: TButton;
    ProcessSimpleMeter1: TProcessSimpleMeter;
    DigitalSignalShape1: TDigitalSignalShape;
    DigitalSignalShape2: TDigitalSignalShape;
    AnimatedProcessImage3: TAnimatedProcessImage;
    ProcessSimpleMeter2: TProcessSimpleMeter;
    Label1: TLabel;
    ProcessSimpleMeter3: TProcessSimpleMeter;
    OPCSignalsCollection1: TOPCSignalsCollection;
    COMPILEDAY: TIntegerSignal;
    COMPILEHOUR: TIntegerSignal;
    COMPILEMINUTE: TIntegerSignal;
    COMPILEMONTH: TIntegerSignal;
    COMPILEYEAR: TIntegerSignal;
    PROJECTBUILD: TIntegerSignal;
    counter1: TIntegerSignal;
    counter2: TIntegerSignal;
    counter3: TIntegerSignal;
    inverted_byte: TIntegerSignal;
    light1_on: TBooleanSignal;
    light2_on: TBooleanSignal;
    port_b: TIntegerSignal;
    port_c: TIntegerSignal;
    scans_per_second: TIntegerSignal;
    voltage1: TFloatSignal;
    job_is_started: TBooleanSignal;
    SignalChart2: TSignalChart;
    Memo1: TMemo;
    procedure ConnectButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ConnectButtonClick(Sender: TObject);
begin
   OPCSignalsCollection1.Connect := true;
end;

end.
