unit Screen_ConnectStatus;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScadaBase, VisMachine, VisMcha, ExtCtrls, VisDltB,
  VisStatusShape, VisZDVH, VisZDVT, jpeg, SimpleLine, VisDynamicPict,
  VisZDVC, VisZDVA, Buttons, VisLabel, VisNumericPanel, AdvGlowButton;

type
  TScreen_ConnectStatusForm = class(TForm)
    Panel3: TPanel;
    Label38: TLabel;
    lbl71: TLabel;
    AdvGlowButton1: TAdvGlowButton;
    Label3: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    Label5: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label46: TLabel;
    Label7: TLabel;
    Label13: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label56: TLabel;
    Label106: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Panel1: TPanel;
    Label54: TLabel;
    Label55: TLabel;
    Panel2: TPanel;
    Label57: TLabel;
    VisLabel26: TVisLabel;
    VisLabel4: TVisLabel;
    VisNumericPanel5: TVisNumericPanel;
    VisLabel6: TVisLabel;
    VisLabel12: TVisLabel;
    VisLabel13: TVisLabel;
    VisLabel14: TVisLabel;
    VisLabel15: TVisLabel;
    VisNumericPanel7: TVisNumericPanel;
    VisNumericPanel13: TVisNumericPanel;
    VisNumericPanel14: TVisNumericPanel;
    VisNumericPanel17: TVisNumericPanel;
    VisNumericPanel50: TVisNumericPanel;
    VisNumericPanel53: TVisNumericPanel;
    VisNumericPanel54: TVisNumericPanel;
    VisNumericPanel55: TVisNumericPanel;
    VisNumericPanel56: TVisNumericPanel;
    VisLabel35: TVisLabel;
    VisLabel43: TVisLabel;
    VisLabel44: TVisLabel;
    Panel4: TPanel;
    Label58: TLabel;
    VisLabel7: TVisLabel;
    VisNumericPanel11: TVisNumericPanel;
    VisNumericPanel58: TVisNumericPanel;
    VisNumericPanel130: TVisNumericPanel;
    VisNumericPanel131: TVisNumericPanel;
    Panel5: TPanel;
    Label107: TLabel;
    VisLabel8: TVisLabel;
    VisNumericPanel132: TVisNumericPanel;
    VisNumericPanel133: TVisNumericPanel;
    VisNumericPanel134: TVisNumericPanel;
    VisNumericPanel135: TVisNumericPanel;
    Panel6: TPanel;
    Label59: TLabel;
    VisLabel45: TVisLabel;
    VisNumericPanel59: TVisNumericPanel;
    VisNumericPanel60: TVisNumericPanel;
    VisNumericPanel61: TVisNumericPanel;
    VisNumericPanel62: TVisNumericPanel;
    Label6: TLabel;
    Label14: TLabel;
    Label17: TLabel;
    Panel7: TPanel;
    Label18: TLabel;
    VisLabel33: TVisLabel;
    VisNumericPanel6: TVisNumericPanel;
    VisNumericPanel12: TVisNumericPanel;
    VisNumericPanel15: TVisNumericPanel;
    VisNumericPanel16: TVisNumericPanel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    VisLabel34: TVisLabel;
    VisNumericPanel18: TVisNumericPanel;
    VisNumericPanel19: TVisNumericPanel;
    VisNumericPanel20: TVisNumericPanel;
    VisNumericPanel21: TVisNumericPanel;
    Panel8: TPanel;
    Label9: TLabel;
    Label22: TLabel;
    Label24: TLabel;
    VisNumericPanel1: TVisNumericPanel;
    VisNumericPanel22: TVisNumericPanel;
    VisLabel17: TVisLabel;
    Label25: TLabel;
    VisNumericPanel23: TVisNumericPanel;
    VisLabel18: TVisLabel;
    Label26: TLabel;
    VisNumericPanel24: TVisNumericPanel;
    VisLabel19: TVisLabel;
    VisLabel20: TVisLabel;
    VisLabel21: TVisLabel;
    Label1: TLabel;
    VisNumericPanel2: TVisNumericPanel;
    Label2: TLabel;
    Label10: TLabel;
    VisNumericPanel3: TVisNumericPanel;
    VisNumericPanel4: TVisNumericPanel;
    VisLabel1: TVisLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label23: TLabel;
    VisLabel2: TVisLabel;
    VisNumericPanel8: TVisNumericPanel;
    VisNumericPanel9: TVisNumericPanel;
    VisNumericPanel10: TVisNumericPanel;
    VisNumericPanel25: TVisNumericPanel;
    Label27: TLabel;
    Label28: TLabel;
    Panel9: TPanel;
    Label30: TLabel;
    VisLabel3: TVisLabel;
    VisNumericPanel26: TVisNumericPanel;
    VisNumericPanel27: TVisNumericPanel;
    VisNumericPanel28: TVisNumericPanel;
    VisNumericPanel29: TVisNumericPanel;
    Label29: TLabel;
    Label31: TLabel;
    VisLabel5: TVisLabel;
    VisNumericPanel30: TVisNumericPanel;
    VisNumericPanel31: TVisNumericPanel;
    VisNumericPanel32: TVisNumericPanel;
    VisNumericPanel33: TVisNumericPanel;
    Label32: TLabel;
    Label33: TLabel;
    VisLabel9: TVisLabel;
    VisNumericPanel34: TVisNumericPanel;
    VisNumericPanel35: TVisNumericPanel;
    VisNumericPanel36: TVisNumericPanel;
    VisNumericPanel37: TVisNumericPanel;
    Label34: TLabel;
    Label35: TLabel;
    VisLabel10: TVisLabel;
    VisNumericPanel38: TVisNumericPanel;
    VisNumericPanel39: TVisNumericPanel;
    VisNumericPanel40: TVisNumericPanel;
    VisNumericPanel41: TVisNumericPanel;
    Label36: TLabel;
    Label37: TLabel;
    VisLabel11: TVisLabel;
    VisNumericPanel42: TVisNumericPanel;
    VisNumericPanel43: TVisNumericPanel;
    VisNumericPanel44: TVisNumericPanel;
    VisNumericPanel45: TVisNumericPanel;
    Label39: TLabel;
    Label40: TLabel;
    VisLabel16: TVisLabel;
    VisNumericPanel46: TVisNumericPanel;
    VisNumericPanel47: TVisNumericPanel;
    VisNumericPanel48: TVisNumericPanel;
    VisNumericPanel49: TVisNumericPanel;
    Label41: TLabel;
    Label42: TLabel;
    VisLabel22: TVisLabel;
    VisNumericPanel51: TVisNumericPanel;
    VisNumericPanel52: TVisNumericPanel;
    VisNumericPanel57: TVisNumericPanel;
    VisNumericPanel63: TVisNumericPanel;
    Label45: TLabel;
    Label47: TLabel;
    VisLabel23: TVisLabel;
    VisNumericPanel64: TVisNumericPanel;
    VisNumericPanel65: TVisNumericPanel;
    VisNumericPanel66: TVisNumericPanel;
    VisNumericPanel67: TVisNumericPanel;
    procedure VisualDeviceClick(Sender: TObject);
    procedure TabSheetMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure AdvGlowButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Screen_ConnectStatusForm: TScreen_ConnectStatusForm;

implementation
uses
  channellist,
  TagStorage,
  RpVisualMain,
  _RpVisualMain;

{$R *.dfm}

procedure TScreen_ConnectStatusForm.VisualDeviceClick(Sender: TObject);
begin
  _VisualDeviceClick(sender);
end;

procedure TScreen_ConnectStatusForm.TabSheetMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  _TabSheetMouseDown(Sender, Button, Shift, X, Y);
end;


procedure TScreen_ConnectStatusForm.AdvGlowButton1Click(Sender: TObject);
begin
  _Show_ChannelList;
end;

procedure TScreen_ConnectStatusForm.FormCreate(Sender: TObject);
begin
  Align := alClient;
end;

end.
