home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TGTP60.ZIP / INTROPAK.EXE / MENU01.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-07-16  |  570 b   |  28 lines
  1. {-- menu01.pas }
  2. {$F+}
  3. USES
  4.   fastgrph, teglfont, tgraph, teglunit, teglmain, teglmenu;
  5.  
  6.  
  7. function ExitOption(ifs : ImageStkPtr; Ms: MsClickPtr): Word;
  8.   BEGIN
  9.     Halt;
  10.   END;
  11.  
  12. VAR  OmFile : OptionMPtr;
  13.  
  14. BEGIN
  15.   easytegl;
  16.   easyout;
  17.  
  18.   OmFile := CreateOptionMenu(@f8x12bol);
  19.   DefineOptions(OmFile,' ~O~pen ',true,NilUnitProc);
  20.   DefineOptions(OmFile,'-',false,nilunitproc);
  21.   DefineOptions(OmFile,' E~x~it ',true,ExitOption);
  22.   SetTeglFont(@f8x12bol);
  23.   CreateBarMenu(0,0,getmaxx);
  24.   OutBarOption(' ~F~ile ',OmFile);
  25.  
  26.   TeglSupervisor;
  27. END.
  28.