_PrjProcs.pas

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.