home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / PROGRAM / ENUMFONT.ZIP / ENUMFONT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-09-18  |  6.0 KB  |  244 lines
  1. form_enumfont
  2. EnumFonts Demo
  3. Form1
  4. Label1
  5.     Typefaces
  6. Label2
  7. Fonts
  8.     Lst_Faces
  9.     lst_fonts
  10.     menu_file
  11. &File
  12. menu_file_exit
  13. &Exit
  14.     menu_help
  15. &Help
  16. menu_help_about
  17. &About
  18. lst_fonts_Click
  19. Form_Click
  20. Form_LinkClose
  21. Form_LinkError
  22. LinkErr
  23. Form_LinkExecutel
  24. CmdStr
  25. Cancel
  26. Form_LinkOpen&
  27. @    Form_Load3
  28.     lpFaceLog
  29. LOGFONT@
  30. lpFaceMetric?
  31. TEXTMETRICP
  32.     nFaceType
  33.     lpFontLog
  34. lpFontMetricv
  35.     nFontType
  36. FaceCnt
  37. RWEnumFonts'
  38. Printer
  39. dummy
  40. typeface
  41. lfFaceName
  42. Fontcnt
  43. font\
  44. hFont\
  45. createFontIndirect
  46. selectobject7
  47.     form_maink
  48. currentx
  49. currenty=
  50. fontsize
  51. LogicalFacesJ
  52.     lst_faces_
  53. Command1_Click,
  54. cmd_OK_Click
  55.     test_form
  56. form_test_form8
  57. Lst_Faces_Click
  58. fntcnt
  59.     fontindex
  60.     listindex
  61. LogicalFonts
  62.     lst_Fonts
  63.     form_test
  64. faceStr
  65.     listcount
  66. lfItalicH
  67. lfUnderline6
  68. lfStrikeoutB
  69. lfWeight
  70. lfheight
  71. fontMetric
  72. FontMetriclogicalfonts
  73. tmHeight-
  74. tmItalic
  75. tmUnderline
  76. tmStrikeout
  77. tmWeight
  78. tmUnderlined
  79. tmStrukeout
  80. tmStrukout
  81. tmStruckout 
  82. TEXTCAPSL
  83. captionI
  84. GetDeviceCaps
  85. lbl_textcaps
  86. TC_OP_CHARACTERO
  87. TC_OP_STROKE
  88. TC_CP_STROKEx
  89. TC_CR_90'
  90.     TC_CR_ANY;
  91. TC_SF_X_YINDEP
  92. TC_SA_DOUBLE
  93. TC_SA_INTEGER
  94. TC_SA_CONTIN
  95. TC_EA_DOUBLE
  96. TC_IA_ABLE
  97. TC_UA_ABLE
  98. TC_SO_ABLE
  99. TC_RA_ABLE=
  100. TC_VA_ABLE
  101. TC_RESERVED
  102. textcapslbl_textcaps
  103. DevTextCapsX
  104. lst_Caps
  105. CharRotAbility
  106. DeviceTextCapsT
  107. hPrinter
  108.     form_text
  109. Lst_caps_Click
  110. TECHNOLOGY
  111. DT_RASPRINTER
  112. DT_CHARSTREAMc
  113. HORZSIZE
  114. VERTSIZE@
  115. HORZRES
  116. VERTRES
  117. LOGPIXELSX
  118. LOGPIXELSY
  119.     BITSPIXEL
  120. PLANES`
  121. NUMBRUSHESk
  122. NUMPENSw
  123. NUMFONTS3
  124.     NUMCOLORS
  125. ASPECTX
  126. ASPECTY
  127. ASPECTXY
  128. CLIPCAPS
  129. SIZEPALETTE
  130. DEFAULT_PITCH
  131. FIXED_PITCH
  132. VARIABLE_PITCHM
  133. lfPitchAndFamily
  134. FF_DECORATIVE
  135. FF_DONTCARE4
  136.     FF_MODERN{
  137. FF_ROMAN
  138.     FF_SCRIPT
  139. FF_SWISSq
  140. menu_file_exit_Click
  141. menu_help_about_Click
  142.     Developed
  143. Telelinkn
  144. Systems
  145. Sacramento
  146. California
  147. msg2/    
  148. msg3~    
  149. VBEnumFonts
  150. menu_file_ClickZ    
  151. FontType
  152. Rightsd    
  153. Reservede
  154. tmwidth
  155. LogicalfontC
  156. lfwidth
  157.     lfItalics9    
  158. lfUnderlined
  159. lfStruckout
  160. form_EnumfontP    
  161. crlf$    
  162. lfFaces
  163. lfFaceF    
  164.     lfFaceCnt
  165. nFaceCnt
  166. Label1_Clickr    
  167. Label2_Click
  168. nFontcnt
  169. lfFonts
  170. tmFont
  171.     nTypeFont
  172. lfFont
  173. fmFontx
  174. Points
  175. SetMapMode
  176. nMapMode
  177. GetMapMode
  178. MM_TEXT
  179. MM_LOMETRIC
  180. MM_HIMETRIC
  181. MM_LOENGLISH
  182. MM_HIENGLISH
  183. MM_TWIPS
  184. MM_ISOTROPIC
  185. MM_ANISOTROPIC
  186. oldMapMode
  187.     tmItalics
  188. tmStrickedout
  189. tmPitchAndFamily
  190. FaceName
  191. tmDigitizedAspectX
  192. pixels_per_inch
  193. Form_Resize
  194.  Copyright (C) Telelink Systems 1991
  195.  Phone:  (916) 332-26711
  196.  Fax:
  197.  (916) 332-2529
  198.  Cserve: 70523,25744    
  199. Form_Load
  200. -- Find how many typefaces are there
  201. -- Prepare an array for the typefacesy
  202. -- Fill the array -- one entry for each typeface
  203. -- Add the typeface names to the list box
  204. -- retrieve face namea
  205. -- trim the fixed string into a variable string
  206. -- point to first typeface -- this will trigger a click eventc
  207.    for the lst_faces objectt
  208. cmd_OK_Click
  209. Lst_Faces_Click
  210. -- clear font list
  211. -- find how many fonts in this typefaceg
  212. -- Prepare 3 arrays to receive font information
  213. -- change mapping mode to pixels, fill arrays, and restore mapping mode,
  214. -- find pixels per inch for printer(
  215. -- reflect the information into the font list    
  216. -- Font size, in points, is twips divided by 20y
  217. -- add italic/bold/etc
  218.  Italic"
  219.  Underline
  220.  Strikeout
  221.  Bold"
  222. -- font pitch/
  223.  Fixed
  224. -- What kind of font?r
  225. , Decorative
  226. , Dontcare
  227. , Modern
  228. , Roman"
  229. , Script
  230. , Swiss"
  231. , FF_Error
  232. -- font type
  233.  GDI Stroke"
  234.  GDI Raster"
  235.  Device Stroke
  236.  Device Raster
  237. menu_file_exit_Click
  238. menu_help_about_Click
  239. Copyright (C) Telelink Systems 1991"
  240. Phone:  (916) 332-2671
  241. Fax:    (916) 332-2529
  242. Cserve:  70523,2574
  243. Form_Resize
  244.