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. PUBLIC Max.Window%,AutoBuildTime%   'max num of windows, automatic time
  37. PUBLIC Wpt%  'current window pointer
  38. PUBLIC PBWr%(),PBWc%(),PBWh%(),PBWw%() 'row,colum, height, width
  39. PUBLIC Shadows%() 'type of shadow for each (wpt%)
  40. PUBLIC noise%(),boxkinw%() 'is noise active and type of box for each wpt%
  41. PUBLIC vert$()     ' for parsing words for title
  42. PUBLIC attrs%()    ' each wpt% attribute
  43. PUBLIC boxborderattrs%()  'each wpt border attribute
  44. PUBLIC mlist$()    'names of %MaxMenuList
  45. PUBLIC NoNoise%    'True = do not make noise
  46. PUBLIC mbc%        ' last windows background color
  47. PUBLIC mfc%       ' last windows foreground color
  48. PUBLIC mbfc%,mbbc% ' last windows border foreground and background color
  49. PUBLIC fc%,bc%,bfc%,bbc%
  50. PUBLIC Backc%,Forec%
  51. PUBLIC ScreenSegment%,RetraceMode%  'users screen segment and snow check.
  52. PUBLIC IsColr%,VidMode%
  53. PUBLIC Bar3or4Off%, Bar0to2Off%
  54. PUBLIC UnderDevelopment%
  55.  
  56.  
  57. %MaxmenuList = 20 ' DO NOT CHANGE, It is 20 in the .PBU
  58.           ' and this is for the user's program and the two
  59.           'must match. This MAY change in future versions
  60. Bar3or4Off% = 0   'default values
  61. Bar0to2Off% = 3   'see doc file
  62. UnderDevelopment% = 0  'this can be changed in your program while
  63.                'you are developing your program
  64.                'DO NOT CHANGE IT HERE, but add it to
  65.                'your program if you want to check for
  66.                'parameter errors in makebox. This should
  67.                'be after the $Include statement in your
  68.                'program. When development is finished,
  69.                'either remove the statement you added,
  70.                'or make it %False. To make it work, use
  71.                ' UnderDevelopment% = %True in the program
  72.                ' or UnderDevelopment = -1
  73. $LINK "PBWindow.pbu"
  74. CALL PbWindowInit   'call the initialization routine
  75.