✎ _PrjProcs.pas [ПромАвтоматика]

Эта страница только для чтения. Вы можете посмотреть исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно.

====== _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>