home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / CorelDraw_20947012222007.psc / Artisan / APIFONT3.BAS next >
BASIC Source File  |  2003-09-19  |  5KB  |  194 lines
  1. Type FontLog
  2.      FontHeight As Integer
  3.      FontWidth As Integer
  4.      FontRotate As Integer
  5.      FontOrientation As Integer
  6.      FontWeight As Integer
  7.      FontItalic As String * 1
  8.      FontUnderLine As String * 1
  9.      FontStrikeThru As String * 1
  10.      FontCharSet As String * 1
  11.      FontOutPrecision As String * 1
  12.      FontClipPrecision As String * 1
  13.      FontQuality As String * 1
  14.      FontPitchFamily As String * 1
  15.      FontFaceName As String * 20
  16. End Type
  17. ''''''''
  18. Type TEXTMETRIC
  19.      tmHeight As Integer
  20.      tmAscent As Integer
  21.      tmDescent As Integer
  22.      tmInternalLeading As Integer
  23.      tmExternalLeading As Integer
  24.      tmAveCharWidth As Integer
  25.      tmMaxCharWidth As Integer
  26.      tmWeight As Integer
  27.      tmItalic As String * 1
  28.      tmUnderlined As String * 1
  29.      tmStruckOut As String * 1
  30.      tmFirstChar As String * 1
  31.      tmLastChar As String * 1
  32.      tmDefaultChar As String * 1
  33.      tmBreakChar As String * 1
  34.      tmPitchAndFamily As String * 1
  35.      tmCharSet As String * 1
  36.      tmOverhang As Integer
  37.      tmDigitizedAspectX As Integer
  38.      tmDigitizedAspectY As Integer
  39. End Type
  40. ''''''''
  41. Type POINTAPI
  42.      x As Integer
  43.      y As Integer
  44. End Type
  45. ''''''''
  46. Type GLYPHMETRICS
  47.      gmBlackBoxX As Integer
  48.      gmBlackBoxY As Integer
  49.      gmptGlyphOrigin As POINTAPI
  50.      gmCellIncX As Integer
  51.      gmCellIncY As Integer
  52. End Type
  53. ''''''''
  54. Type Fixed
  55.    fract As Integer
  56.    value As Integer
  57. End Type
  58. ''''''''
  59. Type Mat2
  60.    eM11 As Fixed
  61.    eM12 As Fixed
  62.    eM21 As Fixed
  63.    eM22 As Fixed
  64. End Type
  65. ''''''''
  66. Type POINTFX
  67.    x As Fixed
  68.    y As Fixed
  69. End Type
  70. ''''''''
  71. Type TTPOLYGONHEADER
  72.    cb As Long
  73.    dw As Long
  74.    pfxStart As POINTFX
  75. End Type
  76. ''''''''
  77. Type TTPOLYCURVE
  78.    wType As Integer
  79.    cpfx As Integer
  80.    pfx(0 To 2) As POINTFX
  81. End Type
  82. ''''''''
  83. Declare Function CreateFontIndirect% Lib "GDI" (lpFontLog As FontLog)
  84. Declare Function DeleteObject% Lib "GDI" (ByVal hObject%)
  85. Declare Function GetTextMetrics% Lib "GDI" (ByVal hDC%, lpMetrics As TEXTMETRIC)
  86. Declare Function GetTextFace% Lib "GDI" (ByVal hDC%, ByVal nCount%, ByVal lpFacename$)
  87. Declare Function GetGlyphOutLine& Lib "GDI" (ByVal hDC%, ByVal uChar%, ByVal fuFormat%, lpgm As GLYPHMETRICS, ByVal cbBuffer&, lppt As POINTAPI, lpmat2 As Mat2)
  88. Declare Function GlobalUnlock% Lib "Kernel" (ByVal hMem%)
  89. Declare Function GlobalFree% Lib "Kernel" (ByVal hMem%)
  90. Declare Function PolyPolygon% Lib "GDI" (ByVal hDC%, lpPoints As POINTAPI, lpPolyCounts%, ByVal nCount%)
  91. Declare Function SelectObject% Lib "GDI" (ByVal hDC%, ByVal hObject%)
  92. Declare Function SetTextAlign% Lib "GDI" (ByVal hDC%, ByVal wFlags%)
  93. Declare Function TextOut% Lib "GDI" (ByVal hDC%, ByVal x%, ByVal y%, ByVal lpString$, ByVal nCount%)
  94. '''''''''''''''''
  95. Global FontSelection%
  96. '''''''''''''''''
  97. Global Const ANSI_CHARSET = 0
  98.  
  99. Global Const CLIP_CHARACTER_PRECIS = 1
  100. Global Const CLIP_DEFAULT_PRECIS = 0
  101. Global Const CLIP_EMBEDDED = &H80
  102. Global Const CLIP_LH_ANGLES = &H10
  103. Global Const CLIP_STROKE_PRECIS = 2
  104. Global Const CLIP_TT_ALWAYS = &H20
  105.  
  106. Global Const DEFAULT_QUALITY = 0
  107. Global Const DEFAULT_CHARSET = 1
  108. Global Const DEFAULT_PITCH = 0
  109.  
  110. Global Const DEVICE_FONTTYPE = 2
  111.  
  112. Global Const DRAFT_QUALITY = 1
  113.  
  114. Global Const DT_TOP = &H0
  115. Global Const DT_LEFT = &H0
  116.  
  117. Global Const DT_BOTTOM = &H8
  118. Global Const DT_CALCRECT = &H400
  119. Global Const DT_CENTER = &H1
  120. Global Const DT_EXPANDTABS = &H40
  121. Global Const DT_EXTERNALLEADING = &H200
  122. Global Const DT_INTERNAL = &H1000
  123. Global Const DT_NOCLIP = &H100
  124. Global Const DT_NOPREFIX = &H800
  125. Global Const DT_RIGHT = &H2
  126. Global Const DT_SINGLELINE = &H20
  127. Global Const DT_TABSTOP = &H80
  128. Global Const DT_VCENTER = &H4
  129. Global Const DT_WORDBREAK = &H10
  130.  
  131. Global Const FIXED_PITCH = 1
  132.  
  133. Global Const FF_DECORATIVE = 80
  134. Global Const FF_DONTCARE = 0
  135. Global Const FF_MODERN = 48
  136. Global Const FF_ROMAN = 16
  137. Global Const FF_SCRIPT = 64
  138. Global Const FF_SWISS = 32
  139.  
  140. Global Const FW_BOLD = 700
  141. Global Const FW_DONTCARE = 0
  142. Global Const FW_EXTRABOLD = 800
  143. Global Const FW_EXTRALIGHT = 200
  144. Global Const FW_HEAVY = 900
  145. Global Const FW_LIGHT = 300
  146. Global Const FW_MEDIUM = 500
  147. Global Const FW_NORMAL = 400
  148. Global Const FW_SEMIBOLD = 600
  149. Global Const FW_THIN = 100
  150.  
  151. Global Const LF_FULLFACESIZE = 64
  152.  
  153. Global Const NTM_BOLD = &H20&
  154. Global Const NTM_ITALIC = &H1&
  155. Global Const NTM_REGULAR = &H40&
  156.  
  157. Global Const OEM_CHARSET = 255
  158.  
  159. Global Const OUT_CHARACTER_PRECIS = 2
  160. Global Const OUT_DEFAULT_PRECIS = 0
  161. Global Const OUT_DEVICE_PRECIS = 5
  162. Global Const OUT_RASTER_PRECIS = 6
  163. Global Const OUT_STRING_PRECIS = 1
  164. Global Const OUT_STROKE_PRECIS = 3
  165. Global Const OUT_TT_ONLY_PRECIS = 7
  166. Global Const OUT_TT_PRECIS = 4
  167.  
  168. Global Const PROOF_QUALITY = 2
  169.  
  170. Global Const RASTER_FONTTYPE = 1
  171.  
  172. Global Const SHIFTJIS_CHARSET = 128
  173.  
  174. Global Const SYMBOL_CHARSET = 2
  175.  
  176. Global Const TA_CENTER = 6
  177. Global Const TA_BOTTOM = 8
  178. Global Const TA_BASELINE = 24
  179. Global Const TA_LEFT = 0
  180. Global Const TA_NOUPDATECP = 0
  181. Global Const TA_RIGHT = 2
  182. Global Const TA_TOP = 0
  183. Global Const TA_UPDATECP = 1
  184.  
  185. Global Const TMPF_DEVICE = 8
  186. Global Const TMPF_FIXED_PITCH = 1
  187. Global Const TMPF_TRUETYPE = 4
  188. Global Const TMPF_VECTOR = 2
  189.  
  190. Global Const TRUETYPE_FONTTYPE = 4
  191.  
  192. Global Const VARIABLE_PITCH = 2
  193.  
  194.