home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
MC00
/
TVSHELL.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1993-05-02
|
2KB
|
73 lines
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.