home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l409 / 1.img / VB-DEVGD.EXE / SOURCE / CUTBOX.GBL < prev    next >
Encoding:
Text File  |  1992-08-25  |  2.0 KB  |  39 lines
  1. '   Ternary raster operations
  2. Global Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
  3. Global Const SRCPAINT = &HEE0086    ' (DWORD) dest = source OR dest
  4. Global Const SRCAND = &H8800C6  ' (DWORD) dest = source AND dest
  5. Global Const SRCINVERT = &H660046   ' (DWORD) dest = source XOR dest
  6. Global Const SRCERASE = &H440328    ' (DWORD) dest = source AND (NOT dest )
  7. Global Const NOTSRCCOPY = &H330008  ' (DWORD) dest = (NOT source)
  8. Global Const NOTSRCERASE = &H1100A6 ' (DWORD) dest = (NOT src) AND (NOT dest)
  9. Global Const MERGECOPY = &HC000CA   ' (DWORD) dest = (source AND pattern)
  10. Global Const MERGEPAINT = &HBB0226  ' (DWORD) dest = (NOT source) OR dest
  11. Global Const PATCOPY = &HF00021 ' (DWORD) dest = pattern
  12. Global Const PATPAINT = &HFB0A09    ' (DWORD) dest = DPSnoo
  13. Global Const PATINVERT = &H5A0049   ' (DWORD) dest = pattern XOR dest
  14. Global Const DSTINVERT = &H550009   ' (DWORD) dest = (NOT dest)
  15. Global Const BLACKNESS = &H42&  ' (DWORD) dest = BLACK
  16. Global Const WHITENESS = &HFF0062   ' (DWORD) dest = WHITE
  17.  
  18.  
  19. '  StretchBlt() Modes
  20. Global Const BLACKONWHITE = 1
  21. Global Const WHITEONBLACK = 2
  22. Global Const COLORONCOLOR = 3
  23.  
  24. Declare Function PatBlt Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal dwROP As Long) As Integer
  25. Declare Function BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwROP As Long) As Integer
  26. Declare Function StretchBlt% Lib "GDI" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwROP&)
  27.  
  28. Type Rectangle
  29.     origx As Integer
  30.     origy As Integer
  31.     deltax As Integer
  32.     deltay As Integer
  33. End Type
  34. Global downx As Integer, downy As Integer
  35. Global BlitSnip As Rectangle
  36. Global dwROP(14) As Long, ROP2(15) As Long
  37.  
  38.  
  39.