*******************************)
TPC.Application;
TPC.Done;
(*******************************) end. (*************************************) p> (********************************************** ******************************)
{
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
| Версія 2.XX |
| Програма розроблена студентом Національного Технічного |
| Університету "Харківський Політехнічний Інститу" групи І - 29 |
| Кафедри Автоматичного Управління Рухом - Уханова Є.В. | p> | NetMail (FidoNet) 2:461/212.21 |
| E-Mail: jvumailbox@rambler.ru | p> | | p> | Програма розроблена на основі об'єктної бібліотеки VFH version 4.XX |
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
}
(********************************************** ******************************)
(**** Дата останньої розробки модуля: 15.04.2001 *****************)
(********************************************** ******************************)
(********************************************** ******************************)
(*******************************) Unit PACM; (*******************************)
(********************************************** ******************************)
(*******************************) INTERFACE (********************************)
(********************************************** ******************************)
Uses FormObj, MouseObj, PACMEr, PACMMenu, PACMBtn, PACMPnl, PACMPC, PACMCnst;
(********************************************** ******************************)
type
TApplPandC = object ( TForm)
Function MouseHandler : Boolean; Virtual;
Procedure FormCreate; Virtual;
Procedure Application;
end;
(** ************************************************** ************************)
(******************************) IMPLEMENTATION (****************************)
(********************************************** ******************************)
Procedure TApplPandC.FormCreate;
var
Pnl: TPanel;
Pnl1: TPanel;
TMenu1: TCreateMenus;
begin
Pnl.Init (548,35,619,50,1,7,1,1,1,1, false, false);
Pnl.Panel;
Pnl1.Init (470,407,630,460,1,7,1,0,1,4, true, false);
Pnl1.Panel;
TPnl1.ToolBarCreate;
TPnl1.PanelCreate;
TPageControl1.PageControlCreater;
TBitBtns.BitBtnCreaters;
TMenu1.MenusCreate;
end;
(********************************)
Function TApplPandC.MouseHandler;
var
TMouse1: TMouse;
b, x, y: word; ...
