home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Help / examples / display / display2-example.dba < prev   
Encoding:
Text File  |  2004-09-22  |  1.7 KB  |  78 lines
  1. rem Display Functionality
  2. set gamma 255,128,128
  3. center text 320,240,"GAMMA"
  4. sleep 2000
  5. set gamma 255,255,255
  6. sleep 1000
  7.  
  8. cls
  9. print "GRAPHICS CARDS"
  10. print
  11. perform checklist for graphics cards
  12. for c=1 to checklist quantity()
  13.  name$=checklist string$(c)
  14.  print "found:";name$
  15. next c
  16. set graphics card name$
  17. print "using:";current graphics card$()
  18. sleep 2000
  19.  
  20. rem Screen Management
  21. cls
  22. print "DISPLAY MODES"
  23. print
  24. perform checklist for display modes
  25. for c=1 to checklist quantity()
  26.  width=checklist value a(c)
  27.  height=checklist value b(c)
  28.  depth=checklist value c(c)
  29.  print "found:";checklist string$(c)
  30. next c
  31. set display mode width, height, depth
  32. if check display mode(width, height, depth)=1
  33.  print "using:";width;" ";height;" ";depth
  34. endif
  35.  
  36. rem Screen Data Expressions
  37. cls
  38. print "SCREEN DATA"
  39. print
  40. print "type:";screen type()
  41. print "width:";screen width()
  42. print "height:";screen height()
  43. print "depth:";screen depth()
  44. print "invalid:";screen invalid()
  45. print "fps:";screen fps()
  46. sleep 2000
  47.  
  48. rem Window Management
  49. set window on
  50. set window title "Test Window"
  51. set window layout 1,1,1
  52. set window size 320,240
  53. set window position 160,120 : sleep 2000
  54. maximize window : sleep 2000
  55. minimize window : sleep 2000
  56. restore window : sleep 2000
  57. hide window : sleep 1000
  58. show window : sleep 2000
  59. set window off
  60. sleep 2000
  61.  
  62. rem Backbuffer Management
  63. lock backbuffer
  64. cls
  65. print "BACKBUFFER DATA"
  66. print
  67. print "ptr:";get backbuffer ptr()
  68. print "width:";get backbuffer width()
  69. print "height:";get backbuffer height()
  70. print "depth:";get backbuffer depth()
  71. print "pitch:";get backbuffer pitch()
  72. unlock backbuffer
  73. sleep 2000
  74.  
  75. rem End program
  76. end
  77.  
  78.