home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / VLIST110 / EXAMPLES / FPICK.PRG < prev    next >
Text File  |  1992-03-17  |  3KB  |  111 lines
  1. *******************************************************************************
  2. *                                                                             *
  3. *                       VList File-Picker Demo/Example                        *
  4. *                                                                             *
  5. *                          (c) 1991 Jayson R. Minard                          *
  6. *                                                                             *
  7. *******************************************************************************
  8.  
  9. #INCLUDE STRING.HDR
  10. #INCLUDE WARN.HDR
  11. #INCLUDE vlist.hdr
  12. #INCLUDE vmouse.hdr
  13. #INCLUDE IO.HDR
  14. #INCLUDE COLORS.HDR
  15.  
  16. VARDEF EXTERN
  17.   BYTE __color_std, __color_enhcd
  18. ENDDEF
  19.  
  20. PROCEDURE Force_Main
  21.  
  22.   VARDEF
  23.     LOGICAL is_mouse
  24.     CHAR    temp
  25.     LONG    picked_list
  26.     UINT    loop_dude
  27.   ENDDEF
  28.  
  29.   IF Vmouse_Init() = 0
  30.     is_mouse = .F.
  31.   ELSE
  32.     is_mouse = .T.
  33.     Vmouse_Reset()
  34.   ENDIF
  35.  
  36.   CLEAR
  37.  
  38.   __color_std   = &black_white
  39.   __color_enhcd = &blue_white
  40.   __color_bar   = &black_light_grey
  41.   __color_tab   = &black_white
  42.  
  43.   @ 3, 3 SAY "VLIST demo of function:  VList_1_FPick()"
  44.  
  45.   temp =  Vlist_1_Fpick( 5, 5, 15, 35, &double_box, &black_light_grey,;
  46.                    &black_light_cyan, "", "*.*", .T., .T., is_mouse, .T. )
  47.  
  48.   ?
  49.   ? "First response: ", temp
  50.   ?
  51.   ? "press any key"
  52.  
  53.   GET_KEY()
  54.  
  55.   CLEAR
  56.  
  57.   @ 3, 3 SAY "VLIST demo of function:  VList_1_FPick()"
  58.  
  59.   temp =  Vlist_1_Fpick( 5, 15, 19, 28, &double_box, &black_light_grey,;
  60.                    &black_light_cyan, "", "*.*", .F., .T., is_mouse, .F. )
  61.  
  62.   ?
  63.   ? "Second response: ", temp
  64.   ?
  65.   ? "press any key"
  66.   GET_KEY()
  67.  
  68.   CLEAR
  69.  
  70.   __color_std = &black_white
  71.   @ 3, 3 SAY "VLIST demo of function:  VList_FPick()"
  72.   @ 23, 3 SAY "<SPACE> tags/change dir, <ENTER> exits, <CTRL-U> untags all"
  73.   __color_std = &black_light_grey
  74.  
  75.   picked_list = vlist_fpick( 5, 15, 19, 28, &double_box, &black_light_grey,;
  76.                              &black_light_cyan, &black_white, "", "*.*",;
  77.                              .T., .T., is_mouse, .T., .T., 0 )
  78.  
  79.   clear
  80.   ?
  81.   do case
  82.     case picked_list = -1
  83.       ?
  84.       ? "Out of memory or something close to that effect!"
  85.       ?
  86.     case picked_list = 0
  87.       ?
  88.       ? "<ESC> pressed!"
  89.       ?
  90.     otherwise
  91.       IF vlist_max( picked_list ) = 0
  92.         ?
  93.         ? "no items selected!"
  94.         ?
  95.       ELSE
  96.         ?
  97.         ? "Selected list:"
  98.         FOR loop_dude = 1 to vlist_max( picked_list )
  99.           vlist_goto( picked_list, loop_dude )
  100.           ? "  "+vlist_cstr( picked_list )
  101.         NEXT
  102.         ?
  103.       ENDIF
  104.   ENDCASE
  105.  
  106.   IF is_mouse
  107.     Vmouse_Reset()
  108.     Vmouse_Cursor( .F. )
  109.   ENDIF
  110.  
  111. ENDPRO