unit Screen_zo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScadaBase, VisMchb, ExtCtrls,
  VisStatusShape,  jpeg, SimpleLine, PolyLine, VisButton,
  Buttons, VisLabel, VisNumericPanel,
  VisDataboard, VisCheckBox, VisMachine, VisMcha;

type
  TScreen_zoForm = class(TForm)      
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    VisDataboard5: TVisDataboard;
    VisDataboard6: TVisDataboard;
    VisCheckBox4: TVisCheckBox;
    VisCheckBox5: TVisCheckBox;
    VisCheckBox6: TVisCheckBox;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    VisMchb28: TVisMchb;
    VisDataboard2: TVisDataboard;
    GroupBox3: TGroupBox;
    Label8: TLabel;
    VisDataboard7: TVisDataboard;
    GroupBox4: TGroupBox;
    Label9: TLabel;
    VisDataboard8: TVisDataboard;
    VisMchb1: TVisMchb;
    VisMchb2: TVisMchb;
    VisLabel1: TVisLabel;
    VisLabel2: TVisLabel;
    VisLabel3: TVisLabel;
    VisLabel4: TVisLabel;
    GroupBox5: TGroupBox;
    VisLabel5: TVisLabel;
    SimpleLine5: TSimpleLine;
    SimpleLine16: TSimpleLine;
    SimpleLine17: TSimpleLine;
    SimpleLine18: TSimpleLine;
    SimpleLine19: TSimpleLine;
    SimpleLine20: TSimpleLine;
    SimpleLine21: TSimpleLine;
    SimpleLine27: TSimpleLine;
    SimpleLine28: TSimpleLine;
    SimpleLine30: TSimpleLine;
    GroupBox6: TGroupBox;
    Label1: TLabel;
    SimpleLine1: TSimpleLine;
    procedure ScadaObjectClick(Sender: TObject; obj: TCustomScadaObject;
      var frm: TForm);
  private
  public
  end;

var
  Screen_zoForm: TScreen_zoForm;

implementation
uses
  RpVisualMain;

{$R *.dfm}


procedure TScreen_zoForm.ScadaObjectClick(Sender: TObject;
  obj: TCustomScadaObject; var frm: TForm);
begin
  _ScadaObjectClick(sender, obj, frm);
end;


end.
