home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / VEDIT060 / NEWMEMO.PRG < prev    next >
Text File  |  1992-03-23  |  2KB  |  80 lines
  1. *******************************************************************************
  2. *                                                                             *
  3. *                   TEST program to run VEDIT_MEMO_EDITOR()                   *
  4. *                                                                             *
  5. *                        (c) 1992  -  Jayson R. Minard                        *
  6. *                                                                             *
  7. *******************************************************************************
  8.  
  9. #INCLUDE SYSTEM.HDR
  10. #INCLUDE IO.HDR
  11. #INCLUDE vlist.hdr
  12. #INCLUDE vmouse.hdr
  13. #INCLUDE vedit.hdr
  14. #INCLUDE COLORS.HDR
  15. #INCLUDE STRING.HDR
  16.  
  17. VARDEF EXTERN
  18.   BYTE  __color_std, __color_enhcd
  19. ENDDEF
  20.  
  21. DBFDEF test_dbf
  22.   CHAR( 40 )  name
  23.   DATE        birth
  24.   MEMO        notes
  25. ENDDEF
  26.  
  27.  
  28. PROCEDURE FORCE_MAIN
  29.  
  30.   VARDEF
  31.     LOGICAL is_mouse
  32.     UINT    ret_val
  33.   ENDDEF
  34.  
  35.   IF .NOT. EXIST( "test2.dbf" )
  36.     BUILD "test2.dbf" FROM ALIAS test_dbf
  37.     OPEN "test2.dbf" ALIAS test_dbf
  38.     APPEND BLANK
  39.   ELSE
  40.     OPEN "test2.dbf" ALIAS test_dbf
  41.   ENDIF
  42.  
  43.   SET SCOREBOARD OFF
  44.   set_insert_key( .T. )
  45.  
  46.   IF Vmouse_Init() = 0
  47.     is_mouse = .F.
  48.   ELSE
  49.     is_mouse = .T.
  50.     Vmouse_Reset()
  51.   ENDIF
  52.  
  53.   CLEAR
  54.  
  55.   __color_enhcd = &blue_white
  56.   __color_std   = &black_light_grey
  57.   __color_enhcd = &black_white
  58.   FILL( 0, 0, 21, 79, &double_box, " ", &blue_white, __color_std, 0 )
  59.   __color_bar   = &blue_light_grey
  60.   __color_tab   = &blue_white
  61.  
  62.   ret_val = VEdit_Memo_Editor( test_dbf->notes, 1, 1, 20, 78, 1, 1, 78, 132,;
  63.                                &blue_yellow, .T., .F., is_mouse,;
  64.                                .T., 21, 2,;
  65.                                is_mouse, .F., 3, 5, VEdit_Key_Handler )
  66.  
  67.   CLEAR
  68.   @10, 0
  69.   ?
  70.   ? "return code = ", ret_val
  71.  
  72.   IF is_mouse
  73.     Vmouse_Reset()
  74.     Vmouse_Cursor( .F. )
  75.   ENDIF
  76.  
  77.   CLOSE ALL
  78.  
  79. ENDPRO
  80.