home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP13_3.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  1.5 KB  |  61 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP13_3.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├ READ MODAL ╡≈╙├╫└├µ╕¿╓·╣ñ╛▀ - ─Ω└·╓╨╓╕╢¿╡─      ⌐ª
  4. *⌐ª               ╚╒╞┌╡─╖╢└².                                          ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. CLEAR
  7. ACTIVATE SCREEN
  8. SET TALK OFF
  9. * ╢¿╥σ╥╗╕÷╚╒╞┌╨═▒Σ┴┐
  10. this_date = {}
  11. @ 1,1 GET this_date VALID vdate(this_date) ;
  12.       ERROR " ╒Γ╕÷╚╒╞┌▓╗─▄╩╟┐╒░╫! "
  13. READ
  14.  
  15. FUNCTION vdate
  16. PARAMETERS tempdate
  17. mreturn = .T.
  18. IF EMPTY(tempdate)
  19.    PUSH KEY CLEAR
  20.    ON KEY LABEL ESCAPE DO getdate
  21.    ON KEY LABEL CTRL-W DO getdate
  22.    ON KEY LABEL CTRL-Q DO getdate
  23.    ON KEY LABEL CTRL-END DO getdate
  24.    ON KEY LABEL F2 DO getdate
  25.    ON KEY LABEL LEFTMOUSE DO chkmouse ;
  26.    WITH MROW(""), MCOL("")
  27.    * [F2]  ╝ⁿ╩╟╔Φ╢¿╡─═╦│÷╝ⁿ, ╞Σ╦ⁿ╩╟▒╪╨δ┐╪╓╞╡─ FOXPRO ╣╪▒╒╥╗╕÷┤░┐┌╡─╖╜╖¿
  28.  
  29.    WAIT WINDOW  " ░┤ [F2] ╥╘╤í╘±╥╗╕÷╚╒╞┌. " NOWAIT
  30.  
  31.    ACTIVATE WINDOW Calendar
  32.    mquit = .F.
  33.    READ MODAL WITH "Calendar" VALID mquit
  34.    WAIT CLEAR
  35.    ON KEY
  36.    POP KEY
  37.    IF LASTKEY() # 27
  38.       * 27 ╩╟╫ε║≤░┤┴╦ [Esc] ╝ⁿ
  39.       this_date = _DIARYDATE
  40.       * ░╤╥╗╕÷╨┬╚╒╞┌╕│╕° GET
  41.    ELSE
  42.        mreturn = .F.
  43.    ENDIF
  44. ENDIF
  45. RETURN mreturn
  46.  
  47. PROCEDURE getdate
  48. * ╙├╙┌└δ┐¬╠╪╩Γ╡─ READ
  49. mquit = .t.
  50. DEACTIVATE WINDOW Calendar
  51. CLEAR READ
  52. RETURN
  53.  
  54. PROCEDURE chkmouse
  55. PARAMETERS mouserow, mousecol
  56. IF mouserow = WLROW("Calendar") ;
  57.     AND mousecol = WLCOL("Calendar")
  58.    DO getdate
  59. ENDIF
  60. RETURN
  61.