unit Screen_Sortirovka;

interface

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

type
  TScreen_SortirovkaForm = class(TForm)
    Shape1: TShape;
    Shape3: TShape;
    Shape5: TShape;
    Shape2: TShape;
    VisMchb1: TVisMchb;
    VisMchb_19: TVisMchb;
    VisMchb6: TVisMchb;
    VisMchb17: TVisMchb;
    VisMchb18: TVisMchb;
    VisMchb19: TVisMchb;
    VisMchb13: TVisMchb;
    VisMchb32: TVisMchb;
    SimpleLine45: TSimpleLine;
    VisMchb12: TVisMchb;
    SimpleLine10: TSimpleLine;
    VisMchb15: TVisMchb;
    SimpleLine3: TSimpleLine;
    VisMchb20: TVisMchb;
    VisMchb21: TVisMchb;
    VisMchb25: TVisMchb;
    VisMchb27: TVisMchb;
    VisMchb30: TVisMchb;
    VisMchb33: TVisMchb;
    VisMchb35: TVisMchb;
    VisMchb37: TVisMchb;
    VisMchb38: TVisMchb;
    VisMchb40: TVisMchb;
    VisMchb44: TVisMchb;
    VisMchb31: TVisMchb;
    VisMchb34: TVisMchb;
    VisMchb36: TVisMchb;
    VisMchb39: TVisMchb;
    VisMchb41: TVisMchb;
    VisMchb45: TVisMchb;
    VisMchb42: TVisMchb;
    VisMchb43: TVisMchb;
    VisMchb5: TVisMchb;
    VisMchb7: TVisMchb;
    VisMchb9: TVisMchb;
    VisMchb10: TVisMchb;
    VisMchb29: TVisMchb;
    VisMchb46: TVisMchb;
    VisMchb47: TVisMchb;
    VisMchb49: TVisMchb;
    VisMchb50: TVisMchb;
    SimpleLine4: TSimpleLine;
    VisMchb51: TVisMchb;
    VisMchb52: TVisMchb;
    SimpleLine5: TSimpleLine;
    VisMchb53: TVisMchb;
    VisMchb54: TVisMchb;
    SimpleLine6: TSimpleLine;
    VisMchb55: TVisMchb;
    VisMchb56: TVisMchb;
    SimpleLine7: TSimpleLine;
    VisMchb57: TVisMchb;
    VisMchb58: TVisMchb;
    SimpleLine8: TSimpleLine;
    VisMchb59: TVisMchb;
    VisMchb60: TVisMchb;
    SimpleLine9: TSimpleLine;
    VisMchb61: TVisMchb;
    VisMchb62: TVisMchb;
    VisMchb63: TVisMchb;
    VisMchb64: TVisMchb;
    VisMchb24: TVisMchb;
    VisMchb67: TVisMchb;
    VisMchb8: TVisMchb;
    VisMchb23: TVisMchb;
    VisMchb68: TVisMchb;
    VisMchb70: TVisMchb;
    VisMchb71: TVisMchb;
    VisMchb72: TVisMchb;
    Label48: TLabel;
    VisMchb4: TVisMchb;
    SimpleLine2: TSimpleLine;
    VisMchb73: TVisMchb;
    VisMchb74: TVisMchb;
    VisMchb75: TVisMchb;
    VisMchb_26: TVisMchb;
    VisMchb76: TVisMchb;
    VisMchb79: TVisMchb;
    SimpleLine12: TSimpleLine;
    VisMchb80: TVisMchb;
    VisMchb81: TVisMchb;
    VisMchb82: TVisMchb;
    VisMchb84: TVisMchb;
    SimpleLine13: TSimpleLine;
    VisMchb85: TVisMchb;
    SimpleLine14: TSimpleLine;
    VisMchb87: TVisMchb;
    VisMchb88: TVisMchb;
    VisMchb89: TVisMchb;
    VisMchb90: TVisMchb;
    VisZDVA17: TVisZDVA;
    VisZDVA18: TVisZDVA;
    VisMchb22: TVisMchb;
    VisMchb78: TVisMchb;
    VisMchb92: TVisMchb;
    VisMchb69: TVisMchb;
    VisZDVA22: TVisZDVA;
    VisZDVA23: TVisZDVA;
    VisZDVA24: TVisZDVA;
    VisZDVA25: TVisZDVA;
    VisZDVA26: TVisZDVA;
    VisZDVA27: TVisZDVA;
    SimpleLine44: TSimpleLine;
    SimpleLine1: TSimpleLine;
    SimpleLine46: TSimpleLine;
    SimpleLine47: TSimpleLine;
    VisZDVA3: TVisZDVA;
    VisMchb26: TVisMchb;
    SimpleLine21: TSimpleLine;
    Label8: TLabel;
    VisMchb77: TVisMchb;
    SimpleLine48: TSimpleLine;
    SimpleLine11: TSimpleLine;
    SimpleLine15: TSimpleLine;
    SimpleLine16: TSimpleLine;
    VisDataboard1: TVisDataboard;
    VisLabel5: TVisLabel;
    VisNumericPanel4: TVisNumericPanel;
    VisDataboard2: TVisDataboard;
    VisLabel6: TVisLabel;
    VisNumericPanel5: TVisNumericPanel;
    VisDataboard3: TVisDataboard;
    VisLabel3: TVisLabel;
    VisNumericPanel3: TVisNumericPanel;
    VisDataboard4: TVisDataboard;
    VisNumericPanel17: TVisNumericPanel;
    VisNumericPanel1: TVisNumericPanel;
    VisDataboard5: TVisDataboard;
    VisNumericPanel2: TVisNumericPanel;
    VisDataboard6: TVisDataboard;
    VisNumericPanel6: TVisNumericPanel;
    VisDataboard7: TVisDataboard;
    VisNumericPanel7: TVisNumericPanel;
    VisDataboard8: TVisDataboard;
    VisNumericPanel9: TVisNumericPanel;
    VisDataboard10: TVisDataboard;
    VisDataboard11: TVisDataboard;
    VisNumericPanel10: TVisNumericPanel;
    VisDataboard12: TVisDataboard;
    VisNumericPanel11: TVisNumericPanel;
    VisMchb94: TVisMchb;
    VisMchb95: TVisMchb;
    VisMchb96: TVisMchb;
    VisMchb97: TVisMchb;
    VisMchb3: TVisMchb;
    VisMchb98: TVisMchb;
    VisMchb99: TVisMchb;
    VisMchb100: TVisMchb;
    VisMchb101: TVisMchb;
    SimpleLine60: TSimpleLine;
    SimpleLine71: TSimpleLine;
    SimpleLine84: TSimpleLine;
    SimpleLine102: TSimpleLine;
    SimpleLine104: TSimpleLine;
    SimpleLine112: TSimpleLine;
    SimpleLine113: TSimpleLine;
    SimpleLine17: TSimpleLine;
    SimpleLine33: TSimpleLine;
    SimpleLine36: TSimpleLine;
    Label5: TLabel;
    SimpleLine37: TSimpleLine;
    SimpleLine85: TSimpleLine;
    VisMchb104: TVisMchb;
    SimpleLine20: TSimpleLine;
    VisDataboard13: TVisDataboard;
    Label1: TLabel;
    VisZDVA2: TVisZDVA;
    VisCheckBox1: TVisCheckBox;
    VisDataboard9: TVisDataboard;
    VisCheckBox2: TVisCheckBox;
    Label3: TLabel;
    VisNumericPanel8: TVisNumericPanel;
    VisDataboard14: TVisDataboard;
    VisMchb83: TVisMchb;
    VisMchb91: TVisMchb;
    VisMchb103: TVisMchb;
    VisMchb105: TVisMchb;
    VisMchb106: TVisMchb;
    VisMchb107: TVisMchb;
    VisMchb108: TVisMchb;
    VisMchb48: TVisMchb;
    VisMchb109: TVisMchb;
    VisMchb110: TVisMchb;
    VisMchb111: TVisMchb;
    VisMchb112: TVisMchb;
    VisMchb114: TVisMchb;
    SimpleLine18: TSimpleLine;
    SimpleLine19: TSimpleLine;
    SimpleLine22: TSimpleLine;
    SimpleLine24: TSimpleLine;
    Label2: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    SimpleLine25: TSimpleLine;
    SimpleLine26: TSimpleLine;
    SimpleLine27: TSimpleLine;
    SimpleLine28: TSimpleLine;
    SimpleLine29: TSimpleLine;
    SimpleLine30: TSimpleLine;
    SimpleLine31: TSimpleLine;
    Label46: TLabel;
    Label55: TLabel;
    VisLabel1: TVisLabel;
    VisDataboard15: TVisDataboard;
    Label57: TLabel;
    VisNumericPanel21: TVisNumericPanel;
    VisNumericPanel33: TVisNumericPanel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    VisCheckBox3: TVisCheckBox;
    Label16: TLabel;
    VisMchb102: TVisMchb;
    VisMchb113: TVisMchb;
    SimpleLine40: TSimpleLine;
    SimpleLine41: TSimpleLine;
    SimpleLine43: TSimpleLine;
    SimpleLine49: TSimpleLine;
    SimpleLine50: TSimpleLine;
    SimpleLine51: TSimpleLine;
    VisMchb115: TVisMchb;
    VisMchb117: TVisMchb;
    SimpleLine52: TSimpleLine;
    VisMchb118: TVisMchb;
    VisMchb119: TVisMchb;
    VisMchb120: TVisMchb;
    VisMchb121: TVisMchb;
    VisMchb122: TVisMchb;
    VisMchb123: TVisMchb;
    VisMchb125: TVisMchb;
    VisMchb126: TVisMchb;
    VisMchb127: TVisMchb;
    VisMchb128: TVisMchb;
    VisMchb129: TVisMchb;
    VisMchb130: TVisMchb;
    Label17: TLabel;
    SimpleLine23: TSimpleLine;
    VisMchb2: TVisMchb;
    VisMchb11: TVisMchb;
    VisMchb14: TVisMchb;
    VisMchb16: TVisMchb;
    VisNumericPanel12: TVisNumericPanel;
    procedure VisualDeviceClick(Sender: TObject);
    procedure TabSheetMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ScadaObjectClick(Sender: TObject; obj: TCustomScadaObject;
      var frm: TForm);
    procedure GeliosClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure VisButton5Click(Sender: TObject);
    procedure VisCheckBox1Click(Sender: TObject);
    procedure VisCheckBox2Click(Sender: TObject);
  private
  public
  end;

