home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / classlib / desaware / dwdevcap.cls < prev    next >
Encoding:
Text File  |  1996-04-05  |  19.7 KB  |  587 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "dwDevCaps"
  6. Attribute VB_Creatable = False
  7. Attribute VB_Exposed = True
  8. ' Desaware API Class library
  9. ' Copyright (c) 1996 by Desaware Inc.
  10. ' All rights reserved
  11.  
  12. Option Explicit
  13.  
  14. #If Win32 Then
  15. Private iHDC As Long
  16. #Else
  17. Private iHDC As Integer
  18. #End If
  19.  
  20. Private Const iDRIVERVERSION = 0      '  Device driver version
  21. Private Const iTECHNOLOGY = 2         '  Device classification
  22. Private Const iHORZSIZE = 4           '  Horizontal size in millimeters
  23. Private Const iVERTSIZE = 6           '  Vertical size in millimeters
  24. Private Const iHORZRES = 8            '  Horizontal width in pixels
  25. Private Const iVERTRES = 10           '  Vertical width in pixels
  26. Private Const iBITSPIXEL = 12         '  Number of bits per pixel
  27. Private Const iPLANES = 14            '  Number of planes
  28. Private Const iNUMBRUSHES = 16        '  Number of brushes the device has
  29. Private Const iNUMPENS = 18           '  Number of pens the device has
  30. Private Const iNUMMARKERS = 20        '  Number of markers the device has
  31. Private Const iNUMFONTS = 22          '  Number of fonts the device has
  32. Private Const iNUMCOLORS = 24         '  Number of colors the device supports
  33. Private Const iPDEVICESIZE = 26       '  Size required for device descriptor
  34. Private Const iCURVECAPS = 28         '  Curve capabilities
  35. Private Const iLINECAPS = 30          '  Line capabilities
  36. Private Const iPOLYGONALCAPS = 32     '  Polygonal capabilities
  37. Private Const iTEXTCAPS = 34          '  Text capabilities
  38. Private Const iCLIPCAPS = 36          '  Clipping capabilities
  39. Private Const iRASTERCAPS = 38        '  Bitblt capabilities
  40. Private Const iASPECTX = 40           '  Length of the X leg
  41. Private Const iASPECTY = 42           '  Length of the Y leg
  42. Private Const iASPECTXY = 44          '  Length of the hypotenuse
  43.  
  44. Private Const iLOGPIXELSX = 88        '  Logical pixels/inch in X
  45. Private Const iLOGPIXELSY = 90        '  Logical pixels/inch in Y
  46.  
  47. Private Const iSIZEPALETTE = 104      '  Number of entries in physical palette
  48. Private Const iNUMRESERVED = 106      '  Number of reserved entries in palette
  49. Private Const iCOLORRES = 108         '  Actual color resolution
  50.  
  51. '  Printing related DeviceCaps. These replace the appropriate Escapes
  52. Private Const iPHYSICALWIDTH = 110 '  Physical Width in device units
  53. Private Const iPHYSICALHEIGHT = 111 '  Physical Height in device units
  54. Private Const iPHYSICALOFFSETX = 112 '  Physical Printable Area x margin
  55. Private Const iPHYSICALOFFSETY = 113 '  Physical Printable Area y margin
  56. Private Const iSCALINGFACTORX = 114 '  Scaling factor x
  57. Private Const iSCALINGFACTORY = 115 '  Scaling factor y
  58.  
  59. '  Device Capability Masks:
  60.  
  61. '  Device Technologies
  62. Private Const iDT_PLOTTER = 0             '  Vector plotter
  63. Private Const iDT_RASDISPLAY = 1          '  Raster display
  64. Private Const iDT_RASPRINTER = 2          '  Raster printer
  65. Private Const iDT_RASCAMERA = 3           '  Raster camera
  66. Private Const iDT_CHARSTREAM = 4          '  Character-stream, PLP
  67. Private Const iDT_METAFILE = 5            '  Metafile, VDM
  68. Private Const iDT_DISPFILE = 6            '  Display-file
  69.  
  70. '  Curve Capabilities
  71. Private Const iCC_NONE = 0                '  Curves not supported
  72. Private Const iCC_CIRCLES = 1             '  Can do circles
  73. Private Const iCC_PIE = 2                 '  Can do pie wedges
  74. Private Const iCC_CHORD = 4               '  Can do chord arcs
  75. Private Const iCC_ELLIPSES = 8            '  Can do ellipese
  76. Private Const iCC_WIDE = 16               '  Can do wide lines
  77. Private Const iCC_STYLED = 32             '  Can do styled lines
  78. Private Const iCC_WIDESTYLED = 64         '  Can do wide styled lines
  79. Private Const iCC_INTERIORS = 128 '  Can do interiors
  80. Private Const iCC_ROUNDRECT = 256 '
  81.  
  82. '  Line Capabilities
  83. Private Const iLC_NONE = 0                '  Lines not supported
  84. Private Const iLC_POLYLINE = 2            '  Can do polylines
  85. Private Const iLC_MARKER = 4              '  Can do markers
  86. Private Const iLC_POLYMARKER = 8          '  Can do polymarkers
  87. Private Const iLC_WIDE = 16               '  Can do wide lines
  88. Private Const iLC_STYLED = 32             '  Can do styled lines
  89. Private Const iLC_WIDESTYLED = 64         '  Can do wide styled lines
  90. Private Const iLC_INTERIORS = 128 '  Can do interiors
  91.  
  92. '  Polygonal Capabilities
  93. Private Const iPC_NONE = 0                '  Polygonals not supported
  94. Private Const iPC_POLYGON = 1             '  Can do polygons
  95. Private Const iPC_RECTANGLE = 2           '  Can do rectangles
  96. Private Const iPC_WINDPOLYGON = 4         '  Can do winding polygons
  97. Private Const iPC_TRAPEZOID = 4           '  Can do trapezoids
  98. Private Const iPC_SCANLINE = 8            '  Can do scanlines
  99. Private Const iPC_WIDE = 16               '  Can do wide borders
  100. Private Const iPC_STYLED = 32             '  Can do styled borders
  101. Private Const iPC_WIDESTYLED = 64         '  Can do wide styled borders
  102. Private Const iPC_INTERIORS = 128 '  Can do interiors
  103.  
  104. '  Polygonal Capabilities
  105. Private Const iCP_NONE = 0                '  No clipping of output
  106. Private Const iCP_RECTANGLE = 1           '  Output clipped to rects
  107. Private Const iCP_REGION = 2              '
  108.  
  109. '  Text Capabilities
  110. Private Const iTC_OP_CHARACTER = &H1              '  Can do OutputPrecision   CHARACTER
  111. Private Const iTC_OP_STROKE = &H2    '  Can do OutputPrecision   STROKE
  112. Private Const iTC_CP_STROKE = &H4                 '  Can do ClipPrecision     STROKE
  113. Private Const iTC_CR_90 = &H8                     '  Can do CharRotAbility    90
  114. Private Const iTC_CR_ANY = &H10                   '  Can do CharRotAbility    ANY
  115. Private Const iTC_SF_X_YINDEP = &H20              '  Can do ScaleFreedom      X_YINDEPENDENT
  116. Private Const iTC_SA_DOUBLE = &H40                '  Can do ScaleAbility      DOUBLE
  117. Private Const iTC_SA_INTEGER = &H80               '  Can do ScaleAbility      INTEGER
  118. Private Const iTC_SA_CONTIN = &H100               '  Can do ScaleAbility      CONTINUOUS
  119. Private Const iTC_EA_DOUBLE = &H200               '  Can do EmboldenAbility   DOUBLE
  120. Private Const iTC_IA_ABLE = &H400                 '  Can do ItalisizeAbility  ABLE
  121. Private Const iTC_UA_ABLE = &H800                 '  Can do UnderlineAbility  ABLE
  122. Private Const iTC_SO_ABLE = &H1000                '  Can do StrikeOutAbility  ABLE
  123. Private Const iTC_RA_ABLE = &H2000                '  Can do RasterFontAble    ABLE
  124. Private Const iTC_VA_ABLE = &H4000                '  Can do VectorFontAble    ABLE
  125. Private Const iTC_RESERVED = &H8000
  126. Private Const iTC_SCROLLBLT = &H10000             '  do text scroll with blt
  127.  
  128. '  Raster Capabilities
  129. Private Const iRC_NONE = 0
  130. Private Const iRC_BITBLT = 1                  '  Can do standard BLT.
  131. Private Const iRC_BANDING = 2                 '  Device requires banding support
  132. Private Const iRC_SCALING = 4                 '  Device requires scaling support
  133. Private Const iRC_BITMAP64 = 8                '  Device can support >64K bitmap
  134. Private Const iRC_GDI20_OUTPUT = &H10             '  has 2.0 output calls
  135. Private Const iRC_GDI20_STATE = &H20
  136. Private Const iRC_SAVEBITMAP = &H40
  137. Private Const iRC_DI_BITMAP = &H80                '  supports DIB to memory
  138. Private Const iRC_PALETTE = &H100                 '  supports a palette
  139. Private Const iRC_DIBTODEV = &H200                '  supports DIBitsToDevice
  140. Private Const iRC_BIGFONT = &H400                 '  supports >64K fonts
  141. Private Const iRC_STRETCHBLT = &H800              '  supports StretchBlt
  142. Private Const iRC_FLOODFILL = &H1000              '  supports FloodFill
  143. Private Const iRC_STRETCHDIB = &H2000             '  supports StretchDIBits
  144. Private Const iRC_OP_DX_OUTPUT = &H4000
  145. Private Const iRC_DEVBITS = &H8000
  146.  
  147. #If Win32 Then
  148. Private Declare Function GetDeviceCaps& Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long)
  149. Attribute GetDeviceCaps.VB_HelpID = 2551
  150. Attribute GetDeviceCaps.VB_Description = "Help available in Visual Basic Programmer's Guide to Win32 API CD ROM"
  151. #Else
  152. Private Declare Function GetDeviceCaps% Lib "gdi" (ByVal hDC%, ByVal nIndex%)
  153. #End If
  154.  
  155. ' Hold on to the device context handle
  156. Public Sub InitDevCaps(newHDC)
  157.     iHDC = newHDC
  158. End Sub
  159.  
  160. ' This is the general version, in case you want to get
  161. ' the capability with the constant number instead of
  162. ' just calling the property directly.
  163. Public Function GetCapability(cap As Long) As Long
  164.     GetCapability = GetDeviceCaps(iHDC, cap)
  165. End Function
  166.  
  167. Public Property Get DRIVERVERSION() As Long
  168.     DRIVERVERSION = GetDeviceCaps(iHDC, iDRIVERVERSION)
  169. End Property
  170.  
  171. Public Property Get DT_PLOTTER() As Long
  172.     DT_PLOTTER = GetDeviceCaps(iHDC, iDT_PLOTTER)
  173. End Property
  174.  
  175. Public Property Get TECHNOLOGY() As Long
  176.     TECHNOLOGY = GetDeviceCaps(iHDC, iTECHNOLOGY)
  177. End Property
  178.  
  179. Public Property Get HORZSIZE() As Long
  180.      HORZSIZE = GetDeviceCaps(iHDC, iHORZSIZE)
  181. End Property
  182.  
  183. Public Property Get VERTSIZE() As Long
  184.     VERTSIZE = GetDeviceCaps(iHDC, iVERTSIZE)
  185. End Property
  186.  
  187. Public Property Get HORZRES() As Long
  188.     HORZRES = GetDeviceCaps(iHDC, iHORZRES)
  189. End Property
  190.  
  191. Public Property Get VERTRES() As Long
  192.     VERTRES = GetDeviceCaps(iHDC, iVERTRES)
  193. End Property
  194.  
  195. Public Property Get BITSPIXEL() As Long
  196.     BITSPIXEL = GetDeviceCaps(iHDC, iBITSPIXEL)
  197. End Property
  198.  
  199. Public Property Get PLANES() As Long
  200.     PLANES = GetDeviceCaps(iHDC, iPLANES)
  201. End Property
  202.  
  203. Public Property Get NUMBRUSHES() As Long
  204.     NUMBRUSHES = GetDeviceCaps(iHDC, iNUMBRUSHES)
  205. End Property
  206.  
  207. Public Property Get NUMPENS() As Long
  208.     NUMPENS = GetDeviceCaps(iHDC, iNUMPENS)
  209. End Property
  210.  
  211. Public Property Get NUMMARKERS() As Long
  212.     NUMMARKERS = GetDeviceCaps(iHDC, iNUMMARKERS)
  213. End Property
  214.  
  215. Public Property Get NUMFONTS() As Long
  216.     NUMFONTS = GetDeviceCaps(iHDC, iNUMFONTS)
  217. End Property
  218.  
  219. Public Property Get NUMCOLORS() As Long
  220.     NUMCOLORS = GetDeviceCaps(iHDC, iNUMCOLORS)
  221. End Property
  222.  
  223. Public Property Get PDEVICESIZE() As Long
  224.     PDEVICESIZE = GetDeviceCaps(iHDC, iPDEVICESIZE)
  225. End Property
  226.  
  227. Public Property Get CURVECAPS() As Long
  228.     CURVECAPS = GetDeviceCaps(iHDC, iCURVECAPS)
  229. End Property
  230.  
  231. Public Property Get LINECAPS() As Long
  232.     LINECAPS = GetDeviceCaps(iHDC, iLINECAPS)
  233. End Property
  234.  
  235. Public Property Get POLYGONALCAPS() As Long
  236.     POLYGONALCAPS = GetDeviceCaps(iHDC, iPOLYGONALCAPS)
  237. End Property
  238.  
  239. Public Property Get TEXTCAPS() As Long
  240.     TEXTCAPS = GetDeviceCaps(iHDC, iTEXTCAPS)
  241. End Property
  242.  
  243. Public Property Get CLIPCAPS() As Long
  244.     CLIPCAPS = GetDeviceCaps(iHDC, iCLIPCAPS)
  245. End Property
  246.  
  247. Public Property Get RASTERCAPS() As Long
  248.     RASTERCAPS = GetDeviceCaps(iHDC, iRASTERCAPS)
  249. End Property
  250.  
  251. Public Property Get ASPECTX() As Long
  252.     ASPECTX = GetDeviceCaps(iHDC, iASPECTX)
  253. End Property
  254.  
  255. Public Property Get ASPECTY() As Long
  256.     ASPECTY = GetDeviceCaps(iHDC, iASPECTY)
  257. End Property
  258.  
  259. Public Property Get ASPECTXY() As Long
  260.     ASPECTXY = GetDeviceCaps(iHDC, iASPECTXY)
  261. End Property
  262.  
  263. Public Property Get LOGPIXELSX() As Long
  264.     LOGPIXELSX = GetDeviceCaps(iHDC, iLOGPIXELSX)
  265. End Property
  266.  
  267. Public Property Get LOGPIXELSY() As Long
  268.     LOGPIXELSY = GetDeviceCaps(iHDC, iLOGPIXELSY)
  269. End Property
  270.  
  271. Public Property Get SIZEPALETTE() As Long
  272.     SIZEPALETTE = GetDeviceCaps(iHDC, iSIZEPALETTE)
  273. End Property
  274.  
  275. Public Property Get NUMRESERVED() As Long
  276.     NUMRESERVED = GetDeviceCaps(iHDC, iNUMRESERVED)
  277. End Property
  278.  
  279. Public Property Get COLORRES() As Long
  280.     COLORRES = GetDeviceCaps(iHDC, iCOLORRES)
  281. End Property
  282.  
  283. Public Property Get PHYSICALWIDTH() As Long
  284.     PHYSICALWIDTH = GetDeviceCaps(iHDC, iPHYSICALWIDTH)
  285. End Property
  286.  
  287. Public Property Get PHYSICALHEIGHT() As Long
  288.     PHYSICALHEIGHT = GetDeviceCaps(iHDC, iPHYSICALHEIGHT)
  289. End Property
  290.  
  291. Public Property Get PHYSICALOFFSETX() As Long
  292.     PHYSICALOFFSETX = GetDeviceCaps(iHDC, iPHYSICALOFFSETX)
  293. End Property
  294.  
  295. Public Property Get PHYSICALOFFSETY() As Long
  296.     PHYSICALOFFSETY = GetDeviceCaps(iHDC, iPHYSICALOFFSETY)
  297. End Property
  298.  
  299. Public Property Get SCALINGFACTORX() As Long
  300.     SCALINGFACTORX = GetDeviceCaps(iHDC, iSCALINGFACTORX)
  301. End Property
  302.  
  303. Public Property Get SCALINGFACTORY() As Long
  304.     SCALINGFACTORY = GetDeviceCaps(iHDC, iSCALINGFACTORY)
  305. End Property
  306.  
  307. Public Property Get DT_RASDISPLAY() As Long
  308.     DT_RASDISPLAY = GetDeviceCaps(iHDC, iDT_RASDISPLAY)
  309. End Property
  310.  
  311. Public Property Get DT_RASPRINTER() As Long
  312.     DT_RASPRINTER = GetDeviceCaps(iHDC, iDT_RASPRINTER)
  313. End Property
  314.  
  315. Public Property Get DT_RASCAMERA() As Long
  316.     DT_RASCAMERA = GetDeviceCaps(iHDC, iDT_RASCAMERA)
  317. End Property
  318.  
  319. Public Property Get DT_CHARSTREAM() As Long
  320.     DT_CHARSTREAM = GetDeviceCaps(iHDC, iDT_CHARSTREAM)
  321. End Property
  322.  
  323. Public Property Get DT_METAFILE() As Long
  324.     DT_METAFILE = GetDeviceCaps(iHDC, iDT_METAFILE)
  325. End Property
  326.  
  327. Public Property Get DT_DISPFILE() As Long
  328.     DT_DISPFILE = GetDeviceCaps(iHDC, iDT_DISPFILE)
  329. End Property
  330.  
  331. Public Property Get CC_NONE() As Long
  332.     CC_NONE = GetDeviceCaps(iHDC, iCC_NONE)
  333. End Property
  334.  
  335. Public Property Get CC_CIRCLES() As Long
  336.     CC_CIRCLES = GetDeviceCaps(iHDC, iCC_CIRCLES)
  337. End Property
  338.  
  339. Public Property Get CC_PIE() As Long
  340.     CC_PIE = GetDeviceCaps(iHDC, iCC_PIE)
  341. End Property
  342.  
  343. Public Property Get CC_CHORD() As Long
  344.     CC_CHORD = GetDeviceCaps(iHDC, iCC_CHORD)
  345. End Property
  346.  
  347. Public Property Get CC_ELLIPSES() As Long
  348.     CC_ELLIPSES = GetDeviceCaps(iHDC, iCC_ELLIPSES)
  349. End Property
  350.  
  351. Public Property Get CC_WIDE() As Long
  352.     CC_WIDE = GetDeviceCaps(iHDC, iCC_WIDE)
  353. End Property
  354.  
  355. Public Property Get CC_STYLED() As Long
  356.     CC_STYLED = GetDeviceCaps(iHDC, iCC_STYLED)
  357. End Property
  358.  
  359. Public Property Get CC_WIDESTYLED() As Long
  360.     CC_WIDESTYLED = GetDeviceCaps(iHDC, iCC_WIDESTYLED)
  361. End Property
  362.  
  363. Public Property Get CC_INTERIORS() As Long
  364.     CC_INTERIORS = GetDeviceCaps(iHDC, iCC_INTERIORS)
  365. End Property
  366.  
  367. Public Property Get CC_ROUNDRECT() As Long
  368.     CC_ROUNDRECT = GetDeviceCaps(iHDC, iCC_ROUNDRECT)
  369. End Property
  370.  
  371. Public Property Get LC_NONE() As Long
  372.     LC_NONE = GetDeviceCaps(iHDC, iLC_NONE)
  373. End Property
  374.  
  375. Public Property Get LC_POLYLINE() As Long
  376.     LC_POLYLINE = GetDeviceCaps(iHDC, iLC_POLYLINE)
  377. End Property
  378.  
  379. Public Property Get LC_MARKER() As Long
  380.     LC_MARKER = GetDeviceCaps(iHDC, iLC_MARKER)
  381. End Property
  382.  
  383. Public Property Get LC_POLYMARKER() As Long
  384.     LC_POLYMARKER = GetDeviceCaps(iHDC, iLC_POLYMARKER)
  385. End Property
  386.  
  387. Public Property Get LC_WIDE() As Long
  388.     LC_WIDE = GetDeviceCaps(iHDC, iLC_WIDE)
  389. End Property
  390.  
  391. Public Property Get LC_STYLED() As Long
  392.     LC_STYLED = GetDeviceCaps(iHDC, iLC_STYLED)
  393. End Property
  394.  
  395. Public Property Get LC_WIDESTYLED() As Long
  396.     LC_WIDESTYLED = GetDeviceCaps(iHDC, iLC_WIDESTYLED)
  397. End Property
  398.  
  399. Public Property Get LC_INTERIORS() As Long
  400.     LC_INTERIORS = GetDeviceCaps(iHDC, iLC_INTERIORS)
  401. End Property
  402.  
  403. Public Property Get PC_NONE() As Long
  404.     PC_NONE = GetDeviceCaps(iHDC, iPC_NONE)
  405. End Property
  406.  
  407. Public Property Get PC_RECTANGLE() As Long
  408.     PC_RECTANGLE = GetDeviceCaps(iHDC, iPC_RECTANGLE)
  409. End Property
  410.  
  411. Public Property Get PC_WINDPOLYGON() As Long
  412.     PC_WINDPOLYGON = GetDeviceCaps(iHDC, iPC_WINDPOLYGON)
  413. End Property
  414.  
  415. Public Property Get PC_TRAPEZOID() As Long
  416.     PC_TRAPEZOID = GetDeviceCaps(iHDC, iPC_TRAPEZOID)
  417. End Property
  418.  
  419. Public Property Get PC_SCANLINE() As Long
  420.     PC_SCANLINE = GetDeviceCaps(iHDC, iPC_SCANLINE)
  421. End Property
  422.  
  423. Public Property Get PC_WIDE() As Long
  424.     PC_WIDE = GetDeviceCaps(iHDC, iPC_WIDE)
  425. End Property
  426.  
  427. Public Property Get PC_STYLED() As Long
  428.     PC_STYLED = GetDeviceCaps(iHDC, iPC_STYLED)
  429. End Property
  430.  
  431. Public Property Get PC_WIDESTYLED() As Long
  432.     PC_WIDESTYLED = GetDeviceCaps(iHDC, iPC_WIDESTYLED)
  433. End Property
  434.  
  435. Public Property Get PC_INTERIORS() As Long
  436.     PC_INTERIORS = GetDeviceCaps(iHDC, iPC_INTERIORS)
  437. End Property
  438.  
  439. Public Property Get CP_NONE() As Long
  440.     CP_NONE = GetDeviceCaps(iHDC, iCP_NONE)
  441. End Property
  442.  
  443. Public Property Get CP_RECTANGLE() As Long
  444.     CP_RECTANGLE = GetDeviceCaps(iHDC, iCP_RECTANGLE)
  445. End Property
  446.  
  447. Public Property Get CP_REGION() As Long
  448.     CP_REGION = GetDeviceCaps(iHDC, iCP_REGION)
  449. End Property
  450.  
  451. Public Property Get TC_OP_CHARACTER() As Long
  452.     TC_OP_CHARACTER = GetDeviceCaps(iHDC, iTC_OP_CHARACTER)
  453. End Property
  454.  
  455. Public Property Get TC_OP_STROKE() As Long
  456.     TC_OP_STROKE = GetDeviceCaps(iHDC, iTC_OP_STROKE)
  457. End Property
  458.  
  459. Public Property Get TC_CP_STROKE() As Long
  460.     TC_CP_STROKE = GetDeviceCaps(iHDC, iTC_CP_STROKE)
  461. End Property
  462.  
  463. Public Property Get TC_CR_90() As Long
  464.     TC_CR_90 = GetDeviceCaps(iHDC, iTC_CR_90)
  465. End Property
  466.  
  467. Public Property Get TC_CR_ANY() As Long
  468.     TC_CR_ANY = GetDeviceCaps(iHDC, iTC_CR_ANY)
  469. End Property
  470.  
  471. Public Property Get TC_SF_X_YINDEP() As Long
  472.     TC_SF_X_YINDEP = GetDeviceCaps(iHDC, iTC_SF_X_YINDEP)
  473. End Property
  474.  
  475. Public Property Get TC_SA_DOUBLE() As Long
  476.     TC_SA_DOUBLE = GetDeviceCaps(iHDC, iTC_SA_DOUBLE)
  477. End Property
  478.  
  479. Public Property Get TC_SA_INTEGER() As Long
  480.     TC_SA_INTEGER = GetDeviceCaps(iHDC, iTC_SA_INTEGER)
  481. End Property
  482.  
  483. Public Property Get TC_SA_CONTIN() As Long
  484.     TC_SA_CONTIN = GetDeviceCaps(iHDC, iTC_SA_CONTIN)
  485. End Property
  486.  
  487. Public Property Get TC_EA_DOUBLE() As Long
  488.     TC_EA_DOUBLE = GetDeviceCaps(iHDC, iTC_EA_DOUBLE)
  489. End Property
  490.  
  491. Public Property Get TC_IA_ABLE() As Long
  492.     TC_IA_ABLE = GetDeviceCaps(iHDC, iTC_IA_ABLE)
  493. End Property
  494.  
  495. Public Property Get TC_UA_ABLE() As Long
  496.     TC_UA_ABLE = GetDeviceCaps(iHDC, iTC_UA_ABLE)
  497. End Property
  498.  
  499. Public Property Get TC_SO_ABLE() As Long
  500.     TC_SO_ABLE = GetDeviceCaps(iHDC, iTC_SO_ABLE)
  501. End Property
  502.  
  503. Public Property Get TC_RA_ABLE() As Long
  504.     TC_RA_ABLE = GetDeviceCaps(iHDC, iTC_RA_ABLE)
  505. End Property
  506.  
  507. Public Property Get TC_VA_ABLE() As Long
  508.     TC_VA_ABLE = GetDeviceCaps(iHDC, iTC_VA_ABLE)
  509. End Property
  510.  
  511. Public Property Get TC_RESERVED() As Long
  512.     TC_RESERVED = GetDeviceCaps(iHDC, iTC_RESERVED)
  513. End Property
  514.  
  515. Public Property Get TC_SCROLLBLT() As Long
  516.     TC_SCROLLBLT = GetDeviceCaps(iHDC, iTC_SCROLLBLT)
  517. End Property
  518.  
  519. Public Property Get RC_NONE() As Long
  520.     RC_NONE = GetDeviceCaps(iHDC, iRC_NONE)
  521. End Property
  522.  
  523. Public Property Get RC_BITBLT() As Long
  524.     RC_BITBLT = GetDeviceCaps(iHDC, iRC_BITBLT)
  525. End Property
  526.  
  527. Public Property Get RC_BANDING() As Long
  528.     RC_BANDING = GetDeviceCaps(iHDC, iRC_BANDING)
  529. End Property
  530.  
  531. Public Property Get RC_SCALING() As Long
  532.     RC_SCALING = GetDeviceCaps(iHDC, iRC_SCALING)
  533. End Property
  534.  
  535. Public Property Get RC_BITMAP64() As Long
  536.     RC_BITMAP64 = GetDeviceCaps(iHDC, iRC_BITMAP64)
  537. End Property
  538.  
  539. Public Property Get RC_GDI20_OUTPUT() As Long
  540.     RC_GDI20_OUTPUT = GetDeviceCaps(iHDC, iRC_GDI20_OUTPUT)
  541. End Property
  542.  
  543. Public Property Get RC_GDI20_STATE() As Long
  544.     RC_GDI20_STATE = GetDeviceCaps(iHDC, iRC_GDI20_STATE)
  545. End Property
  546.  
  547. Public Property Get RC_SAVEBITMAP() As Long
  548.     RC_SAVEBITMAP = GetDeviceCaps(iHDC, iRC_SAVEBITMAP)
  549. End Property
  550.  
  551. Public Property Get RC_DI_BITMAP() As Long
  552.     RC_DI_BITMAP = GetDeviceCaps(iHDC, iRC_DI_BITMAP)
  553. End Property
  554.  
  555. Public Property Get RC_PALETTE() As Long
  556.     RC_PALETTE = GetDeviceCaps(iHDC, iRC_PALETTE)
  557. End Property
  558.  
  559. Public Property Get RC_DIBTODEV() As Long
  560.     RC_DIBTODEV = GetDeviceCaps(iHDC, iRC_DIBTODEV)
  561. End Property
  562.  
  563. Public Property Get RC_BIGFONT() As Long
  564.     RC_BIGFONT = GetDeviceCaps(iHDC, iRC_BIGFONT)
  565. End Property
  566.  
  567. Public Property Get RC_STRETCHBLT() As Long
  568.     RC_STRETCHBLT = GetDeviceCaps(iHDC, iRC_STRETCHBLT)
  569. End Property
  570.  
  571. Public Property Get RC_FLOODFILL() As Long
  572.     RC_FLOODFILL = GetDeviceCaps(iHDC, iRC_FLOODFILL)
  573. End Property
  574.  
  575. Public Property Get RC_STRETCHDIB() As Long
  576.     RC_STRETCHDIB = GetDeviceCaps(iHDC, iRC_STRETCHDIB)
  577. End Property
  578.  
  579. Public Property Get RC_OP_DX_OUTPUT() As Long
  580.     RC_OP_DX_OUTPUT = GetDeviceCaps(iHDC, iRC_OP_DX_OUTPUT)
  581. End Property
  582.  
  583. Public Property Get RC_DEVBITS() As Long
  584.     RC_DEVBITS = GetDeviceCaps(iHDC, iRC_DEVBITS)
  585. End Property
  586.  
  587.