home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / basic / pbvl010.zip / WINDEMO1.BAS < prev    next >
BASIC Source File  |  1994-02-10  |  3KB  |  103 lines
  1. '┌─────────────────────────────────────────────────────────────────────────┐
  2. '│    FILE: WINDEMO1.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.     %cmNextWindow = 1001
  27.     %cmCloseWindow = 1002
  28.  
  29.     DIM CtrlBoxColor AS MenuColorTYPE
  30.  
  31.     APPTITLE &HCF, "WINDEMO5.BAS - A PB/VISION(tm) DEMO - PRESS <ESC> TO QUIT"
  32.  
  33.     app.GraphicsMode = 1
  34.     app.GraphicsMouse = 1
  35.  
  36.     APPINIT
  37.  
  38.     GottaMouse% = MOUSEINIT(buttons%)
  39.     MOUSECURSORON
  40.  
  41.     winFlags = %DRAGBAR OR %SHADOW OR %CONTROL OR %RESIZE OR %MINMAX
  42.  
  43.     A = WINOPEN (15, 40, &H9F, 1, &H9F, "WINDOW A", &H8F, winFlags)
  44.     B = WINOPEN(10, 40, &HA7, 1, &HA8, "WINDOW B", &HCF, winFlags)
  45.     C = WINOPEN(10, 40, &HF1, 1, &HF1, "WINDOW C", &H8F, winFlags)
  46.     D = WINOPEN (10, 40, &HCF, 1, &HCF, "WINDOW EVENT", &HB0, winFlags)
  47.  
  48.     WINSHOW A, 6, 5, 20, 40
  49.     WINSHOW B, 0, 0, 10, 30
  50.     WINSHOW C, 4, 40, 10, 30
  51.     WINSHOW D, 2, 2, 10, 40
  52.  
  53.     WINWRITELN D, "Press <ALT-SPACE>"
  54.  
  55.     HOTKEYADD &H6100, %cmCloseWindow        ' trap CTRL-F4
  56.     HOTKEYADD &H4000, %cmNextWindow
  57.  
  58.     DO
  59.         eventNo = GetEvent(0)
  60.  
  61.         SELECT CASE eventNo
  62.  
  63.                     CASE 0            ' filter 'null' events
  64.             CASE 17            ' filter timer ticks
  65.  
  66.             CASE 102        ' <= <ESC>
  67.                 EXIT LOOP
  68.  
  69.             CASE 203, 108        ' CLICK or ALT-SPACE
  70.                 CtrlBoxColor.kolor = &HDADF
  71.                 CtrlBoxColor.borderattr = &HDF
  72.                 CtrlBoxColor.titleattr = &H8F
  73.                 CtrlBoxColor.highlight = &HF4F0
  74.                 CtrlBoxColor.sepbar = &HD0
  75.                 CtrlBoxColor.border = 1
  76.                 CtrlBoxColor.Flags = %CONTROL OR %SHADOW
  77.                 WINCTRLBOX WINGET, CtrlBoxColor
  78.  
  79.             CASE 208, 211
  80.                 WINSCROLLBARGET WINGET, VPOS, HPOS
  81.                 WINWRITELN WINGET, "Horizontal =" + STR$(HPOS) + "%, Vertical =" + STR$(VPOS%) + "%"
  82.  
  83.                         CASE 217
  84.                 WINNORMALIZE WINGET
  85.  
  86.                         CASE %cmCloseWindow    ' CTRL-F4 pressed
  87.                 WINCLOSE WINGET
  88.  
  89.             CASE %cmNextWindow    ' F6 pressed
  90.                 WINNEXT
  91.  
  92.             CASE ELSE
  93.                 WINWRITELN D, "Event" + STR$(eventNo) + " in window handle" + STR$(WINGET)
  94.  
  95.         END SELECT
  96.     LOOP
  97.  
  98.     MOUSECURSOROFF
  99.     APPCLOSE
  100.     END
  101.  
  102.  
  103.