home *** CD-ROM | disk | FTP | other *** search
/ ANews 3 / AnewsCD3.iso / DP / Programmation / PureBasic_Demo / Examples / Sources / Screen.pb < prev    next >
Text File  |  1999-10-10  |  1KB  |  58 lines
  1. ;
  2. ; ***********************************
  3. ;
  4. ; Screen example file for Pure Basic
  5. ;
  6. ;   © 1999 - Fantaisie Software -
  7. ;
  8. ; ***********************************
  9. ;
  10. ;
  11.  
  12. InitScreen(1) ; We will need 2 screens
  13.  
  14. If FindScreen(0,"") ; Find de default public screen
  15.  
  16.   Print("Screen address: ") : PrintNum(ScreenID()) : NPrint("")
  17.  
  18.   HideScreen() ; Hide it
  19.  
  20.   Delay(10)    ; Wait a little bit...
  21.  
  22.   ShowScreen() ; and show it !
  23.  
  24.   NPrint("Screen dimensions: "+Str(ScreenWidth())+"x"+Str(ScreenHeight())+"x"+Str(ScreenDepth()))
  25.  
  26.   NPrint("MouseX: "+Str(ScreenMouseX())+", MouseY: "+Str(ScreenMouseY())+", ScreenBar height: "+Str(ScreenBarHeight()))
  27.  
  28.   If OpenScreen(1,320,200,3,0)  ; Open a new screen, 320*200 - 8 colours
  29.  
  30.     Delay(50)
  31.  
  32.     CloseScreen(1)
  33.   EndIf
  34.  
  35.   UseScreen(0)
  36.  
  37.   a = ObtainBestPen(255,255,255,0)  ; Get the index of the pure white colour and lock it
  38.  
  39.   NPrint("Pure White colour found at colour: "+Str(a))
  40.  
  41.   ReleasePen(a)                     ; Release it to the system
  42.  
  43.   If FindScreen(1,"Workbench")      ; Find the WB Screen
  44.     NPrint("Workbench screen found !")
  45.     Print("Screen RastPort: ") : PrintNum(ScreenRastPort())
  46.     Print(", Screen ViewPort: ") : PrintNum(ScreenViewPort()) : NPrint("")
  47.  
  48.     Delay(10)                       ; Flash the workbench screen !
  49.     FlashScreen()
  50.   Else
  51.     NPrint("Workbench screen isn't found ?!")
  52.   Endif
  53.  
  54. EndIf
  55.  
  56. End
  57.  
  58.