home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / GPIBIT.BI < prev    next >
Encoding:
Text File  |  1989-09-05  |  4.7 KB  |  168 lines
  1. '**************************************************************
  2. '*
  3. '* Include File: GpiBit.BI
  4. '*
  5. '* Requires:     OS2Def.BI (POINTL type)
  6. '*               GpiCont.BI (SIZEL type)
  7. '*
  8. '* Description:  Bitmap constants and functions
  9. '*
  10. '*************************************************************
  11.  
  12. '  rastor operations defined for GpiBitBlt
  13. CONST  ROPSRCCOPY    =      &H00CC
  14. CONST  ROPSRCPAINT    =      &H00EE
  15. CONST  ROPSRCAND    =      &H0088
  16. CONST  ROPSRCINVERT    =      &H0066
  17. CONST  ROPSRCERASE    =      &H0044
  18. CONST  ROPNOTSRCCOPY    =      &H0033
  19. CONST  ROPNOTSRCERASE    =      &H0011
  20. CONST  ROPMERGECOPY    =      &H00C0
  21. CONST  ROPMERGEPAINT    =      &H00BB
  22. CONST  ROPPATCOPY    =      &H00F0
  23. CONST  ROPPATPAINT    =      &H00FB
  24. CONST  ROPPATINVERT    =      &H005A
  25. CONST  ROPDSTINVERT    =      &H0055
  26. CONST  ROPZERO        =      &H0000
  27. CONST  ROPONE        =      &H00FF
  28.  
  29. '  Blt options for GpiBitBlt
  30. CONST  BBOOR           =   0
  31. CONST  BBOAND           =   1
  32. CONST  BBOIGNORE       =   2
  33.  
  34. '  error return for GpiSetBitmap
  35. CONST  HBMERROR        =   -1
  36.  
  37. ' ** bitmap and pel functions
  38. DECLARE FUNCTION GpiLoadBitmap&( BYVAL HPS AS LONG,_
  39.                      BYVAL HMODULE AS INTEGER,_
  40.                      BYVAL USHORT AS INTEGER,_
  41.                      BYVAL ALONG AS LONG,_
  42.                      BYVAL BLONG AS LONG )
  43.  
  44. DECLARE FUNCTION     GpiDeleteBitmap%( BYVAL HBITMAP AS LONG)
  45.  
  46. DECLARE FUNCTION   GpiSetBitmap&( BYVAL HPS AS LONG,_
  47.                     BYVAL HBITMAP AS LONG)
  48.  
  49. DECLARE FUNCTION     GpiBitBlt&( BYVAL AHPS AS LONG,_
  50.                  BYVAL BHPS AS LONG,_
  51.                  BYVAL ALONG AS LONG,_
  52.                  BYVAL PPOINTL AS LONG,_
  53.                  BYVAL BLONG AS LONG,_
  54.                  BYVAL ULONG AS LONG )
  55.  
  56. DECLARE FUNCTION     GpiWCBitBlt&( BYVAL HPS AS LONG,_
  57.                    BYVAL HBITMAP AS LONG,_
  58.                    BYVAL ALONG AS LONG,_
  59.                    BYVAL PPOINTL AS LONG,_
  60.                    BYVAL BLONG AS LONG,_
  61.                    BYVAL ULONG AS LONG )
  62.  
  63. '  usage flags for GpiCreateBitmap
  64. CONST CBMINIT      =   &H0004
  65.  
  66. '  bitmap parameterization used by GpiCreateBitmap and others
  67. TYPE BITMAPINFOHEADER       '  bmp
  68.     cbFix AS LONG
  69.     cx AS INTEGER
  70.     cy AS INTEGER
  71.     cPlanes AS INTEGER
  72.     cBitCount AS INTEGER
  73. END TYPE
  74.  
  75. '*
  76. '* This is the file format structure for Bitmaps, Pointers and Icons
  77. '* as stored in the resource file of a PM application.
  78. '
  79. TYPE BITMAPFILEHEADER
  80.     usType AS INTEGER
  81.     cbSize AS LONG
  82.     xHotspot AS INTEGER
  83.     yHotspot AS INTEGER
  84.     offBits AS LONG
  85.     bmp AS BITMAPINFOHEADER
  86. END TYPE
  87.  
  88.  
  89. ' * These are the identifying values that go in the wType field of the 
  90. ' * BITMAPFILEHEADER.  (BFT_ => Bitmap File Type)
  91. ' 
  92. CONST BFTICON        =&H4349    'IC' 
  93. CONST BFTBMAP        =&H4d42    'BM' 
  94. CONST BFTPOINTER     =&H5450    'PT' 
  95.  
  96. '  RGB data for BITMAPINFO struct
  97. TYPE RGB       '  rgb
  98.     bBlue AS STRING * 1
  99.     bGreen AS STRING * 1
  100.     bRed AS STRING * 1
  101. END TYPE
  102.  
  103. '  bitmap data used by GpiSetBitmapBits and others
  104. TYPE BITMAPINFO    '  bmi
  105.     cbFix AS LONG
  106.     cx AS INTEGER
  107.     cy AS INTEGER
  108.     cPlanes AS INTEGER
  109.     cBitCount AS INTEGER
  110.     argbColor AS RGB
  111. END TYPE
  112.  
  113.  
  114. '  error return code for GpiSet/QueryBitmapBits
  115. CONST BMBERROR      =   -1
  116.  
  117. ' ** bitmap and pel functions
  118. DECLARE FUNCTION  GpiCreateBitmap&( BYVAL HPS AS LONG,_
  119.                        BYVAL PBITMAPINFOHEADER AS LONG,_
  120.                        BYVAL ULONG AS LONG,_
  121.                        BYVAL PBYTE AS LONG,_
  122.                        BYVAL PBITMAPINFO AS LONG)
  123.  
  124. DECLARE FUNCTION     GpiSetBitmapDimension%( BYVAL HBITMAP AS LONG,_
  125.                          BYVAL PSIZEL AS LONG )
  126.  
  127. DECLARE FUNCTION     GpiQueryBitmapDimension%( BYVAL HBITMAP AS LONG,_
  128.                            BYVAL PSIZEL AS LONG )
  129.  
  130. DECLARE FUNCTION     GpiQueryDeviceBitmapFormats%( BYVAL HPS AS LONG,_
  131.                            BYVAL ALONG AS LONG,_
  132.                            BYVAL PLONG AS LONG )
  133.  
  134. DECLARE FUNCTION     GpiQueryBitmapParameters%( BYVAL HBITMAP AS LONG,_
  135.                         BYVAL PBITMAPINFOHEADER AS LONG)
  136.  
  137. DECLARE FUNCTION     GpiQueryBitmapBits&( BYVAL HPS AS LONG,_
  138.                       BYVAL ALONG AS LONG,_
  139.                       BYVAL BLONG AS LONG,_
  140.                       BYVAL PBYTE AS LONG,_
  141.                       BYVAL PBITMAPINFO AS LONG)
  142.  
  143. DECLARE FUNCTION     GpiSetBitmapBits&( BYVAL HPS AS LONG,_
  144.                     BYVAL ALONG AS LONG,_
  145.                     BYVAL BLONG AS LONG,_
  146.                     BYVAL PBYTE AS LONG,_
  147.                     BYVAL PBITMAPINFO AS LONG)
  148.  
  149. DECLARE FUNCTION     GpiSetPel&( BYVAL HPS AS LONG,_
  150.                  BYVAL PPOINTL AS LONG )
  151.  
  152. DECLARE FUNCTION     GpiQueryPel&( BYVAL HPS AS LONG,_
  153.                    BYVAL PPOINTL AS LONG )
  154.  
  155. DECLARE FUNCTION     GpiSetBitmapId%( BYVAL HPS AS LONG,_
  156.                       BYVAL HBITMAP AS LONG,_
  157.                       BYVAL ALONG AS LONG )
  158.  
  159. DECLARE FUNCTION   GpiQueryBitmapHandle&( BYVAL HPS AS LONG,_
  160.                         BYVAL ALONG AS LONG )
  161.  
  162. ' ** image primitive functions
  163. DECLARE FUNCTION GpiImage&( BYVAL HPS AS LONG,_
  164.                 BYVAL ALONG AS LONG,_
  165.                 BYVAL PSIZEL AS LONG,_
  166.                 BYVAL BLONG AS LONG,_
  167.                 BYVAL PBYTE AS LONG )
  168.