home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / WINRECT.BI < prev    next >
Text File  |  1989-07-24  |  3KB  |  68 lines
  1. '**************************************************************
  2. '*
  3. '* Include File: WinRect.BI
  4. '*
  5. '* Requires:     PMBase.BI (RECTL type)
  6. '*               OS2Def.BI (POINTL type)
  7. '*
  8. '* Description:  Rectangle routines
  9. '*
  10. '*************************************************************
  11.  
  12. DECLARE FUNCTION WinCopyRect%(BYVAL hab AS LONG,_
  13.                               BYVAL prclDst AS LONG,_
  14.                               BYVAL prclSrc AS LONG)
  15.  
  16. DECLARE FUNCTION WinSetRect%(BYVAL hab AS LONG,_
  17.                              BYVAL prcl AS LONG,_
  18.                              BYVAL xLeft AS INTEGER,_
  19.                              BYVAL yBottom AS INTEGER,_
  20.                              BYVAL xRight AS INTEGER,_
  21.                              BYVAL yTop AS INTEGER)
  22.  
  23. DECLARE FUNCTION WinIsRectEmpty%(BYVAL hab AS LONG,_
  24.                                  BYVAL prcl AS LONG)
  25.  
  26. DECLARE FUNCTION WinEqualRect%(BYVAL hab AS LONG,_
  27.                                BYVAL prcl1 AS LONG,_
  28.                                BYVAL prcl2 AS LONG)
  29.  
  30. DECLARE FUNCTION WinSetRectEmpty%(BYVAL hab AS LONG,_
  31.                                   BYVAL prcl AS LONG)
  32.  
  33. DECLARE FUNCTION WinOffsetRect%(BYVAL hab AS LONG,_
  34.                                 BYVAL prcl AS LONG,_
  35.                                 BYVAL cx AS INTEGER,_
  36.                                 BYVAL cy AS INTEGER)
  37.  
  38. DECLARE FUNCTION WinInflateRect%(BYVAL hab AS LONG,_
  39.                                  BYVAL prcl AS LONG,_
  40.                                  BYVAL cx AS INTEGER,_
  41.                                  BYVAL cy AS INTEGER)
  42.  
  43. DECLARE FUNCTION WinPtInRect%(BYVAL hab AS LONG,_
  44.                               BYVAL prcl AS LONG,_
  45.                               BYVAL pptl AS LONG)
  46.  
  47. DECLARE FUNCTION WinIntersectRect%(BYVAL hab AS LONG,_
  48.                                    BYVAL prclDst AS LONG,_
  49.                                    BYVAL prclSrc1 AS LONG,_
  50.                                    BYVAL prclSrc2 AS LONG)
  51.  
  52. DECLARE FUNCTION WinUnionRect%(BYVAL hab AS LONG,_
  53.                                BYVAL prclDst AS LONG,_
  54.                                BYVAL prclSrc1 AS LONG,_
  55.                                BYVAL prclSrc2 AS LONG)
  56.  
  57. DECLARE FUNCTION WinSubtractRect%(BYVAL hab AS LONG,_
  58.                                   BYVAL prclDst AS LONG,_
  59.                                   BYVAL prclSrc1 AS LONG,_
  60.                                   BYVAL prclSrc2 AS LONG)
  61.  
  62. DECLARE FUNCTION WinMakeRect%(BYVAL hab AS LONG,_
  63.                               BYVAL pwrc AS LONG)
  64.  
  65. DECLARE FUNCTION WinMakePoints%(BYVAL hab AS LONG,_
  66.                                 BYVAL pwpt AS LONG,_
  67.                                 BYVAL cwpt AS INTEGER)
  68.