var
  Screen_SortirovkaForm: TScreen_SortirovkaForm;

implementation
uses
  MesLogging,
  Numbers,
  Gelios_prop,
  TagStorage,
  RpVisualGlobal,
  RpVisualLegacyPanels,
  RpVisualUtils,
  RpVisualMain;


{$R *.dfm}

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

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

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


procedure TScreen_SortirovkaForm.GeliosClick(Sender: TObject);
begin
  _Gelios_Click(self, Sender, 1);
end;

procedure TScreen_SortirovkaForm.FormCreate(Sender: TObject);
begin
  align := alClient;
end;

procedure TScreen_SortirovkaForm.VisButton5Click(Sender: TObject);
begin
  with Sender as TVisButton do
      SaveMessageText('Маршрут Сушка 3-й этап', Hint, iif(objButton.Down, 'Вкл', 'Выкл') );
end;

procedure TScreen_SortirovkaForm.VisCheckBox1Click(Sender: TObject);
begin
  with Sender as TVisCheckBox do
    SaveMessageText('Маршрут "Сушка 3 (на выбой)"', 'Выбор режима закольцовки', iif(objCheckBox.Checked, 'Вкл', 'Откл' ) );
end;

procedure TScreen_SortirovkaForm.VisCheckBox2Click(Sender: TObject);
begin
  with Sender as TVisCheckBox do
      SaveMessageText('Маршрут шелушение', Hint, iif(objCheckBox.Checked, 'Вкл', 'Выкл') );
end;

end.
