home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / paolin.zip / HELP / HELP1.SC next >
Text File  |  1993-05-18  |  3KB  |  83 lines
  1. ; ****************************************************************************
  2. ;       TITLE: HELP1.sc 
  3. ;     SESSION: PAOLINI - Providing Custom Help in Paradox 4 Apps
  4. ;   COPYRIGHT: (c) 1993 - Dan Paolini - DataStar International
  5. ; DESCRIPTION: Example of SPLASH SCREEN Help
  6. ; ****************************************************************************
  7.  
  8.    SHOWPULLDOWN
  9.       "Beep"               : "Play some Beeps"        : "BEEP.NODE"
  10.       SUBMENU
  11.          "1 Beep"          : "Play One Beep"          : "BEEP.ONE",
  12.          "2 Beeps"         : "Play Two Beeps"         : "BEEP.TWO",
  13.          "3 Beep"          : "Play Three Beeps"       : "BEEP.THREE"
  14.       ENDSUBMENU,
  15.       "Sound"              : "Play some Sounds"       : "SOUND.NODE"
  16.       SUBMENU
  17.          "Siren"           : "Play a High/Low Siren"  : "SOUND.SIREN",
  18.          "Sound ~U~p"      : "Play a Scale Up"        : "SCALE.UP",
  19.          "Sound ~D~own"    : "Play a Scale Down"      : "SCALE.DOWN"
  20.       ENDSUBMENU,
  21.       "Quit"               : "Quit this Demonstration": "QUIT.NODE"
  22.       SUBMENU
  23.          "Yes"             : "Hasta la vista, Baby"   : "QUIT.YES",
  24.          "No"              : "I'll be back"           : "QUIT.NO"
  25.       ENDSUBMENU
  26.    ENDMENU
  27. WHILE true
  28.  
  29.    DynArray y1[]
  30.       y1["Title"] = "This is the Title of Help Screen 1"
  31.       y1["HasFrame"] = False
  32.       y1["CanMove"] = False
  33.       y1["Style"] = 63
  34.  
  35.    Window Create Floating @ 2,3 Height 20 Width 74 Attributes y1 To h1
  36.    Window Select h1
  37.    SetCanvas h1
  38.    Canvas OFF
  39.    @ 1,1
  40.    Style Attribute 63
  41.    Frame Single From 0,0 To 19,73
  42.    SetMargin 1
  43.    TEXT
  44.  
  45.    BEEP────┐
  46.            ├─1 Beep        Play One Beep and return to Menu
  47.            ├─2 Beeps       Play Two Beeps and return to Menu
  48.            └─3 Beeps       Play Three Beeps and return to Menu
  49.  
  50.    SOUNDS──┐
  51.            ├─Siren         Play an alert Siren and wait for an Event
  52.            ├─Scale Up      Play three octave chromatic Scale up
  53.            └─Scale Down    Play three octave chromatic Scale down
  54.  
  55.    QUIT──────              Quit this Help Demonstration
  56.            ┌────────────────────────────────────────────────┐
  57.            │ Drawbacks:    Pulldown Menus obscure screen    │
  58.            │               Screen is the same for all Menus │
  59.            │               Only available while at a Menu   │
  60.            └────────────────────────────────────────────────┘
  61.  
  62.    ENDTEXT
  63.  
  64.    PaintCanvas Attribute 48 3,27,12,72
  65.    PaintCanvas Attribute 62 3,14,10,25
  66.    PaintCanvas Border
  67.                Attribute 59 0,0,19,73
  68.    PaintCanvas Attribute 48 0,0,0,72
  69.    PaintCanvas Attribute 48 0,0,19,0
  70.    PaintCanvas Attribute  8 14,14,18,63
  71.    PaintCanvas Attribute 31 13,12,17,61
  72.    PaintCanvas Border
  73.                Attribute 25 13,12,17,61
  74.    PaintCanvas Attribute 16 13,61,17,61
  75.    PaintCanvas Attribute 16 17,13,17,61
  76.    Canvas ON
  77.    GetMenuSelection to a1
  78.    IF a1 = "QUIT.YES" THEN
  79.       QUITLOOP
  80.    ENDIF
  81. ENDWHILE
  82.  
  83.