Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта — страница 9

  • Просмотров 3147
  • Скачиваний 382
  • Размер файла 436
    Кб

TPageControl1.PageControlCreater; TBitBtns.BitBtnCreaters; TMenu1.MenusCreate; end; (********************************) Function TApplPandC.MouseHandler; var TMouse1 : TMouse; b,x,y : word; 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. (*********************************) (****************************************************************************)