home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
fontro
/
font.gbl
< prev
next >
Wrap
Text File
|
1991-11-21
|
4KB
|
107 lines
DefInt A-Z
' Logical Font
Global Const LF_FACESIZE = 32
Type LOGFONT
lfHeight As Integer
lfWidth As Integer
lfEscapement As Integer
lfOrientation As Integer
lfWeight As Integer
lfItalic As String * 1
lfUnderline As String * 1
lfStrikeOut As String * 1
lfCharSet As String * 1
lfOutPrecision As String * 1
lfClipPrecision As String * 1
lfQuality As String * 1
lfPitchAndFamily As String * 1
lfFaceName As String * LF_FACESIZE
End Type
Global Const OUT_DEFAULT_PRECIS = 0
Global Const OUT_STRING_PRECIS = 1
Global Const OUT_CHARACTER_PRECIS = 2
Global Const OUT_STROKE_PRECIS = 3
Global Const CLIP_DEFAULT_PRECIS = 0
Global Const CLIP_CHARACTER_PRECIS = 1
Global Const CLIP_STROKE_PRECIS = 2
Global Const DEFAULT_QUALITY = 0
Global Const DRAFT_QUALITY = 1
Global Const PROOF_QUALITY = 2
Global Const DEFAULT_PITCH = 0
Global Const FIXED_PITCH = 1
Global Const VARIABLE_PITCH = 2
Global Const ANSI_CHARSET = 0
Global Const SYMBOL_CHARSET = 2
Global Const SHIFTJIS_CHARSET = 128
Global Const OEM_CHARSET = 255
' Font Families
'
Global Const FF_DONTCARE = 0 ' Don't care or don't know.
Global Const FF_ROMAN = 16 ' Variable stroke width, serifed.
' Times Roman, Century Schoolbook, etc.
Global Const FF_SWISS = 32 ' Variable stroke width, sans-serifed.
' Helvetica, Swiss, etc.
Global Const FF_MODERN = 48 ' Constant stroke width, serifed or sans-serifed.
' Pica, Elite, Courier, etc.
Global Const FF_SCRIPT = 64 ' Cursive, etc.
Global Const FF_DECORATIVE = 80 ' Old English, etc.
' Font Weights
Global Const FW_DONTCARE = 0
Global Const FW_THIN = 100
Global Const FW_EXTRALIGHT = 200
Global Const FW_LIGHT = 300
Global Const FW_NORMAL = 400
Global Const FW_MEDIUM = 500
Global Const FW_SEMIBOLD = 600
Global Const FW_BOLD = 700
Global Const FW_EXTRABOLD = 800
Global Const FW_HEAVY = 900
Global Const FW_ULTRALIGHT = FW_EXTRALIGHT
Global Const FW_REGULAR = FW_NORMAL
Global Const FW_DEMIBOLD = FW_SEMIBOLD
Global Const FW_ULTRABOLD = FW_EXTRABOLD
Global Const FW_BLACK = FW_HEAVY
Declare Function CreateFont% Lib "GDI" (ByVal H%, ByVal W%, ByVal E%, ByVal O%, ByVal W%, ByVal I%, ByVal U%, ByVal S%, ByVal C%, ByVal OP%, ByVal CP%, ByVal Q%, ByVal PAF%, ByVal F$)
Declare Function CreateFontIndirect Lib "GDI" (lpLogFont As LOGFONT) As Integer
Declare Function SelectObject Lib "GDI" (ByVal hDC%, ByVal Object%) As Integer
Declare Function TextOut Lib "GDI" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal Text$, ByVal nCount%) As Integer
Declare Sub DeleteObject Lib "GDI" (ByVal Object%)
Declare Function GetDeviceCaps Lib "GDI" (ByVal hDC%, ByVal nIndex%) As Integer
Declare Function GetTextFace Lib "GDI" (ByVal hDC As Integer, ByVal nCount As Integer, ByVal lpFacename As String) As Integer
Global Const TEXTCAPS = 34 ' Text capabilities
' Text Capabilities
Global Const TC_OP_CHARACTER = &H1 ' Can do OutputPrecision CHARACTER
Global Const TC_OP_STROKE = &H2 ' Can do OutputPrecision STROKE
Global Const TC_CP_STROKE = &H4 ' Can do ClipPrecision STROKE
Global Const TC_CR_90 = &H8 ' Can do CharRotAbility 90
Global Const TC_CR_ANY = &H10 ' Can do CharRotAbility ANY
Global Const TC_SF_X_YINDEP = &H20 ' Can do ScaleFreedom X_YINDEPENDENT
Global Const TC_SA_DOUBLE = &H40 ' Can do ScaleAbility DOUBLE
Global Const TC_SA_INTEGER = &H80 ' Can do ScaleAbility INTEGER
Global Const TC_SA_CONTIN = &H100 ' Can do ScaleAbility CONTINUOUS
Global Const TC_EA_DOUBLE = &H200 ' Can do EmboldenAbility DOUBLE
Global Const TC_IA_ABLE = &H400 ' Can do ItalisizeAbility ABLE
Global Const TC_UA_ABLE = &H800 ' Can do UnderlineAbility ABLE
Global Const TC_SO_ABLE = &H1000 ' Can do StrikeOutAbility ABLE
Global Const TC_RA_ABLE = &H2000 ' Can do RasterFontAble ABLE
Global Const TC_VA_ABLE = &H4000 ' Can do VectorFontAble ABLE
Global Const TC_RESERVED = &H8000