home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / ROTFON.ZIP / ROTFONT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-12-24  |  6.6 KB  |  177 lines
  1. Form1
  2. RotFont
  3. Form1
  4. Screen
  5. Printer
  6. CreateFont
  7. LOGFONT
  8. lfHeight
  9. lfWidth
  10. lfEscapement3
  11. lfOrientation
  12. lfWeight
  13. lfItalicy
  14. lfUnderline&
  15. lfStrikeOutt
  16.     lfCharSetE
  17. lfOutPrecision;
  18. lfClipPrecisione
  19.     lfQuality
  20. lfPitchAndFamily
  21. lfFaceName
  22. LF_FACESIZE
  23. CreateFontIndirect
  24.     lpLogFont
  25.     GetObject
  26. hObject
  27. nCount{
  28. lpObjectQ
  29. DeleteObject
  30. SelectObject2
  31. Form_Click
  32. ByValW
  33. CurrentX
  34. CurrentY
  35. hFontX
  36. ANSI_CHARSET
  37. SYMBOL_CHARSETZ
  38. SHIFTJIS_CHARSET
  39. OEM_CHARSET
  40. OUT_DEFAULT_PRECIS
  41. OUT_STRING_PRECIS
  42. OUT_CHARACTER_PRECIS|
  43. OUT_STROKE_PRECIS
  44. CLIP_DEFAULT_PRECIS1
  45. CLIP_CHARACTER_PRECISD
  46. CLIP_STROKE_PRECISq
  47. DEFAULT_QUALITY~
  48. DRAFT_QUALITY
  49. PROOF_QUALITY
  50. DEFAULT_PITCH)
  51. FIXED_PITCH
  52. VARIABLE_PITCH
  53. FF_DONTCARE
  54. FF_ROMAN
  55. FF_SWISS
  56.     FF_MODERN
  57.     FF_SCRIPT
  58. FF_DECORATIVE
  59. FW_DONTCARE
  60. FW_THIN+
  61. FW_EXTRALIGHT
  62. FW_LIGHT
  63.     FW_NORMAL
  64.     FW_MEDIUM`
  65. FW_SEMIBOLDk
  66. FW_BOLD
  67. FW_EXTRABOLD
  68. FW_HEAVYW
  69. FW_ULTRALIGHT
  70. FW_REGULAR
  71. FW_DEMIBOLD
  72. FW_ULTRABOLD
  73. FW_BLACK
  74. Screen
  75.     FontCounto
  76. FontName
  77. FontsK
  78. ScreenFontsJ
  79. hFontOld
  80. Command1_ClickQ
  81. Printer
  82. NextFont_Click
  83. Start_Click
  84. ShowFont
  85. Ende_ClickD
  86. GetDeviceCaps
  87. nIndex
  88. LOGPIXELSX
  89. TEXTCAPS
  90.     TC_CR_ANY
  91. TC_SA_CONTIN7
  92. Caps_Click
  93. TC_EA_DOUBLE
  94. TC_RA_ABLE
  95. TC_VA_ABLE
  96. Scrn_Click
  97. @    Prt_Click
  98. @    Fin_Click
  99. thenMsgBox
  100. scalewidth
  101. MousePointer
  102. Enabled
  103. @    Form_Load
  104. Hello
  105. unless
  106.  From WINAPI.TXT:-
  107. Caps_Click
  108.  Can screen(-driver) do character rotation?e
  109.  Screen can do character rotation"u
  110.  Screen cannot do character rotationu
  111.  Can printer(-driver) do character rotation?
  112.  Printer can do character rotationu
  113.  Printer cannot do character rotation"u
  114. Scrn_Click
  115.  Function CreateFont has 14 parameters (no other Windows function has that many)
  116.  For further details see Windows Programmer's Reference, Vol1, pg 4-48
  117.  Char height
  118.  Char width, use default**
  119.  elevation of textline
  120.  Char Orientation, not used here**
  121.  Font weight (0..1000)
  122.  Italic (if non-zero)0
  123.  Underline (if non-zero)
  124.  Strike out (if non-zero)
  125.  Character set 0 = ANSI, 255 = OEM
  126.  Output precision, use default**
  127.  Clipping precision, use default**
  128.  Output quality, use default**
  129.  Pitch and family, use default**
  130. Courier"
  131.  Fontnamed
  132. ** (unless you want to do some fine tuning)
  133.  The following code shows all screen fonts on your form,
  134.  Not all fonts are available for rotationa
  135. Font #
  136.     Test with 
  137.  Some fonts may have shown up more than once due to theo
  138.  way, Windows lists the fonts.
  139.  A more sophisticated method to find out, which fonts are available
  140.  for rotation is given in the MSKB (Q72021)c
  141. Prt_Click
  142.  Can printer(-driver) do character rotation? 
  143. Current printer is not reported"
  144. to do character rotation
  145. Try it anyway?
  146.  Function CreateFont has 14 parameters (no other Windows function has that many)
  147.  For further details see Windows Programmer's Reference, Vol1, pg 4-48
  148.  Comments in WINAPI.TXT give also some help
  149.  Char height
  150.  Char width, use default**
  151.  elevation of textline
  152.  Char Orientation, not used here**
  153.  Font weight (0..1000)
  154.  Italic (if non-zero)0
  155.  Underline (if non-zero)
  156.  Strike out (if non-zero)
  157.  Character set 0 = ANSI, 255 = OEM
  158.  Output precision, use default**
  159.  Clipping precision, use default**
  160.  Output quality, use default**
  161.  Pitch and family, use default**
  162. Courier"
  163.  Fontnamed
  164. ** (unless you want to do some fine tuning) 
  165.  The following code prints all fonts of the current printer
  166.  Not all fonts are available for rotations
  167.  Printer Font #"
  168.       Test-Text 
  169.  A more sophisticated method to find out which fonts are available
  170.  for rotation is given in the MSKB (Q72021)h
  171. Fin_Click
  172. Form_Load
  173. Hello
  174. Hope it helps!
  175. Merry Christmas and a Happy New Year
  176. from Fredi Egger [100014,34], Switzerland"
  177.