home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library5 / pbwndo.exe / PBWINDOW.INC < prev    next >
Encoding:
Text File  |  1990-03-26  |  3.3 KB  |  75 lines
  1. 'This $Include file is used with PBWindow.Pbu to load Windows for use
  2. 'with PowerBasic. Routined in this $include, and in the Unit, PWindow.PBU
  3. 'are (c) 1987, 1988, 1989, 1990 Barry Erick All Rights Reserved.
  4.  
  5.  
  6. ' The declares are not necessary and are for your information.
  7. DECLARE FUNCTION GetAttribute%(Integer,Integer)
  8. DECLARE SUB Getforandback(Integer,integer,integer)
  9. DECLARE SUB Prtbox(Integer,Integer,STRING)
  10. DECLARE SUB WritVidP()
  11. DECLARE SUB Rackett()
  12. DECLARE SUB RemoveBox()
  13. DECLARE SUB BoxTitle(Integer,STRING,Integer,Integer)
  14. DECLARE SUB MakeBox(Integer,Integer,Integer,Integer,Integer,Integer,_
  15.             Integer,Integer,Integer,Integer,Integer)
  16. DECLARE SUB ZoomBox(Integer,Integer,Integer,Integer,Integer,Integer,_
  17.             Integer,Integer,Integer,Integer,Integer)
  18. DECLARE SUB Boxscroll(Integer,Integer,Integer)
  19. DECLARE SUB CtrBox(Integer,STRING)
  20. DECLARE SUB CtrAllBox(Integer,Integer,STRING)
  21. DECLARE SUB PrtEol(Integer,Integer)
  22. DECLARE SUB PrtEolBox(Integer,Integer,String)
  23. DECLARE SUB NewBoxColor(Integer,Integer)
  24. DECLARE SUB PrtAttrBox(INTEGER,Integer,String,Integer,Integer)
  25. DECLARE SUB BuildMenu(Integer,Integer,Integer,Integer,_
  26.         Integer,Integer,Integer,Integer,Integer,STRING ARRAY,Integer,_
  27.         Integer)
  28. DECLARE SUB ClearBox(Integer,Integer)
  29. DECLARE SUB Recolor(Integer,Integer,Integer,Integer)
  30. DECLARE SUB WriteScreenArea(Integer,Integer,Integer,Integer,String,String)
  31. DECLARE SUB PBWindowInit()
  32. DECLARE SUB ScreenInit(Integer,Integer)
  33. DECLARE SUB SaveScreenArea(Integer,Integer,Integer,_
  34.         Integer,String,String)
  35.  
  36.  
  37. PUBLIC Max.Window%,AutoBuildTime%   'max num of windows, automatic time
  38. PUBLIC Wpt%  'current window pointer
  39. PUBLIC PBWr%(),PBWc%(),PBWh%(),PBWw%() 'row,colum, height, width
  40. PUBLIC Shadows%() 'type of shadow for each (wpt%)
  41. PUBLIC noise%(),boxkinw%() 'is noise active and type of box for each wpt%
  42. PUBLIC vert$()     ' for parsing words for title
  43. PUBLIC attrs%()    ' each wpt% attribute
  44. PUBLIC boxborderattrs%()  'each wpt border attribute
  45. PUBLIC mlist$()    'names of %MaxMenuList
  46. PUBLIC NoNoise%    'True = do not make noise
  47. PUBLIC mbc%        ' last windows background color
  48. PUBLIC mfc%       ' last windows foreground color
  49. PUBLIC mbfc%,mbbc% ' last windows border foreground and background color
  50. PUBLIC fc%,bc%,bfc%,bbc%
  51. PUBLIC Backc%,Forec%
  52. PUBLIC ScreenSegment%,RetraceMode%  'users screen segment and snow check.
  53. PUBLIC IsColr%,VidMode%
  54. PUBLIC Bar3or4Off%, Bar0to2Off%
  55. PUBLIC UnderDevelopment%
  56.  
  57.  
  58. %MaxmenuList = 20 ' DO NOT CHANGE, It is 20 in the .PBU
  59.           ' and this is for the user's program and the two
  60.           'must match. This MAY change in future versions
  61. Bar3or4Off% = 0   'default values
  62. Bar0to2Off% = 3   'see doc file
  63. UnderDevelopment% = 0  'this can be changed in your program while
  64.                'you are developing your program
  65.                'DO NOT CHANGE IT HERE, but add it to
  66.                'your program if you want to check for
  67.                'parameter errors in makebox. This should
  68.                'be after the $Include statement in your
  69.                'program. When development is finished,
  70.                'either remove the statement you added,
  71.                'or make it %False. To make it work, use
  72.                ' UnderDevelopment% = %True in the program
  73.                ' or UnderDevelopment = -1
  74. $LINK "PBWindow.pbu"
  75.  
  76. CALL PbWindowInit   'call the initialization routine
  77.