home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / YME060.ZIP / YSAMPLE2.FMT < prev    next >
Encoding:
Text File  |  1993-08-22  |  2.9 KB  |  88 lines
  1. *---------------------------------------------------------------------
  2. * Name.......: YSAMPLE2.FMT
  3. * Date.......: 8-22-93
  4. * Version....: dBASE IV, Format 2.0
  5. * Notes......: Format files use "" as delimiters!
  6. *---------------------------------------------------------------------
  7.  
  8. *-- Format file initialization code --------------------------------------------
  9.  
  10. *-- Some of these PRIVATE variables are created based on CodeGen and may not 
  11. *-- be used by your particular .fmt file
  12. PRIVATE ll_talk, ll_cursor, lc_display, lc_status, ll_carry, lc_proc
  13.  
  14. IF SET("TALK") = "ON"
  15.   SET TALK OFF
  16.   ll_talk = .T.
  17. ELSE
  18.   ll_talk = .F.
  19. ENDIF
  20. ll_cursor = SET("CURSOR") = "ON"
  21. SET CURSOR ON
  22. lc_display = SET("DISPLAY")
  23. lc_status = SET("STATUS")
  24. *-- SET STATUS was OFF when you went into the Forms Designer.
  25. IF lc_status = "ON"
  26.    SET STATUS OFF
  27. ENDIF
  28.  
  29. *-- Window for memo field Arg_pro.
  30. DEFINE WINDOW wndow1 FROM 11,0 TO 19,39 
  31. *-- Window for memo field Arg_con.
  32. DEFINE WINDOW wndow2 FROM 11,40 TO 19,79 
  33.  
  34. *-- @ SAY GETS Processing. -----------------------------------------------------
  35.  
  36. *--  Format Page: 1
  37. @ 1,1 SAY "Multiple memos: if you use more than one memo, you can set your global" 
  38. @ 2,1 SAY "defaults in the CONFIG.DB file, and use YAMEPARM for each different memo.  For" 
  39. @ 3,1 SAY "example, you can use the same defaults as the single-memo app in YSAMPLES.CFG:" 
  40. @ 4,23 SAY "WP = Y /@10,10,18,69 /bd /ss /m57" 
  41. @ 5,1 SAY "the border (/bd) and save mode (/ss), and change the coordinates and margins" 
  42. @ 6,1 SAY "for each memo by using CALL( " 
  43. @ 6,30 SAY ["] 
  44. @ 6,31 SAY "YAMEPARM" 
  45. @ 6,39 SAY ["] 
  46. @ 6,40 SAY " ) in the field's Permit edit if option" 
  47. @ 7,0 SAY "────────────────────────────────────────────────────────────────────────────────" 
  48. @ 8,27 SAY "Topic" 
  49. @ 8,33 GET Topic PICTURE "XXXXXXXXXXXXXXXXXXXX" 
  50. @ 10,14 SAY "Argument FOR" 
  51. @ 10,52 SAY "Argument AGAINST" 
  52. @ 11,0 GET Arg_pro OPEN WINDOW wndow1 ;
  53.    WHEN call( "YAMEPARM", "/@11,0,19,39 /m37" ) = "T" ;
  54.    MESSAGE "Press CTRL-HOME to edit, then CTRL-END to save" 
  55. @ 11,40 GET Arg_con OPEN WINDOW wndow2 ;
  56.    WHEN call( "YAMEPARM", "/@11,40,19,79 /m37" ) = "T" ;
  57.    MESSAGE "Press CTRL-HOME to edit, then CTRL-END to save" 
  58. @ 20,11 SAY "/@11,0,19,39 /m37" 
  59. @ 20,51 SAY "/@11,40,19,79 /m37" 
  60. @ 22,28 SAY "by" 
  61. @ 22,31 GET Author PICTURE "XXXXXXXXXXXXXXXXXXXX" 
  62. *-- Format file exit code -----------------------------------------------------
  63.  
  64. *-- SET STATUS was OFF when you went into the Forms Designer.
  65. IF lc_status = "ON"  && Entered form with status on
  66.    SET STATUS ON     && Turn STATUS "ON" on the way out
  67. ENDIF
  68. IF .NOT. ll_cursor
  69.   SET CURSOR OFF
  70. ENDIF
  71.  
  72. IF SET( "DISPLAY" ) <> lc_display
  73.   SET DISPLAY TO &lc_display.      && Reset Screen size if changed
  74. ENDIF
  75.  
  76. RELEASE WINDOWS wndow1,wndow2
  77.  
  78. RELEASE lc_fields,lc_status
  79. IF TYPE( "ll_echo" ) = "L"
  80.   IF ll_echo
  81.     SET ECHO ON
  82.   ENDIF
  83. ENDIF
  84. IF ll_talk
  85.   SET TALK ON
  86. ENDIF
  87. *-- EOP: YSAMPLE2.FMT
  88.