home *** CD-ROM | disk | FTP | other *** search
/ Point Programming 1 / PPROG1.ISO / basic / pbv1010 / windemo5.bas < prev    next >
Encoding:
BASIC Source File  |  1994-02-09  |  2.0 KB  |  71 lines
  1. '┌─────────────────────────────────────────────────────────────────────────┐
  2. '│    FILE: WINDEMO5.BAS                                                   │
  3. '│ PURPOSE: PB/VISION(tm) LITE Example Program                             │
  4. '├─────────────────────────────────────────────────────────────────────────┤
  5. '│ For instant help on any PB/VISION(tm) keyword, place the cursor on that │
  6. '│ keyword and press <CTRL-F1>.  The PB/VISION(tm) index can be accessed   │
  7. '│ by pressing <SHIFT-F1> twice.  The file "PBVLITE.PBH" _must_ be in the  │
  8. '│ same directory as the PowerBASIC IDE (PB.EXE) for this feature to work  │
  9. '│ properly.                                                               │
  10. '└─────────────────────────────────────────────────────────────────────────┘
  11.  
  12. '       ==================================================
  13. '       BE SURE TO RUN "DEMO.EXE" FOR INFORMATION ON OTHER
  14. '       PowerBASIC 3.0 TOOLS FROM DSE SOFTWARE PUBLISHING.
  15. '       ==================================================
  16.  
  17. %ISPBU = 0
  18.  
  19. $INCLUDE ".\WINDOW.BI"
  20. $INCLUDE ".\MOUSE.BI"
  21. $INCLUDE ".\EVENT.BI"
  22.  
  23.     DEFINT A-Z
  24.     $DYNAMIC
  25.  
  26.     SHARED win1%
  27.  
  28.     APPTITLE &HCF, "WINDEMO6.BAS - A PB/VISION(tm) LITE DEMO - PRESS <ESC> TO QUIT"
  29.  
  30.     APP.GraphicsMode = 1
  31.         APP.GraphicsMouse = 1
  32.  
  33.     APPINIT
  34.  
  35.     GottaMouse% = MOUSEINIT(buttons%)
  36.     MOUSECURSORON
  37.  
  38.     winFlags = %DRAGBAR OR %SHADOW OR %RESIZE OR %MINMAX OR %VSCROLLBAR OR %HSCROLLBAR OR %AUTOSCROLL
  39.  
  40.     win1% = WINOPEN (50, 128, &H9F, 1, &H9F, "WINDOW WITH AUTO-SCROLL ENABLED", &H8F, winFlags)
  41.  
  42.     FOR row = 1 TO 50
  43.             FOR col = 1 TO 31
  44.             WINPRINT win1%, row, col * 4 - 3 , -1, USING$("####", row + col)
  45.         NEXT
  46.     NEXT
  47.  
  48.     WINPRINT win1, 1, 1, -1, "Use cursor keys or mouse to scroll window."
  49.  
  50.     WINSHOW win1%, 0, 0, 18, 70
  51.  
  52.     DO
  53.         eventNo = GetEvent(0)
  54.  
  55.         SELECT CASE eventNo
  56.  
  57.             CASE 102            ' <= <ESC>
  58.                 EXIT LOOP
  59.  
  60.             CASE 217
  61.                 WINNORMALIZE win1%
  62.  
  63.             CASE ELSE
  64.  
  65.         END SELECT
  66.     LOOP
  67.  
  68.     MOUSECURSOROFF
  69.     APPCLOSE
  70.     END
  71.