TMenu1: TCreateMenus;
TSubMenu1: TCreateMenus;
ST1: TSystemTime;
begin
MouseHandler: = false;
TMouse1.GetMouseState (b, x, y);
ST1.Init (549,36,618,49,1,15);
ST1.SystemTime;
TBitBtns.BitBtnHandlers (b, x, y);
MouseHandler: = fExitBtn;
TMenu1.MenusVisible (x, y);
TMenu1.MenusHandlers (b, x, y);
TPageControl1.PageControlHandlers (b, x, y);
end;
Procedure TApplPandC.Application;
var
TIEr: TInitErrors;
begin
TIEr.FatalErrorVFH;
TIEr.LoadFont ('km_defj8.fnt');
TIEr.FindImEr1 ('x.bi');
InitObjGraph;
if InitMouseJVU then
begin
TIEr.LfLoad ('Lf.sys');
TIEr.ErrorExec ('x.bi');
TIEr.FindFile ('f1.dat');
TIEr.FindFile ('f2.dat');
TIEr.FindFile ('f3.dat');
TIEr.FindFile ('f4.dat');
TIEr.FindFile ('km_defj8.fnt');
TIEr.FindFile ('f_nfrj8.fnt');
TIEr.FindFile ('t_nfrj8.fnt');
TIEr.FindFile ('asdf.bi');
TIEr.FindFile ('pacm_n1.bi');
TIEr.FindFile ('pacm_n2.bi');
TIEr.FindFile ('pacm_n3.bi');
TIEr.FindFile ('pacm_n4.bi');
TIEr.FindFile ('PrandCoM.hlp');
TIEr.FindFile ('litj.chr');
TIEr.FindFile ('scri.chr');
TIEr.FindFile ('trip.chr');
TIEr.FindFile ('tscr.chr');
TIEr.FindFile ('initm.mtr');
TIEr.FindFile ('initnu.mtr');
if not fQuickHalt then
begin
TIEr.LoadCFG ('PrandCom.cfg');
With HT do
begin
hx1: = 575;
hy1: = 20;
hx2: = 637;
hy2: = 34;
hc: = true;
hs: = 'Закрити';
end;
Init (1,1,639,479,7,1, 'Prognoz & Corrections Modifications');
Form;
end;
end
else
begin
TIEr.ErrorVFH;
end;
end;
(********************************************** ******************************)
(***********************************) END. (*********************************) p> (********************************************** ******************************)
