home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / FONTRO / FONT.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1992-02-28  |  3.0 KB  |  93 lines
  1. Form1
  2. Form1
  3. Form1
  4. Label1
  5. Label2
  6. Command1
  7. Sideways Print Test: GO
  8. Command2
  9. Form_Click
  10. hFont]
  11. LOGFONT
  12. lfHeighti
  13. lfWidth
  14. lfEscapement
  15. lfOrientation
  16. lfWeight
  17.     FW_NORMAL
  18. lfItalic
  19. outprecision
  20. clipprecision?
  21. quality
  22. default
  23. lfPitchAndFamily
  24. lfFaceName
  25. CreateFontIndirect
  26. OldhFont
  27. SelectObject
  28. Form1
  29. DeleteObject
  30. hFond
  31. TextOut
  32. SomeTextV
  33. nChars
  34. CurrentX
  35. CurrentY
  36. nValue
  37. GetDeviceCapsy
  38. Picture1
  39. BitBlt4
  40. StretchBlt
  41. SRCCOPY=
  42. hOldFont
  43. Printer
  44. Result
  45. Command1_Click
  46. Label1
  47. TC_CR_90
  48.     TC_CR_ANY
  49. TEXTCAPS
  50. Caption
  51. Label2
  52. Command2_Click
  53. FW_ROMAN
  54. FW_SWISS1
  55.     FF_MODERN
  56. oldfont
  57. szFaceName
  58. GetTextFace
  59. retval
  60. FF_ROMANI
  61. FF_SWISS
  62.     lfQualityc
  63.     lfCharSet
  64. OEM_CHARSET
  65. VARIABLE_PITCH
  66. PROOF_QUALITY
  67. Command1_Click
  68. -- get Text capabilites for rotating characters
  69.  Funny Note: There's a POLYGONALCAPS capability which determines whether the device cann
  70.  do interiors.  I wonder if I can hire it to redecorate my place? 8-)r
  71. TEXTCAPS
  72. No Character Rotation is Available
  73. 90 Degree Character Rotation Available
  74. Any Degree Character Rotation Available"
  75. -- Note: at this point if it can't do CharRot's, then we should stop, but we'll blindlyy
  76.    forge ahead to see what happens.d
  77. -- 24 point size
  78. -- let Windows figure out the appropriate width based on the heightl
  79. -- rotate 270 degrees (bottom to top)
  80. -- normal character orientation (straight up)
  81. -- this is important!e
  82. Note: italic, underline, strikeout, charset, outprecision,
  83.  clipprecision, and quality are 0 (default)
  84. Modern
  85. -- Windows' "Modern" fontr
  86. -- get the handle to the font we specify
  87. -- now let's select it to our current Printer hDC 
  88. -- let's test it out!t
  89. This is a test of sideways text 1234567890."
  90. Print Test 1234567890"u
  91. -- don't forget to delete the object
  92. Command2_Click
  93.