home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / various / ctdemo / ct_tips.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-26  |  6.3 KB  |  194 lines
  1. VERSION 2.00
  2. Begin Form w_cttips_demo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "ctTIPS (Popup Help Tips) Demo"
  6.    ClientHeight    =   4065
  7.    ClientLeft      =   1815
  8.    ClientTop       =   1590
  9.    ClientWidth     =   5910
  10.    Height          =   4590
  11.    Left            =   1755
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   4065
  16.    ScaleWidth      =   5910
  17.    Top             =   1125
  18.    Width           =   6030
  19.    Begin CommandButton Command2 
  20.       Caption         =   "Button"
  21.       Height          =   375
  22.       Left            =   480
  23.       TabIndex        =   10
  24.       Tag             =   "Another Button"
  25.       Top             =   3420
  26.       Width           =   1515
  27.    End
  28.    Begin ctRADIO ctRadio1 
  29.       Alignment       =   0  'Left Justify
  30.       BackColor       =   &H00C0C0C0&
  31.       Caption         =   "A Radio Button"
  32.       DisableColor    =   &H00808080&
  33.       ForeColor       =   &H00000000&
  34.       Height          =   255
  35.       Left            =   300
  36.       PicStyle        =   1  'Style #1
  37.       ShowFocus       =   -1  'True
  38.       TabIndex        =   9
  39.       Tag             =   "Radio Button"
  40.       Top             =   2340
  41.       Value           =   0   'False
  42.       Width           =   2505
  43.    End
  44.    Begin ctCHECK ctCheck1 
  45.       Alignment       =   0  'Left Justify
  46.       BackColor       =   &H00C0C0C0&
  47.       Caption         =   "A Check Box"
  48.       DisableColor    =   &H00808080&
  49.       ForeColor       =   &H00000000&
  50.       Height          =   285
  51.       Left            =   300
  52.       PicStyle        =   1  'Style #1
  53.       ShowFocus       =   -1  'True
  54.       TabIndex        =   8
  55.       Tag             =   "Check Box"
  56.       Top             =   1830
  57.       Value           =   0   'False
  58.       Width           =   2505
  59.    End
  60.    Begin CommandButton Command1 
  61.       Caption         =   "E&xit"
  62.       Height          =   435
  63.       Left            =   4680
  64.       TabIndex        =   7
  65.       Tag             =   "Exit the Demo"
  66.       Top             =   3510
  67.       Width           =   975
  68.    End
  69.    Begin Frame Frame1 
  70.       BackColor       =   &H00C0C0C0&
  71.       Caption         =   "Alignment"
  72.       ForeColor       =   &H00000000&
  73.       Height          =   1515
  74.       Left            =   3660
  75.       TabIndex        =   3
  76.       Top             =   1560
  77.       Width           =   1935
  78.       Begin OptionButton Option3 
  79.          BackColor       =   &H00C0C0C0&
  80.          Caption         =   "Under Control"
  81.          ForeColor       =   &H00000000&
  82.          Height          =   315
  83.          Left            =   240
  84.          TabIndex        =   5
  85.          Tag             =   "Align Under Control"
  86.          Top             =   870
  87.          Width           =   1515
  88.       End
  89.       Begin OptionButton Option2 
  90.          BackColor       =   &H00C0C0C0&
  91.          Caption         =   "Under Cursor"
  92.          ForeColor       =   &H00000000&
  93.          Height          =   315
  94.          Left            =   240
  95.          TabIndex        =   4
  96.          Tag             =   "Align Under Cursor"
  97.          Top             =   420
  98.          Value           =   -1  'True
  99.          Width           =   1455
  100.       End
  101.    End
  102.    Begin TextBox Text1 
  103.       BackColor       =   &H00FFFFFF&
  104.       Height          =   285
  105.       Left            =   990
  106.       TabIndex        =   1
  107.       Tag             =   "A different color now"
  108.       Text            =   "Error Field"
  109.       Top             =   2820
  110.       Width           =   1995
  111.    End
  112.    Begin ctTIPS ctTips1 
  113.       Active          =   -1  'True
  114.       AddTip          =   ""
  115.       Alignment       =   0  'Display Under Pointer
  116.       BackColor       =   &H0080FFFF&
  117.       Delay           =   12
  118.       FontBold        =   -1  'True
  119.       FontItalic      =   0   'False
  120.       FontName        =   "MS Sans Serif"
  121.       FontSize        =   9.75
  122.       FontStrikethru  =   0   'False
  123.       FontUnderline   =   0   'False
  124.       ForeColor       =   &H00000000&
  125.       Left            =   4140
  126.       TimerID         =   0
  127.       Top             =   3510
  128.    End
  129.    Begin Label Label3 
  130.       Alignment       =   2  'Center
  131.       BackColor       =   &H00C0C0C0&
  132.       Caption         =   "Place mouse pointer over top one of the controls"
  133.       FontBold        =   0   'False
  134.       FontItalic      =   0   'False
  135.       FontName        =   "MS Sans Serif"
  136.       FontSize        =   8.25
  137.       FontStrikethru  =   0   'False
  138.       FontUnderline   =   0   'False
  139.       ForeColor       =   &H00000000&
  140.       Height          =   285
  141.       Left            =   1200
  142.       TabIndex        =   6
  143.       Top             =   1140
  144.       Width           =   3675
  145.    End
  146.    Begin Label Label2 
  147.       BackColor       =   &H00C0C0C0&
  148.       Caption         =   "Error :"
  149.       Height          =   285
  150.       Left            =   330
  151.       TabIndex        =   2
  152.       Top             =   2850
  153.       Width           =   615
  154.    End
  155.    Begin Label Label1 
  156.       Alignment       =   2  'Center
  157.       BackColor       =   &H00C0C0C0&
  158.       Caption         =   "The ctTIPS VBX is a help tips control. It allows the programmer to assign a small popup window to objects in a form. The text within the popup window can either be supplied by the controls TAG property or by pre-loading the controls handle and text."
  159.       ForeColor       =   &H00800000&
  160.       Height          =   885
  161.       Left            =   120
  162.       TabIndex        =   0
  163.       Top             =   210
  164.       Width           =   5655
  165.    End
  166. Sub Command1_Click ()
  167.    Unload w_cttips_demo
  168. End Sub
  169. Sub ctTips1_ItemCheck (HANDLE As Integer)
  170.    If (HANDLE = text1.hWnd) Then
  171.       ctTips1.BackColor = &HFF&
  172.       ctTips1.ForeColor = &HFFFF&
  173.    Else
  174.       ctTips1.BackColor = &H80FFFF
  175.       ctTips1.ForeColor = 0
  176.    End If
  177. End Sub
  178. Sub Form_Load ()
  179.    ' Center the window on the screen
  180.    Move (Screen.Width - Width) / 2, (Screen.Height - Height) * .2
  181.    w_mdi_main.bt_tips = BUTTON_DISABLE
  182.    w_mdi_main.ctTips1.Active = False
  183. End Sub
  184. Sub Form_Unload (Cancel As Integer)
  185.    w_mdi_main.bt_tips = BUTTON_UP
  186.    w_mdi_main.ctTips1.Active = True
  187. End Sub
  188. Sub Option2_Click ()
  189.    ctTips1.Alignment = 0
  190. End Sub
  191. Sub Option3_Click ()
  192.    ctTips1.Alignment = 1
  193. End Sub
  194.