home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / YME060.ZIP / YSAMPLE1.FMT < prev    next >
Encoding:
Text File  |  1993-08-22  |  2.4 KB  |  74 lines
  1. *---------------------------------------------------------------------
  2. * Name.......: YSAMPLE1.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 ON when you went into the Forms Designer.
  25. IF lc_status = "OFF"
  26.    SET STATUS ON
  27. ENDIF
  28.  
  29. *-- Window for memo field Arg_pro.
  30. DEFINE WINDOW wndow1 FROM 10,10 TO 18,69 
  31.  
  32. *-- @ SAY GETS Processing. -----------------------------------------------------
  33.  
  34. *--  Format Page: 1
  35. @ 1,1 SAY "Single-memo application:  if you use only one memo field in one place in your" 
  36. @ 2,1 SAY "entire dBASE application, you can hard-code your YAME parameters in the" 
  37. @ 3,1 SAY "CONFIG.DB file, as was done in this case.  Examine the YSAMPLES.CFG file, and" 
  38. @ 4,1 SAY "you will see the line" 
  39. @ 5,23 SAY "WP = Y /@10,10,18,69 /bd /ss /m57" 
  40. @ 6,1 SAY "which matches the memo field on this dBASE-generated format screen" 
  41. @ 7,0 SAY "────────────────────────────────────────────────────────────────────────────────" 
  42. @ 8,19 SAY "Argument in favor of" 
  43. @ 8,40 GET Topic PICTURE "XXXXXXXXXXXXXXXXXXXX" 
  44. @ 10,10 GET Arg_pro OPEN WINDOW wndow1 ;
  45.    MESSAGE "Press CTRL-HOME to edit, then CTRL-END to save" 
  46. @ 20,28 SAY "by" 
  47. @ 20,31 GET Author PICTURE "XXXXXXXXXXXXXXXXXXXX" 
  48. *-- Format file exit code -----------------------------------------------------
  49.  
  50. *-- SET STATUS was ON when you went into the Forms Designer.
  51. IF lc_status = "OFF"  && Entered form with status off
  52.    SET STATUS OFF     && Turn STATUS "OFF" on the way out
  53. ENDIF
  54. IF .NOT. ll_cursor
  55.   SET CURSOR OFF
  56. ENDIF
  57.  
  58. IF SET( "DISPLAY" ) <> lc_display
  59.   SET DISPLAY TO &lc_display.      && Reset Screen size if changed
  60. ENDIF
  61.  
  62. RELEASE WINDOWS wndow1
  63.  
  64. RELEASE lc_fields,lc_status
  65. IF TYPE( "ll_echo" ) = "L"
  66.   IF ll_echo
  67.     SET ECHO ON
  68.   ENDIF
  69. ENDIF
  70. IF ll_talk
  71.   SET TALK ON
  72. ENDIF
  73. *-- EOP: YSAMPLE1.FMT
  74.