form_enumfont
EnumFonts Demo
Form1
Label1
	Typefaces
Label2
Fonts
	Lst_Faces
	lst_fonts
	menu_file
&File
menu_file_exit
&Exit
	menu_help
&Help
menu_help_about
&About
lst_fonts_Click
Form_Click
Form_LinkClose
Form_LinkError
LinkErr
Form_LinkExecutel
CmdStr
Cancel
Form_LinkOpen&
@	Form_Load3
	lpFaceLog
LOGFONT@
lpFaceMetric?
TEXTMETRICP
	nFaceType
	lpFontLog
lpFontMetricv
	nFontType
FaceCnt
RWEnumFonts'
Printer
dummy
typeface
lfFaceName
Fontcnt
font\
hFont\
createFontIndirect
selectobject7
	form_maink
currentx
currenty=
fontsize
LogicalFacesJ
	lst_faces_
Command1_Click,
cmd_OK_Click
	test_form
form_test_form8
Lst_Faces_Click
fntcnt
	fontindex
	listindex
LogicalFonts
	lst_Fonts
	form_test
faceStr
	listcount
lfItalicH
lfUnderline6
lfStrikeoutB
lfWeight
lfheight
fontMetric
FontMetriclogicalfonts
tmHeight-
tmItalic
tmUnderline
tmStrikeout
tmWeight
tmUnderlined
tmStrukeout
tmStrukout
tmStruckout 
TEXTCAPSL
captionI
GetDeviceCaps
lbl_textcaps
TC_OP_CHARACTERO
TC_OP_STROKE
TC_CP_STROKEx
TC_CR_90'
	TC_CR_ANY;
TC_SF_X_YINDEP
TC_SA_DOUBLE
TC_SA_INTEGER
TC_SA_CONTIN
TC_EA_DOUBLE
TC_IA_ABLE
TC_UA_ABLE
TC_SO_ABLE
TC_RA_ABLE=
TC_VA_ABLE
TC_RESERVED
textcapslbl_textcaps
DevTextCapsX
lst_Caps
CharRotAbility
DeviceTextCapsT
hPrinter
	form_text
Lst_caps_Click
TECHNOLOGY
DT_RASPRINTER
DT_CHARSTREAMc
HORZSIZE
VERTSIZE@
HORZRES
VERTRES
LOGPIXELSX
LOGPIXELSY
	BITSPIXEL
PLANES`
NUMBRUSHESk
NUMPENSw
NUMFONTS3
	NUMCOLORS
ASPECTX
ASPECTY
ASPECTXY
CLIPCAPS
SIZEPALETTE
DEFAULT_PITCH
FIXED_PITCH
VARIABLE_PITCHM
lfPitchAndFamily
FF_DECORATIVE
FF_DONTCARE4
	FF_MODERN{
FF_ROMAN
	FF_SCRIPT
FF_SWISSq
menu_file_exit_Click
menu_help_about_Click
	Developed
Telelinkn
Systems
Sacramento
California
msg2/	
msg3~	
VBEnumFonts
menu_file_ClickZ	
FontType
Rightsd	
Reservede
tmwidth
LogicalfontC
lfwidth
	lfItalics9	
lfUnderlined
lfStruckout
form_EnumfontP	
crlf$	
lfFaces
lfFaceF	
	lfFaceCnt
nFaceCnt
Label1_Clickr	
Label2_Click
nFontcnt
lfFonts
tmFont
	nTypeFont
lfFont
fmFontx
Points
SetMapMode
nMapMode
GetMapMode
MM_TEXT
MM_LOMETRIC
MM_HIMETRIC
MM_LOENGLISH
MM_HIENGLISH
MM_TWIPS
MM_ISOTROPIC
MM_ANISOTROPIC
oldMapMode
	tmItalics
tmStrickedout
tmPitchAndFamily
FaceName
tmDigitizedAspectX
pixels_per_inch
Form_Resize
 Copyright (C) Telelink Systems 1991
 Phone:  (916) 332-26711
 Fax:
 (916) 332-2529
 Cserve: 70523,25744	
Form_Load
-- Find how many typefaces are there
-- Prepare an array for the typefacesy
-- Fill the array -- one entry for each typeface
-- Add the typeface names to the list box
-- retrieve face namea
-- trim the fixed string into a variable string
-- point to first typeface -- this will trigger a click eventc
   for the lst_faces objectt
cmd_OK_Click
Lst_Faces_Click
-- clear font list
-- find how many fonts in this typefaceg
-- Prepare 3 arrays to receive font information
-- change mapping mode to pixels, fill arrays, and restore mapping mode,
-- find pixels per inch for printer(
-- reflect the information into the font list	
-- Font size, in points, is twips divided by 20y
-- add italic/bold/etc
 Italic"
 Underline
 Strikeout
 Bold"
-- font pitch/
 Fixed
-- What kind of font?r
, Decorative
, Dontcare
, Modern
, Roman"
, Script
, Swiss"
, FF_Error
-- font type
 GDI Stroke"
 GDI Raster"
 Device Stroke
 Device Raster
menu_file_exit_Click
menu_help_about_Click
Copyright (C) Telelink Systems 1991"
Phone:  (916) 332-2671
Fax:    (916) 332-2529
Cserve:  70523,2574
Form_Resize