home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / i / ivb92b.zip / GPRTINFO.BAS next >
BASIC Source File  |  1992-09-17  |  1KB  |  48 lines
  1. Declare Function GetDeviceCaps Lib "GDI" (ByVal hDC As Integer, ByVal nIndex As Integer) As Integer
  2.  
  3. Global Const TRUE = -1
  4. Global Const FALSE = 0
  5.  
  6. Declare Function Escape Lib "GDI" (ByVal hDC As Integer, ByVal nEscape As Integer, ByVal nCount As Integer, lplnData As Any, lpOutData As Any) As Integer
  7.  
  8. Global Const GETPHYSPAGESIZE = 12
  9. Global Const GETSETPRINTORIENT = 30
  10. Global Const SP_ERROR = -1 'Miscellaneous constant
  11. Global Const NULL = 0      'Miscellaneous constant
  12.  
  13. '  Logical pixels/inch in X
  14. Global Const LOGPIXELSX = 88
  15. '  Logical pixels/inch in Y
  16. Global Const LOGPIXELSY = 90
  17.  
  18. Type POINTAPI
  19.     X As Integer
  20.     Y As Integer
  21. End Type
  22.  
  23. Type TEXTMETRIC
  24.     tmHeight As Integer
  25.     tmAscent As Integer
  26.     tmDescent As Integer
  27.     tmInternalLeading As Integer
  28.     tmExternalLeading As Integer
  29.     tmAveCharWidth As Integer
  30.     tmMaxCharWidth As Integer
  31.     tmWeight As Integer
  32.     tmItalic As String * 1
  33.     tmUnderlined As String * 1
  34.     tmStruckOut As String * 1
  35.     tmFirstChar As String * 1
  36.     tmLastChar As String * 1
  37.     tmDefaultChar As String * 1
  38.     tmBreakChar As String * 1
  39.     tmPitchAndFamily As String * 1
  40.     tmCharSet As String * 1
  41.     tmOverhang As Integer
  42.     tmDigitizedAspectX As Integer
  43.     tmDigitizedAspectY As Integer
  44. End Type
  45.  
  46. Declare Function GetTextMetrics Lib "GDI" (ByVal hDC As Integer, lpMetrics As TEXTMETRIC) As Integer
  47.  
  48.