home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE4NL / SAMPLES.ZIP / MENUS.PRG < prev    next >
Encoding:
Text File  |  1993-05-18  |  2.2 KB  |  81 lines
  1. ******************************************************************************
  2. * PROGRAMMA NAAM   : MENUS.PRG
  3. *                    VOORBEELD PROGRAMMA VOOR DEMONSTRATIE HOE EEN BALK-MENU
  4. *                    VIER POP-UPMENU'S TE MAKEN
  5. *                    LANGUAGE REFERENCE
  6. * LAATSTE WIJZIGING: 04/08/92
  7. * WRITTEN BY:   Borland International Inc.
  8. ******************************************************************************
  9. SET TALK OFF
  10. CLEAR
  11. MEdit = .F.
  12. DO Def_mens
  13. ON PAD View  OF Main ACTIVATE POPUP View_pop
  14. ON PAD Goto  OF Main ACTIVATE POPUP Goto_pop
  15. ON PAD Print OF Main ACTIVATE POPUP Prin_pop
  16. ON SELECTION PAD Exit OF Main ACTIVATE POPUP Exit_pop
  17. ON SELECTION POPUP Exit_pop DO Exit_pro
  18. ON SELECTION POPUP View_pop DO View_pro
  19. ACTIVATE MENU Main PAD View
  20. CLEAR ALL
  21. SET TALK ON
  22. RETURN
  23.  
  24.  
  25. PROCEDURE Def_mens
  26. *-- Main Menu
  27. DEFINE MENU Main
  28. DEFINE PAD View OF Main PROMPT "Toevoegen/Wijzigen" AT 2,4
  29. DEFINE PAD Goto OF Main PROMPT "Ganaar/Zoek" AT 2,30
  30. DEFINE PAD Print OF Main PROMPT "Print" AT 2,45
  31. DEFINE PAD Exit OF Main PROMPT "Stop" AT 2,55
  32.  
  33. *-- Popup View_pop
  34. DEFINE POPUP View_pop FROM 3,4 TO 8,27
  35. DEFINE BAR 1 OF View_pop PROMPT "Toevoegen nieuw record"
  36. DEFINE BAR 2 OF View_pop PROMPT "Wijzigen"
  37. DEFINE BAR 3 OF View_pop PROMPT REPLICATE( CHR(196), 23 ) SKIP
  38. DEFINE BAR 4 OF View_pop PROMPT "Verwijderen" SKIP FOR Medit
  39.  
  40. *-- Popup Goto_pop
  41. DEFINE POPUP Goto_pop FROM 3,30 TO 6,42
  42. DEFINE BAR 1 OF Goto_pop PROMPT "Spring"
  43. DEFINE BAR 2 OF Goto_pop PROMPT "Spring naar"
  44.  
  45. *-- Popup Prin_pop
  46. DEFINE POPUP Prin_pop FROM 3,45 TO 7,63
  47. DEFINE BAR 1 OF Prin_pop PROMPT "Bestemming"
  48. DEFINE BAR 2 OF Prin_pop PROMPT "Opties"
  49. DEFINE BAR 3 OF Prin_pop PROMPT "Pagina doorvoeren"
  50.  
  51. *-- Popup Exit_pop
  52. DEFINE POPUP Exit_pop FROM 3,55 TO 6,76
  53. DEFINE BAR 1 OF Exit_pop PROMPT "Stop"
  54. DEFINE BAR 2 OF Exit_pop PROMPT "Stop naar DOT prompt"
  55. RETURN
  56.  
  57. PROCEDURE Exit_pro
  58. DO CASE
  59.   CASE BAR() = 1
  60.     QUIT
  61.   CASE BAR() = 2
  62.     DEACTIVATE MENU
  63. ENDCASE
  64. RETURN
  65.  
  66. PROCEDURE View_pro
  67. DO CASE
  68.   CASE BAR() = 1
  69.     APPEND BLANK
  70.     EDIT NEXT 1
  71.   CASE BAR() = 2
  72.     EDIT NEXT 1
  73.     MEdit = .NOT. Medit
  74.   CASE BAR() = 4
  75.     DELETE
  76. ENDCASE
  77. RETURN
  78.  
  79. *-- EOP: Menus.prg
  80.  
  81.