Category : Pascal Source Code
Archive   : MC00.ZIP
Filename : TVSHELL.PAS

uses Dos, Objects, Drivers, Memory, Views, Menus, App ;

Const
{Put include files here *.CM, *.HC }

{$I s01.cm}
{$I s01.hc}
type

tvapp = object(tapplication)
procedure initmenubar;virtual;
end;





procedure tvapp.initmenubar;
var
r:trect;
begin
{------------------------------------------------------------------------}
{ Use ^KR then *.SCM to grab source from disk to insert into this file }
{ Sample delete between * before reading in another menu }
{ Change the include directives at the top of the file to match the }
{ menu name }
{------------------------------------------------------------------------}



{*}
{ C:\BP\CODE\S01.SCM MenuCase 0.0 13:43:14, 5/2/93 }

GetExtent(r);
R.B.Y := R.A.Y + 1;
MenuBar := new(PmenuBar,init(r,
NewMenu(
NewSubMenu('~M~aintenance', hcnocontext,
NewMenu(
NewSubMenu('~C~lients', hcNoContext,
NewMenu(
NewItem('~A~dd client', 'F2',kbF2 ,CmAddClient, HcClientHint,
NewItem('~E~dit client', ' ',kbnokey,CmEditClient, HcClientHint,
NewLine(
NewItem('~D~elete client', ' ',kbnokey,CmDeleteClient, HcClientHint,
NIL))))),
NewItem('e~X~it', ' ',kbAltX,cmquit, hcnocontext,
NIL))),
NewSubMenu('~R~eports', hcNoContext,
NewMenu(
NewItem('~E~mployee reports', ' ',kbnokey,CmEmployeeReports, HcEmployeeHint,
NewSubMenu('~C~lient reports', hcNoContext,
NewMenu(
NewItem('~A~ll clients', ' ',kbnokey,CmReportAllClients, HcClientReportHint,
NewItem('~S~elect client', ' ',kbnokey,CmSelectClient, HcClientReportHint,
NIL))),
NIL))),nil)))));
{*}

end;

var
Theapp:tvapp;



begin
Theapp.init;
Theapp.run;
Theapp.done;


end.