home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / various / ctdemo / ct_text.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-26  |  12.0 KB  |  383 lines
  1. VERSION 2.00
  2. Begin Form w_text_demo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "ctTEXT (Enhanced Static Text) Demo"
  6.    ClientHeight    =   4785
  7.    ClientLeft      =   240
  8.    ClientTop       =   1275
  9.    ClientWidth     =   8250
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   0   'False
  12.    FontName        =   "Times New Roman"
  13.    FontSize        =   8.25
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   5310
  17.    Icon            =   CT_TEXT.FRX:0000
  18.    Left            =   180
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MDIChild        =   -1  'True
  22.    ScaleHeight     =   4785
  23.    ScaleWidth      =   8250
  24.    Top             =   810
  25.    Width           =   8370
  26.    Begin ComboBox cmb_align 
  27.       Height          =   300
  28.       Left            =   5280
  29.       Style           =   2  'Dropdown List
  30.       TabIndex        =   22
  31.       Top             =   1500
  32.       Width           =   2535
  33.    End
  34.    Begin ctCHECK ThreeD 
  35.       Alignment       =   0  'Left Justify
  36.       BackColor       =   &H00C0C0C0&
  37.       Caption         =   "Three Dimensional Text"
  38.       DisableColor    =   &H00808080&
  39.       ForeColor       =   &H00000000&
  40.       Height          =   255
  41.       Left            =   5340
  42.       PicStyle        =   2  'Style #2
  43.       ShowFocus       =   -1  'True
  44.       TabIndex        =   21
  45.       Top             =   3780
  46.       Value           =   -1  'True
  47.       Width           =   2415
  48.    End
  49.    Begin ComboBox cmb_bord 
  50.       Height          =   300
  51.       Left            =   5280
  52.       Style           =   2  'Dropdown List
  53.       TabIndex        =   20
  54.       Top             =   2700
  55.       Width           =   2535
  56.    End
  57.    Begin PictureBox Picture5 
  58.       Height          =   405
  59.       Left            =   6780
  60.       Picture         =   CT_TEXT.FRX:0302
  61.       ScaleHeight     =   375
  62.       ScaleWidth      =   225
  63.       TabIndex        =   18
  64.       Top             =   4290
  65.       Visible         =   0   'False
  66.       Width           =   255
  67.    End
  68.    Begin PictureBox Picture4 
  69.       Height          =   405
  70.       Left            =   6480
  71.       Picture         =   CT_TEXT.FRX:03F4
  72.       ScaleHeight     =   375
  73.       ScaleWidth      =   225
  74.       TabIndex        =   17
  75.       Top             =   4290
  76.       Visible         =   0   'False
  77.       Width           =   255
  78.    End
  79.    Begin PictureBox Picture3 
  80.       Height          =   405
  81.       Left            =   6180
  82.       Picture         =   CT_TEXT.FRX:0702
  83.       ScaleHeight     =   375
  84.       ScaleWidth      =   225
  85.       TabIndex        =   16
  86.       Top             =   4290
  87.       Visible         =   0   'False
  88.       Width           =   255
  89.    End
  90.    Begin PictureBox Picture2 
  91.       Height          =   405
  92.       Left            =   5880
  93.       Picture         =   CT_TEXT.FRX:097C
  94.       ScaleHeight     =   375
  95.       ScaleWidth      =   225
  96.       TabIndex        =   15
  97.       Top             =   4290
  98.       Visible         =   0   'False
  99.       Width           =   255
  100.    End
  101.    Begin PictureBox Picture1 
  102.       Height          =   405
  103.       Left            =   5520
  104.       Picture         =   CT_TEXT.FRX:0BF6
  105.       ScaleHeight     =   375
  106.       ScaleWidth      =   285
  107.       TabIndex        =   14
  108.       Top             =   4290
  109.       Visible         =   0   'False
  110.       Width           =   315
  111.    End
  112.    Begin ComboBox cmb_pics 
  113.       Height          =   300
  114.       Left            =   5280
  115.       Style           =   2  'Dropdown List
  116.       TabIndex        =   13
  117.       Top             =   3300
  118.       Width           =   2535
  119.    End
  120.    Begin ComboBox cmb_pict 
  121.       Height          =   300
  122.       Left            =   5280
  123.       Style           =   2  'Dropdown List
  124.       TabIndex        =   10
  125.       Top             =   2100
  126.       Width           =   2535
  127.    End
  128.    Begin ComboBox cmb_text 
  129.       Height          =   300
  130.       Left            =   5280
  131.       Style           =   2  'Dropdown List
  132.       TabIndex        =   5
  133.       Top             =   900
  134.       Width           =   2535
  135.    End
  136.    Begin VScrollBar VScroll1 
  137.       Height          =   2355
  138.       LargeChange     =   10
  139.       Left            =   4620
  140.       Max             =   360
  141.       TabIndex        =   4
  142.       Top             =   1530
  143.       Width           =   255
  144.    End
  145.    Begin CommandButton Command1 
  146.       Caption         =   "E&xit"
  147.       Height          =   375
  148.       Left            =   7140
  149.       TabIndex        =   3
  150.       Top             =   4230
  151.       Width           =   855
  152.    End
  153.    Begin TextBox Text1 
  154.       Height          =   285
  155.       Left            =   840
  156.       TabIndex        =   2
  157.       Text            =   "ctText Demonstration"
  158.       Top             =   4230
  159.       Width           =   3015
  160.    End
  161.    Begin ctTEXT ct_text 
  162.       Alignment       =   2  'Centered
  163.       BackColor       =   &H00C0C0C0&
  164.       BorderColor     =   &H00000000&
  165.       BorderType      =   3  'Lowered
  166.       Caption         =   "ctText Demonstration"
  167.       FontBold        =   -1  'True
  168.       FontItalic      =   0   'False
  169.       FontName        =   "Arial"
  170.       FontSize        =   18
  171.       FontStrikethru  =   0   'False
  172.       FontUnderline   =   0   'False
  173.       ForeColor       =   &H00FF0000&
  174.       Height          =   2355
  175.       Left            =   240
  176.       PicPosition     =   10  'Tile
  177.       Picture         =   CT_TEXT.FRX:0F50
  178.       ShadowColor     =   &H00000000&
  179.       SingleLine      =   -1  'True
  180.       TabIndex        =   1
  181.       TextAngle       =   0
  182.       TextPosition    =   1  'Center
  183.       ThreeDColor     =   &H00808080&
  184.       ThreeDText      =   -1  'True
  185.       Top             =   1530
  186.       Width           =   4395
  187.    End
  188.    Begin ctTEXT ctText_Intro 
  189.       Alignment       =   2  'Centered
  190.       BackColor       =   &H00C0C0C0&
  191.       BorderColor     =   &H00000000&
  192.       BorderType      =   4  'Drop Shadow
  193.       Caption         =   "ctText VBX Control"
  194.       FontBold        =   -1  'True
  195.       FontItalic      =   0   'False
  196.       FontName        =   "Times New Roman"
  197.       FontSize        =   24
  198.       FontStrikethru  =   0   'False
  199.       FontUnderline   =   0   'False
  200.       ForeColor       =   &H00800000&
  201.       Height          =   570
  202.       Left            =   180
  203.       PicPosition     =   0  'Center
  204.       ShadowColor     =   &H00000000&
  205.       SingleLine      =   -1  'True
  206.       TabIndex        =   0
  207.       TextAngle       =   0
  208.       TextPosition    =   1  'Center
  209.       ThreeDColor     =   &H00808080&
  210.       ThreeDText      =   -1  'True
  211.       Top             =   750
  212.       Width           =   4695
  213.    End
  214.    Begin Label Label8 
  215.       BackColor       =   &H00C0C0C0&
  216.       Caption         =   "Alignment"
  217.       ForeColor       =   &H00800000&
  218.       Height          =   255
  219.       Left            =   5280
  220.       TabIndex        =   23
  221.       Top             =   1260
  222.       Width           =   1155
  223.    End
  224.    Begin Label Label7 
  225.       BackColor       =   &H00C0C0C0&
  226.       Caption         =   "Border Type"
  227.       ForeColor       =   &H00800000&
  228.       Height          =   255
  229.       Left            =   5280
  230.       TabIndex        =   19
  231.       Top             =   2460
  232.       Width           =   1515
  233.    End
  234.    Begin Label Label6 
  235.       BackColor       =   &H00C0C0C0&
  236.       Caption         =   "Picture "
  237.       ForeColor       =   &H00800000&
  238.       Height          =   225
  239.       Left            =   5280
  240.       TabIndex        =   12
  241.       Top             =   3060
  242.       Width           =   1395
  243.    End
  244.    Begin Label Label5 
  245.       Alignment       =   2  'Center
  246.       BackColor       =   &H00C0C0C0&
  247.       Caption         =   "The ctText VBX is an enhanced label control that allows the user to set the labels text, text position, background, font orientation and shading, etc."
  248.       ForeColor       =   &H00800000&
  249.       Height          =   465
  250.       Left            =   360
  251.       TabIndex        =   11
  252.       Top             =   120
  253.       Width           =   7695
  254.    End
  255.    Begin Label Label4 
  256.       BackStyle       =   0  'Transparent
  257.       Caption         =   "Picture Position"
  258.       ForeColor       =   &H00800000&
  259.       Height          =   195
  260.       Left            =   5280
  261.       TabIndex        =   9
  262.       Top             =   1920
  263.       Width           =   1575
  264.    End
  265.    Begin Label Label3 
  266.       BackStyle       =   0  'Transparent
  267.       Caption         =   "Text Position"
  268.       ForeColor       =   &H00800000&
  269.       Height          =   255
  270.       Left            =   5280
  271.       TabIndex        =   8
  272.       Top             =   660
  273.       Width           =   1695
  274.    End
  275.    Begin Label Label2 
  276.       Alignment       =   2  'Center
  277.       BackStyle       =   0  'Transparent
  278.       Caption         =   "Move scroll bar to rotate text"
  279.       FontBold        =   0   'False
  280.       FontItalic      =   0   'False
  281.       FontName        =   "Arial"
  282.       FontSize        =   8.25
  283.       FontStrikethru  =   0   'False
  284.       FontUnderline   =   0   'False
  285.       ForeColor       =   &H00800000&
  286.       Height          =   435
  287.       Left            =   4200
  288.       TabIndex        =   7
  289.       Top             =   4170
  290.       Width           =   1155
  291.    End
  292.    Begin Label Label1 
  293.       BackStyle       =   0  'Transparent
  294.       Caption         =   "Text :"
  295.       Height          =   255
  296.       Left            =   240
  297.       TabIndex        =   6
  298.       Top             =   4290
  299.       Width           =   555
  300.    End
  301. Sub cmb_align_Click ()
  302.    ct_text.Alignment = cmb_Align.ListIndex
  303. End Sub
  304. Sub cmb_bord_Click ()
  305.    ct_text.BorderType = cmb_bord.ListIndex
  306. End Sub
  307. Sub cmb_pics_Click ()
  308.    If cmb_pics.ListIndex = 0 Then
  309.       ct_text.Picture = picture1.Picture
  310.    ElseIf cmb_pics.ListIndex = 1 Then
  311.       ct_text.Picture = picture2.Picture
  312.    ElseIf cmb_pics.ListIndex = 2 Then
  313.       ct_text.Picture = picture3.Picture
  314.    ElseIf cmb_pics.ListIndex = 3 Then
  315.       ct_text.Picture = picture4.Picture
  316.    ElseIf cmb_pics.ListIndex = 4 Then
  317.       ct_text.Picture = picture5.Picture
  318.    End If
  319. End Sub
  320. Sub cmb_pict_Click ()
  321.    ct_text.PicPosition = cmb_pict.ListIndex
  322. End Sub
  323. Sub cmb_text_Click ()
  324.    ct_text.TextPosition = cmb_text.ListIndex
  325. End Sub
  326. Sub Command1_Click ()
  327.    Unload w_text_demo
  328. End Sub
  329. Sub Form_Load ()
  330.    ' Center the window on the screen
  331.    Move (Screen.Width - Width) / 2, (Screen.Height - Height) * .25
  332.    w_mdi_main.bt_text = BUTTON_DISABLE
  333.    cmb_text.AddItem "0 - Top"
  334.    cmb_text.AddItem "1 - Center"
  335.    cmb_text.AddItem "2 - Bottom"
  336.    cmb_text.ListIndex = 1
  337.    cmb_Align.AddItem "0 - Left Justified"
  338.    cmb_Align.AddItem "1 - Right Justified"
  339.    cmb_Align.AddItem "2 - Centered"
  340.    cmb_Align.ListIndex = 2
  341.    cmb_pict.AddItem "0 - Center"
  342.    cmb_pict.AddItem "1 - Top Left"
  343.    cmb_pict.AddItem "2 - Top Center"
  344.    cmb_pict.AddItem "3 - Top Right"
  345.    cmb_pict.AddItem "4 - Middle Left"
  346.    cmb_pict.AddItem "5 - Middle Right"
  347.    cmb_pict.AddItem "6 - Bottom Left"
  348.    cmb_pict.AddItem "7 - Bottom Center"
  349.    cmb_pict.AddItem "8 - Bottom Right"
  350.    cmb_pict.AddItem "9 - Stretch to Fit"
  351.    cmb_pict.AddItem "10 - Tile"
  352.    cmb_pict.AddItem "11 - Hide"
  353.    cmb_pict.ListIndex = 10
  354.    cmb_bord.AddItem "0 - Regular"
  355.    cmb_bord.AddItem "1 - None"
  356.    cmb_bord.AddItem "2 - Raised"
  357.    cmb_bord.AddItem "3 - Lowered"
  358.    cmb_bord.AddItem "4 - Drop Shadow"
  359.    cmb_bord.AddItem "5 - Inset"
  360.    cmb_bord.ListIndex = 3
  361.    cmb_pics.AddItem "0 - Honey"
  362.    cmb_pics.AddItem "1 - Cars"
  363.    cmb_pics.AddItem "2 - Egypt"
  364.    cmb_pics.AddItem "3 - Bricks"
  365.    cmb_pics.AddItem "4 - Text Icon"
  366.    cmb_pics.ListIndex = 0
  367. End Sub
  368. Sub Form_Unload (Cancel As Integer)
  369.    w_mdi_main.bt_text = BUTTON_UP
  370. End Sub
  371. Sub Text1_Change ()
  372.    ct_text.Caption = text1.Text
  373. End Sub
  374. Sub ThreeD_Click ()
  375.    ct_text.ThreeDText = ThreeD.Value
  376. End Sub
  377. Sub VScroll1_Change ()
  378.    ct_text.TextAngle = VScroll1.Value
  379. End Sub
  380. Sub VScroll1_Scroll ()
  381.    ct_text.TextAngle = VScroll1.Value
  382. End Sub
  383.