====== _prjprocs.pas ====== <file pascal _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. </file>