home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1143 / gepackt.exe / BSPQTSW.EXE / HELPBSP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-28  |  1.3 KB  |  53 lines
  1. (***************************************
  2. * WG-VISION 1.0   BEISPIELPROGRAMM     *
  3. ****************************************
  4. *                                      *
  5. * Einbindung kontextsensitive Hilfe    *
  6. *                                      *
  7. *                                      *
  8. ****************************************
  9. * (c) 1993 Dipl.Phys. Mathias Scholz   *
  10. ***************************************)
  11.  
  12. {$I COMPILER.INC}
  13.  
  14. program HelpBsp;
  15.  
  16. uses WApp,
  17.      WHelp;
  18.  
  19. const cmNew=101;
  20.       cmLoad=102;
  21.       cmPrint=103;
  22.       cmRestore=201;
  23.       cmCopy=202;
  24.       cmCut=203;
  25.  
  26. type TApplication=object(TApp)
  27.       procedure InitMenuBar; virtual;
  28.      end;
  29.  
  30. var MyApp:TApplication;
  31.  
  32. procedure TApplication.InitMenuBar;
  33. begin
  34.   SetOnLineHelp('hilf.dat');
  35.   MainMenu('~D~atei',1);
  36.     SubMenu('~N~eues Bild', cmNew,0,0,false,false);
  37.     SubMenu('Bild ~L~aden',cmLoad,0,0,false,false);
  38.     NewLine;
  39.     SubMenu('~D~rucken',cmPrint,0,0,false,false);
  40.   MainMenu('~B~earbeiten',2);
  41.     SubMenu('~R~ückgängig', cmRestore,0,0,false,false);
  42.     SubMenu('~K~opieren',cmCopy,0,0,false,false);
  43.     SubMenu('~S~chnitt',cmCut,0,0,false,false);
  44. end;
  45.  
  46. {Hauptprogramm}
  47.  
  48. begin
  49.   MyApp.Init('Online-Hilfe für das Menü');
  50.   MyApp.Run;
  51.   MyApp.Done;
  52. end.
  53.