home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / leadtools / ocx32.lt / DEMOS.BAS < prev    next >
Encoding:
BASIC Source File  |  1998-06-17  |  2.5 KB  |  80 lines
  1. Attribute VB_Name = "Module1"
  2. Global Const RESIZE_TYPE = 0
  3. Global Const DETECT_TYPE = 1
  4. Global Const STAMP_TYPE = 2
  5. Global Const RESIZEREGION_TYPE = 3
  6.  
  7. Global Const PAINT_AUTO = 0
  8. Global Const PAINT_FIXED = 1
  9. Global Const PAINT_NETSCAPE = 2
  10.  
  11. Global Const SO_LEAD = 0
  12. Global Const SO_JFIF = 1
  13. Global Const SO_JTIF = 2
  14. Global Const SO_AWD = 3
  15. Global Const SO_CALS = 4
  16. Global Const SO_CUR = 5
  17. Global Const SO_CCITT = 6
  18. Global Const SO_DIC_GRAY = 7
  19. Global Const SO_DIC_COLOR = 8
  20. Global Const SO_EXIF = 9
  21. Global Const SO_FAX = 10
  22. Global Const SO_EPS = 11
  23. Global Const SO_FPX = 12
  24. Global Const SO_GEM = 13
  25. Global Const SO_GIF = 14
  26. Global Const SO_ICO = 15
  27. Global Const SO_IOCA = 16
  28. Global Const SO_PCT = 17
  29. Global Const SO_MAC = 18
  30. Global Const SO_MSP = 19
  31. Global Const SO_OS2 = 20
  32. Global Const SO_PCX = 21
  33. Global Const SO_PNG = 22
  34. Global Const SO_PSD = 23
  35. Global Const SO_RAS = 24
  36. Global Const SO_TGA = 25
  37. Global Const SO_TIF = 26
  38. Global Const SO_WBMP = 27
  39. Global Const SO_WBMP_RLE = 28
  40. Global Const SO_WFX = 29
  41. Global Const SO_WMF = 30
  42. Global Const SO_WPG = 31
  43. Global Const NUM_SAVE_TYPES = 32
  44. Global Const NUM_OPEN_TYPES = 23
  45.  
  46. Global Const QF_CUSTOM = 9
  47.  
  48. Global gDitheringType As Integer
  49. Global gBitonalScaling As Integer
  50. Global gPalette As Integer
  51. Global gUseNetscape As Boolean
  52. Global gNumChildren As Integer
  53. Global gInProcess As Integer
  54. Global gEndApp As Integer
  55. Global gLoadRepaint As Boolean
  56.  
  57. Public Const BITSPIXEL = 12
  58. Public Const PLANES = 14
  59.  
  60. Global Const IDM_TOOLNONE = 0
  61. Global Const IDM_TOOLRECT = 1
  62. Global Const IDM_TOOLELLIPSE = 2
  63. Global Const IDM_TOOLRNDRECT = 3
  64. Global Const IDM_TOOLFREEHAND = 4
  65.  
  66. Global Kids() As Variant
  67.  
  68. #If Win32 Then
  69. Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal aint As Long) As Long
  70. Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
  71. Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
  72. Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
  73. #Else
  74. Declare Function GetWindowText Lib "User" (ByVal hWnd As Integer, ByVal lpString As String, ByVal aint As Integer) As Integer
  75. Declare Function GetDeviceCaps Lib "GDI" (ByVal hdc As Integer, ByVal nIndex As Integer) As Integer
  76. Declare Function GetDC Lib "User" (ByVal hWnd As Integer) As Integer
  77. Declare Function ReleaseDC Lib "User" (ByVal hWnd As Integer, ByVal hdc As Integer) As Integer
  78. #End If
  79.  
  80.