home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / paolin.zip / HELP / HELP3.SC < prev    next >
Text File  |  1993-05-18  |  2KB  |  57 lines
  1. ; ****************************************************************************
  2. ;       TITLE: HELP3.sc 
  3. ;     SESSION: PAOLINI - Providing Custom Help in Paradox 4 Apps
  4. ;   COPYRIGHT: (c) 1993 - Dan Paolini - DataStar International
  5. ; DESCRIPTION: Example of FORM-BASED Field-Level Help
  6. ; ****************************************************************************
  7.  
  8.  
  9.    DynArray fieldmsg.y[]
  10.       fieldmsg.y["D\\Super_SuperId"]      = "What the heck is a Supervisor Group ID?  Well, here, we could say."
  11.       fieldmsg.y["D\\Super_SLastName"]    = ""
  12.       fieldmsg.y["D\\Super_SFirstName"]   = ""
  13.       fieldmsg.y["D\\Super_DeptCode"]     = "Press <F1> for Table Lookup"
  14.       fieldmsg.y["D\\Super_MgrId"]        = "Press <F1> for Table Lookup"
  15.       fieldmsg.y["D\\Super_UnitId"]       = "" ;Press <F1> for Table Lookup"
  16.       fieldmsg.y["D\\Super_SuperCode"]    = ""
  17.       fieldmsg.y["D\\Super_Shift"]        = "Enter 1, 2, or 3"
  18.       fieldmsg.y["D\\Super_SEmplId"]      = ""
  19.       fieldmsg.y["D\\Super_DAEmplid"]     = "Press <F1> for Table Lookup"
  20.  
  21.    View "D\\Super"
  22.    PickForm "1"
  23.    Window Handle Form To h3
  24.    DynArray y3[]
  25.       y3["Maximized"] = True
  26.       y3["HasFrame"] = False
  27.    Window SetAttributes h3 From y3
  28.  
  29. PROC myWaitHandler.n(x,y,z)
  30.    IF x = "EVENT" THEN
  31.       IF y["Type"] = "IDLE" THEN
  32.          fieldmsg.a = fieldmsg.y[Table()+"_"+Field()]
  33.          NewWaitSpec
  34.             Key "F2"
  35.             Trigger "ARRIVEFIELD"
  36.          Return 0
  37.       ELSE
  38.          Return 2
  39.       ENDIF
  40.    ELSE
  41.       fieldmsg.a = fieldmsg.y[Table()+"_"+Field()]
  42.       Return 0
  43.    ENDIF
  44. ENDPROC
  45.  
  46.    fieldmsg.a = ""
  47.    WAIT Table
  48.       Proc "myWaitHandler.n"
  49.          Key "F2"
  50.          IDLE
  51.          Trigger "ARRIVEFIELD"
  52.    ENDWAIT
  53.  
  54.  
  55.  
  56.  
  57.