unit _PrjProcs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls;

const

  _PrjCodeName = 'SHDE';
  _PrjLogoCaption = 'Элеватор';

  _PrjAlarmResetTagName = _PrjCodeName + '.BTN_Beep1_Input';
  _PrjStartAlarmBtnInputTagName = _PrjCodeName + '.BTN_Beep1_StartAlarm_Input';
  _PrjBeepControlTagName = _PrjCodeName + '.MCHB_Beep1_Control';


  procedure _PrjInitForms;
  procedure _PrjBeforeStart;
  procedure _PrjAfterStart;
  procedure _PrjBeforeStop;      
  procedure _PrjAfterStop;
  procedure _PrjOnTimer;


implementation
uses
  Sidebar,
  SidebarZdvaTm,
  ScreenCmd,
  Screen01,
  RpVisualMain,
  main;

////////////////////////////////////////////////////////////////////////////////
procedure _PrjInitForms;
begin                                                                    
  _AddFormToPageControl(TScreenCmdForm, TForm(ScreenCmdForm), 'УПРАВЛЕНИЕ');
  _AddFormToPageControl(TScreen01Form,  TForm(Screen01Form),  'Приемка');

  addSidebar('zdvatm', TSidebarZdvaTmForm);
end;

////////////////////////////////////////////////////////////////////////////////
procedure _PrjBeforeStart;
begin
end;

////////////////////////////////////////////////////////////////////////////////
procedure _PrjAfterStart;
begin
end;

////////////////////////////////////////////////////////////////////////////////
procedure _PrjBeforeStop;
begin
end;

////////////////////////////////////////////////////////////////////////////////
procedure _PrjAfterStop;
begin
end;

////////////////////////////////////////////////////////////////////////////////
procedure _PrjOnTimer;
begin
end;

end.