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