home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c016 / 3.ddi / MEDIAINC.PAK / IMKCONST.TXT next >
Encoding:
Text File  |  1993-08-23  |  4.7 KB  |  78 lines
  1. '
  2. ' Constants and Declarations for ImageKnife/VBX library
  3. '
  4. ' Copyright (c) 1993 by Media Architects, Inc.  ALL RIGHTS RESERVED
  5. '
  6.  
  7.  
  8. ' ######  Constants  ######
  9.  
  10. ' Image file formats
  11. Global Const IMK_EXTENSION = 0
  12. Global Const IMK_TIFF = 1
  13. Global Const IMK_TARGA = 2
  14. Global Const IMK_BITMAP = 3
  15. Global Const IMK_GIF = 4
  16. Global Const IMK_DIB = 5
  17. Global Const IMK_PCX = 6
  18. Global Const IMK_JPEG = 7
  19. Global Const IMK_OLEPBRUSH = 8
  20.  
  21. ' Image file compression types
  22. Global Const IMK_UNCOMP = 0
  23. Global Const IMK_LZW = 1
  24. Global Const IMK_RLE = 2
  25. Global Const IMK_PACKBITS = 3
  26. Global Const IMK_OS2 = 4
  27. Global Const IMK_PCXCOMP = 5
  28.  
  29.  
  30. ' ######  Declarations  ######
  31.  
  32. Declare Function imkAccessLoad Lib "KNIFE" (Chunks() As String * 32768) As Integer
  33. Declare Function imkAccessStoreInit Lib "KNIFE" (ByVal FullPicture%, ByVal Fmt%, ByVal Compression%, ByVal ChunkSize&) As Long
  34. Declare Function imkAccessStoreGetData Lib "KNIFE" (ByVal ChunkNum&) As String
  35. Declare Function imkBlur Lib "KNIFE" (ByVal FullPicture%) As Integer
  36. Declare Function imkBrightCont Lib "KNIFE" (ByVal FullPicture%, ByVal Brightness#, ByVal Contrast#) As Integer
  37. Declare Function imkColorReplace Lib "KNIFE" (ByVal FullPicture%, ByVal C1&, ByVal C2&, ByVal Flag%, ByVal C3&) As Integer
  38. Declare Function imkCountImages Lib "KNIFE" (ByVal FileName$, ByVal Fmt%) As Integer
  39. Declare Function imkDuplicate Lib "KNIFE" (ByVal HDIB%) As Integer
  40. Declare Function imkExtractEdges Lib "KNIFE" (ByVal FullPicture%, ByVal Magnitude%) As Integer
  41. Declare Function imkForcePal Lib "KNIFE" (ByVal FullPicture%, ByVal Palette%) As Integer
  42. Declare Function imkGamma Lib "KNIFE" (ByVal FullPicture%, ByVal Magnitude#) As Integer
  43. Declare Function imkGetColor Lib "KNIFE" (ByVal FullPicture%, ByVal X%, ByVal Y%) As Long
  44. Declare Function imkGetColorCount Lib "KNIFE" (ByVal FullPicture%) As Long
  45. Declare Function imkGetPalColor Lib "KNIFE" (ByVal Palette%, ByVal position%) As Long
  46. Declare Function imkGrayScale Lib "KNIFE" (ByVal FullPicture%) As Integer
  47. Declare Function imkIncreaseColors Lib "KNIFE" (ByVal FullPicture%, ByVal Depth%) As Integer
  48. Declare Function imkInit Lib "KNIFE" (ByVal ColorDepth%, ByVal NewWidth%, ByVal NewHeight%, ByVal NewColor&) As Integer
  49. Declare Function imkLoad Lib "KNIFE" (ByVal FileName$, ByVal ImageNum%, ByVal Fmt%) As Integer
  50. Declare Function imkLoadPal Lib "KNIFE" (ByVal FileName$, ByVal ImageNum%, ByVal Fmt%) As Integer
  51. Declare Function imkMaskCopy Lib "KNIFE" (FromPicBuf As Control, ToPicBuf As Control, MaskPicBuf As Control) As Integer
  52. Declare Function imkMatrixFilter Lib "KNIFE" (ByVal FullPicture%, ByVal MatrixSize%, Matrix As Integer, ByVal MatrixScale%, ByVal MatrixNorm%, ByVal MatrixOffset%) As Integer
  53. Declare Function imkMirror Lib "KNIFE" (ByVal FullPicture%, ByVal BoolHoriz%, ByVal BoolVert%) As Integer
  54. Declare Function imkNegate Lib "KNIFE" (ByVal FullPicture%) As Integer
  55. Declare Function imkOptimizePal Lib "KNIFE" (Images As Any, ByVal ImgCount%, ByVal Colors%) As Integer
  56. Declare Function imkReduceColors Lib "KNIFE" (ByVal FullPicture%, ByVal Colors&, ByVal Optimize%, ByVal Dither%, ByVal NoBleed%) As Integer
  57. Declare Function imkRemapPal Lib "KNIFE" (ByVal FullPicture%, ByVal Palette%) As Integer
  58. Declare Function imkRotate Lib "KNIFE" (ByVal FullPicture%, ByVal Angle%, ByVal BackColor&) As Integer
  59. Declare Function imkSetPalColor Lib "KNIFE" (ByVal Palette%, ByVal Index%, ByVal VBcolor&) As Integer
  60. Declare Function imkSetPalette Lib "KNIFE" (ByVal Count%, Buffer As Long) As Integer
  61. Declare Function imkSharpen Lib "KNIFE" (ByVal FullPicture%, ByVal Sharpness%) As Integer
  62. Declare Function imkSoften Lib "KNIFE" (ByVal FullPicture%, ByVal Softness%) As Integer
  63. Declare Function imkTwipsToXCoord Lib "KNIFE" (hctl As Control, ByVal twips&) As Integer
  64. Declare Function imkTwipsToYCoord Lib "KNIFE" (hctl As Control, ByVal twips&) As Integer
  65. Declare Function imkVerify Lib "KNIFE" (ByVal FullPicture%) As Integer
  66. Declare Function imkXCoordToTwips Lib "KNIFE" (hctl As Control, ByVal XCoord%) As Long
  67. Declare Function imkYCoordToTwips Lib "KNIFE" (hctl As Control, ByVal YCoord%) As Long
  68.  
  69. Declare Sub imkAccessStoreDone Lib "KNIFE" ()
  70. Declare Sub imkAppendTiff Lib "KNIFE" (ByVal FileName$, ByVal Picture%, ByVal Compress%)
  71. Declare Sub imkGetPalette Lib "KNIFE" (ByVal FullPicture%, Buffer As Any)
  72. Declare Sub imkGetScanLine Lib "KNIFE" (ByVal FullPicture%, ByVal LineNo%, Buffer As Any)
  73. Declare Sub imkPutScanLine Lib "KNIFE" (ByVal FullPicture%, ByVal LineNo%, Buffer As Any)
  74. Declare Sub imkSetScreenPal Lib "KNIFE" (ByVal Palette%)
  75. Declare Sub imkStore Lib "KNIFE" (ByVal FileName$, ByVal FullPicture%, ByVal Fmt%, ByVal Compression%)
  76. Declare Sub imkStorePal Lib "KNIFE" (ByVal FileName$, ByVal Palette%, ByVal Fmt%)
  77.  
  78.