home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / 3dfxplus / textout.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1996-11-20  |  2.4 KB  |  47 lines
  1. VERSION 2.00
  2. Begin Form TextOut 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "SuperTextOut Demo"
  5.    ClientHeight    =   4740
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7365
  9.    Height          =   5145
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4740
  15.    ScaleWidth      =   7365
  16.    Top             =   1140
  17.    Width           =   7485
  18. Sub Form_Load ()
  19.     ScreenCenterWindow (Me.hWnd)
  20.     Window3Dfx Me.hWnd
  21.     Screen.MousePointer = 0
  22.     'TextOut3Drotate samples are in Paint event
  23. End Sub
  24. Sub Form_Paint ()
  25.     Draw3DWindowBox Me.hWnd, 3, "SunkenDouble"
  26.     SuperTextOut Me.hDC, 20, 100, "A sample string!", "Arial", "bold", "raised", "left", 12, QBColor(4), 45
  27.     SuperTextOut Me.hDC, 140, 240, "Another sample string!", "Times New Roman", "bolditalic", "sunken", "left", 16, QBColor(1), 90
  28.     SuperTextOut Me.hDC, 250, 40, "Displays normal text too!", "Times New Roman", "bold", "plain", "left", 16, QBColor(0), 0
  29.     SuperTextOut Me.hDC, 250, 70, "Raised Letter Effect!", "Times New Roman", "bold", "raised", "left", 16, QBColor(0), 0
  30.     SuperTextOut Me.hDC, 250, 100, "Sunken Letter Effect!", "Times New Roman", "bold", "sunken", "left", 16, QBColor(0), 0
  31.     SuperTextOut Me.hDC, 200, 20, "Horizontal Effects are EASY!", "Times New Roman", "bold", "raised", "left", 14, QBColor(1), 270
  32.     SuperTextOut Me.hDC, 480, 180, "And UpsideDown Text Too!", "Arial", "bold", "plain", "left", 14, QBColor(1), 180
  33.     HorzCenter% = (Me.Width / 2) / Screen.TwipsPerPixelX
  34.     'VertCenter% = (Me.Height / 2) / Screen.TwipsPerPixelY
  35.     SuperTextOut Me.hDC, HorzCenter%, 270, "All done with SuperTextOut!", "Arial", "bold", "raised", "center", 18, QBColor(2), 0
  36.     OldScale% = Me.ScaleMode
  37.     OldForeColor& = Me.ForeColor
  38.     Me.ScaleMode = 3
  39.     Me.ForeColor = QBColor(15)
  40.     Me.Line (340, 180)-(340, 260)
  41.     Me.ForeColor = OldForeColor&
  42.     Me.ScaleMode = OldScale%
  43.     SuperTextOut Me.hDC, 340, 190, "Left Aligned", "Arial", "bold", "plain", "left", 12, QBColor(4), 0
  44.     SuperTextOut Me.hDC, 340, 210, "Center Aligned", "Arial", "bold", "plain", "center", 12, QBColor(4), 0
  45.     SuperTextOut Me.hDC, 340, 230, "Right Aligned", "Arial", "bold", "plain", "right", 12, QBColor(4), 0
  46. End Sub
  47.