home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / cmdbtnx5.msi / Cabs.w1.cab / General.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-08-01  |  23.4 KB  |  705 lines

  1. VERSION 5.00
  2. Object = "{20976770-692B-4564-84B5-CCC822AA2B7A}#1.2#0"; "CMDBTNX5.OCX"
  3. Begin VB.Form frmGeneral 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "General Demonstration"
  6.    ClientHeight    =   7170
  7.    ClientLeft      =   630
  8.    ClientTop       =   510
  9.    ClientWidth     =   9285
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "General.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   478
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   619
  26.    ShowInTaskbar   =   0   'False
  27.    StartUpPosition =   2  'CenterScreen
  28.    Begin VB.Frame Frame4 
  29.       Caption         =   "Events:"
  30.       BeginProperty Font 
  31.          Name            =   "Tahoma"
  32.          Size            =   8.25
  33.          Charset         =   0
  34.          Weight          =   700
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   1770
  40.       Left            =   4635
  41.       TabIndex        =   32
  42.       Top             =   3555
  43.       Width           =   2175
  44.       Begin VB.TextBox txtNum 
  45.          Height          =   285
  46.          Index           =   5
  47.          Left            =   180
  48.          TabIndex        =   36
  49.          Top             =   1215
  50.          Width           =   1185
  51.       End
  52.       Begin VB.CheckBox chkFirePushTimer 
  53.          Caption         =   "FirePushTimer"
  54.          Height          =   285
  55.          Left            =   180
  56.          TabIndex        =   34
  57.          Top             =   630
  58.          Width           =   1545
  59.       End
  60.       Begin VB.CheckBox chkFireDblClick 
  61.          Caption         =   "FireDblClick"
  62.          Height          =   285
  63.          Left            =   180
  64.          TabIndex        =   33
  65.          Top             =   315
  66.          Value           =   1  'Checked
  67.          Width           =   1545
  68.       End
  69.       Begin VB.Label lblHdr 
  70.          AutoSize        =   -1  'True
  71.          Caption         =   "PushTimerInterval:"
  72.          Height          =   195
  73.          Index           =   12
  74.          Left            =   180
  75.          TabIndex        =   35
  76.          Top             =   990
  77.          Width           =   1365
  78.       End
  79.    End
  80.    Begin CommandButtonXCtl.CommandButtonX btnGroup 
  81.       Height          =   915
  82.       Index           =   0
  83.       Left            =   6930
  84.       TabIndex        =   39
  85.       Top             =   5130
  86.       Width           =   1050
  87.       _ExtentX        =   1852
  88.       _ExtentY        =   1614
  89.       DropDownPicture =   "General.frx":014A
  90.       Checked         =   -1  'True
  91.       Caption         =   ""
  92.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  93.          Name            =   "Tahoma"
  94.          Size            =   8.25
  95.          Charset         =   0
  96.          Weight          =   400
  97.          Underline       =   0   'False
  98.          Italic          =   0   'False
  99.          Strikethrough   =   0   'False
  100.       EndProperty
  101.       Picture         =   "General.frx":01CC
  102.    End
  103.    Begin CommandButtonXDemo.pucTextTip pucSimpleTip1 
  104.       Height          =   2355
  105.       Left            =   6930
  106.       Top             =   2655
  107.       Width           =   2175
  108.       _ExtentX        =   3836
  109.       _ExtentY        =   4154
  110.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  111.          Name            =   "Tahoma"
  112.          Size            =   8.25
  113.          Charset         =   0
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       Text            =   $"General.frx":04E6
  120.    End
  121.    Begin VB.Frame Frame3 
  122.       Caption         =   "General:"
  123.       BeginProperty Font 
  124.          Name            =   "Tahoma"
  125.          Size            =   8.25
  126.          Charset         =   0
  127.          Weight          =   700
  128.          Underline       =   0   'False
  129.          Italic          =   0   'False
  130.          Strikethrough   =   0   'False
  131.       EndProperty
  132.       Height          =   4425
  133.       Left            =   135
  134.       TabIndex        =   0
  135.       Top             =   900
  136.       Width           =   2175
  137.       Begin VB.CheckBox chkActiveBorder 
  138.          Caption         =   "ActiveBorder"
  139.          Height          =   285
  140.          Left            =   180
  141.          TabIndex        =   12
  142.          Top             =   3960
  143.          Width           =   1275
  144.       End
  145.       Begin VB.CheckBox chkDefaultHighlight 
  146.          Caption         =   "DefaultHighlight"
  147.          Height          =   285
  148.          Left            =   180
  149.          TabIndex        =   11
  150.          Top             =   3645
  151.          Value           =   1  'Checked
  152.          Width           =   1545
  153.       End
  154.       Begin VB.CheckBox chkChecked 
  155.          Caption         =   "Checked"
  156.          Height          =   285
  157.          Left            =   180
  158.          TabIndex        =   10
  159.          Top             =   3330
  160.          Width           =   1185
  161.       End
  162.       Begin VB.TextBox txtNum 
  163.          Height          =   285
  164.          Index           =   4
  165.          Left            =   180
  166.          TabIndex        =   9
  167.          Top             =   2925
  168.          Width           =   1185
  169.       End
  170.       Begin VB.ComboBox cboStyle 
  171.          Height          =   315
  172.          ItemData        =   "General.frx":058A
  173.          Left            =   180
  174.          List            =   "General.frx":0597
  175.          Style           =   2  'Dropdown List
  176.          TabIndex        =   3
  177.          Top             =   900
  178.          Width           =   1815
  179.       End
  180.       Begin VB.ComboBox cboBorderStyle 
  181.          Height          =   315
  182.          ItemData        =   "General.frx":05CB
  183.          Left            =   180
  184.          List            =   "General.frx":05E1
  185.          Style           =   2  'Dropdown List
  186.          TabIndex        =   5
  187.          Top             =   1575
  188.          Width           =   1815
  189.       End
  190.       Begin VB.ComboBox cboFocusStyle 
  191.          Height          =   315
  192.          ItemData        =   "General.frx":0638
  193.          Left            =   180
  194.          List            =   "General.frx":0648
  195.          Style           =   2  'Dropdown List
  196.          TabIndex        =   7
  197.          Top             =   2250
  198.          Width           =   1815
  199.       End
  200.       Begin VB.CheckBox chkEnabled 
  201.          Caption         =   "Enabled"
  202.          Height          =   285
  203.          Left            =   180
  204.          TabIndex        =   1
  205.          Top             =   315
  206.          Value           =   1  'Checked
  207.          Width           =   1185
  208.       End
  209.       Begin VB.Label lblHdr 
  210.          AutoSize        =   -1  'True
  211.          Caption         =   "BorderWidth:"
  212.          Height          =   195
  213.          Index           =   11
  214.          Left            =   180
  215.          TabIndex        =   8
  216.          Top             =   2700
  217.          Width           =   960
  218.       End
  219.       Begin VB.Label lblHdr 
  220.          AutoSize        =   -1  'True
  221.          Caption         =   "Style:"
  222.          Height          =   195
  223.          Index           =   0
  224.          Left            =   180
  225.          TabIndex        =   2
  226.          Top             =   675
  227.          Width           =   420
  228.       End
  229.       Begin VB.Label lblHdr 
  230.          AutoSize        =   -1  'True
  231.          Caption         =   "BorderStyle:"
  232.          Height          =   195
  233.          Index           =   1
  234.          Left            =   180
  235.          TabIndex        =   4
  236.          Top             =   1350
  237.          Width           =   900
  238.       End
  239.       Begin VB.Label lblHdr 
  240.          AutoSize        =   -1  'True
  241.          Caption         =   "FocusStyle:"
  242.          Height          =   195
  243.          Index           =   6
  244.          Left            =   180
  245.          TabIndex        =   6
  246.          Top             =   2025
  247.          Width           =   840
  248.       End
  249.    End
  250.    Begin VB.Frame Frame2 
  251.       Caption         =   "Picture Related:"
  252.       BeginProperty Font 
  253.          Name            =   "Tahoma"
  254.          Size            =   8.25
  255.          Charset         =   0
  256.          Weight          =   700
  257.          Underline       =   0   'False
  258.          Italic          =   0   'False
  259.          Strikethrough   =   0   'False
  260.       EndProperty
  261.       Height          =   2580
  262.       Left            =   4635
  263.       TabIndex        =   25
  264.       Top             =   900
  265.       Width           =   2175
  266.       Begin VB.TextBox txtNum 
  267.          Height          =   285
  268.          Index           =   3
  269.          Left            =   180
  270.          TabIndex        =   31
  271.          Top             =   1845
  272.          Width           =   1185
  273.       End
  274.       Begin VB.TextBox txtNum 
  275.          Height          =   285
  276.          Index           =   2
  277.          Left            =   180
  278.          TabIndex        =   29
  279.          Top             =   1215
  280.          Width           =   1185
  281.       End
  282.       Begin VB.ComboBox cboAlignmentEx 
  283.          Height          =   315
  284.          Index           =   1
  285.          ItemData        =   "General.frx":0693
  286.          Left            =   180
  287.          List            =   "General.frx":06B2
  288.          Style           =   2  'Dropdown List
  289.          TabIndex        =   27
  290.          Top             =   540
  291.          Width           =   1815
  292.       End
  293.       Begin VB.Label lblHdr 
  294.          AutoSize        =   -1  'True
  295.          Caption         =   "PictureOffsetY:"
  296.          Height          =   195
  297.          Index           =   10
  298.          Left            =   180
  299.          TabIndex        =   30
  300.          Top             =   1620
  301.          Width           =   1110
  302.       End
  303.       Begin VB.Label lblHdr 
  304.          AutoSize        =   -1  'True
  305.          Caption         =   "PictureOffsetX:"
  306.          Height          =   195
  307.          Index           =   9
  308.          Left            =   180
  309.          TabIndex        =   28
  310.          Top             =   990
  311.          Width           =   1110
  312.       End
  313.       Begin VB.Label lblHdr 
  314.          AutoSize        =   -1  'True
  315.          Caption         =   "PictureAlignment:"
  316.          Height          =   195
  317.          Index           =   3
  318.          Left            =   180
  319.          TabIndex        =   26
  320.          Top             =   315
  321.          Width           =   1260
  322.       End
  323.    End
  324.    Begin VB.Frame Frame1 
  325.       Caption         =   "Caption Related:"
  326.       BeginProperty Font 
  327.          Name            =   "Tahoma"
  328.          Size            =   8.25
  329.          Charset         =   0
  330.          Weight          =   700
  331.          Underline       =   0   'False
  332.          Italic          =   0   'False
  333.          Strikethrough   =   0   'False
  334.       EndProperty
  335.       Height          =   4425
  336.       Left            =   2385
  337.       TabIndex        =   13
  338.       Top             =   900
  339.       Width           =   2175
  340.       Begin VB.CheckBox chkWordWrap 
  341.          Caption         =   "WordWrap"
  342.          Height          =   285
  343.          Left            =   180
  344.          TabIndex        =   24
  345.          Top             =   3780
  346.          Value           =   1  'Checked
  347.          Width           =   1545
  348.       End
  349.       Begin VB.TextBox txtNum 
  350.          Height          =   285
  351.          Index           =   1
  352.          Left            =   180
  353.          TabIndex        =   23
  354.          Top             =   3330
  355.          Width           =   1185
  356.       End
  357.       Begin VB.TextBox txtNum 
  358.          Height          =   285
  359.          Index           =   0
  360.          Left            =   180
  361.          TabIndex        =   21
  362.          Top             =   2700
  363.          Width           =   1185
  364.       End
  365.       Begin VB.ComboBox cboAlignmentEx 
  366.          Height          =   315
  367.          Index           =   0
  368.          ItemData        =   "General.frx":0758
  369.          Left            =   180
  370.          List            =   "General.frx":0777
  371.          Style           =   2  'Dropdown List
  372.          TabIndex        =   19
  373.          Top             =   2025
  374.          Width           =   1815
  375.       End
  376.       Begin VB.ComboBox cboAlignment 
  377.          Height          =   315
  378.          ItemData        =   "General.frx":081D
  379.          Left            =   180
  380.          List            =   "General.frx":082A
  381.          Style           =   2  'Dropdown List
  382.          TabIndex        =   17
  383.          Top             =   1350
  384.          Width           =   1815
  385.       End
  386.       Begin VB.TextBox txtField 
  387.          Height          =   510
  388.          Left            =   180
  389.          MultiLine       =   -1  'True
  390.          ScrollBars      =   2  'Vertical
  391.          TabIndex        =   15
  392.          Top             =   495
  393.          Width           =   1815
  394.       End
  395.       Begin VB.Label lblHdr 
  396.          AutoSize        =   -1  'True
  397.          Caption         =   "CaptionOffsetY:"
  398.          Height          =   195
  399.          Index           =   8
  400.          Left            =   180
  401.          TabIndex        =   22
  402.          Top             =   3105
  403.          Width           =   1170
  404.       End
  405.       Begin VB.Label lblHdr 
  406.          AutoSize        =   -1  'True
  407.          Caption         =   "CaptionOffsetX:"
  408.          Height          =   195
  409.          Index           =   7
  410.          Left            =   180
  411.          TabIndex        =   20
  412.          Top             =   2475
  413.          Width           =   1170
  414.       End
  415.       Begin VB.Label lblHdr 
  416.          AutoSize        =   -1  'True
  417.          Caption         =   "CaptionAlignment:"
  418.          Height          =   195
  419.          Index           =   2
  420.          Left            =   180
  421.          TabIndex        =   18
  422.          Top             =   1800
  423.          Width           =   1320
  424.       End
  425.       Begin VB.Label lblHdr 
  426.          AutoSize        =   -1  'True
  427.          Caption         =   "Alignment:"
  428.          Height          =   195
  429.          Index           =   5
  430.          Left            =   180
  431.          TabIndex        =   16
  432.          Top             =   1125
  433.          Width           =   765
  434.       End
  435.       Begin VB.Label lblHdr 
  436.          AutoSize        =   -1  'True
  437.          Caption         =   "Caption:"
  438.          Height          =   195
  439.          Index           =   4
  440.          Left            =   180
  441.          TabIndex        =   14
  442.          Top             =   270
  443.          Width           =   615
  444.       End
  445.    End
  446.    Begin CommandButtonXCtl.CommandButtonX cmdxDemo 
  447.       Height          =   1500
  448.       Left            =   6930
  449.       TabIndex        =   37
  450.       Top             =   1035
  451.       Width           =   2175
  452.       _ExtentX        =   3836
  453.       _ExtentY        =   2646
  454.       WordWrap        =   -1  'True
  455.       DropDownPicture =   "General.frx":0852
  456.       OLEDropMode     =   1
  457.       PictureAlignment=   3
  458.       Caption         =   "Demo"
  459.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  460.          Name            =   "Tahoma"
  461.          Size            =   8.25
  462.          Charset         =   0
  463.          Weight          =   400
  464.          Underline       =   0   'False
  465.          Italic          =   0   'False
  466.          Strikethrough   =   0   'False
  467.       EndProperty
  468.       Picture         =   "General.frx":08D4
  469.    End
  470.    Begin CommandButtonXDemo.pucEventList evlDemo 
  471.       Height          =   1635
  472.       Left            =   135
  473.       TabIndex        =   38
  474.       Top             =   5400
  475.       Width           =   6675
  476.       _ExtentX        =   11774
  477.       _ExtentY        =   2884
  478.       AboutVisible    =   -1  'True
  479.       ExitVisible     =   -1  'True
  480.    End
  481.    Begin CommandButtonXCtl.CommandButtonX btnGroup 
  482.       Height          =   915
  483.       Index           =   1
  484.       Left            =   8055
  485.       TabIndex        =   41
  486.       Top             =   5130
  487.       Width           =   1050
  488.       _ExtentX        =   1852
  489.       _ExtentY        =   1614
  490.       DropDownPicture =   "General.frx":0A2E
  491.       Caption         =   ""
  492.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  493.          Name            =   "Tahoma"
  494.          Size            =   8.25
  495.          Charset         =   0
  496.          Weight          =   400
  497.          Underline       =   0   'False
  498.          Italic          =   0   'False
  499.          Strikethrough   =   0   'False
  500.       EndProperty
  501.       Picture         =   "General.frx":0AB0
  502.    End
  503.    Begin CommandButtonXCtl.CommandButtonX btnGroup 
  504.       Height          =   915
  505.       Index           =   2
  506.       Left            =   6930
  507.       TabIndex        =   40
  508.       Top             =   6120
  509.       Width           =   1050
  510.       _ExtentX        =   1852
  511.       _ExtentY        =   1614
  512.       DropDownPicture =   "General.frx":0DCA
  513.       Caption         =   ""
  514.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  515.          Name            =   "Tahoma"
  516.          Size            =   8.25
  517.          Charset         =   0
  518.          Weight          =   400
  519.          Underline       =   0   'False
  520.          Italic          =   0   'False
  521.          Strikethrough   =   0   'False
  522.       EndProperty
  523.       Picture         =   "General.frx":0E4C
  524.    End
  525.    Begin CommandButtonXCtl.CommandButtonX btnGroup 
  526.       Height          =   915
  527.       Index           =   3
  528.       Left            =   8055
  529.       TabIndex        =   42
  530.       Top             =   6120
  531.       Width           =   1050
  532.       _ExtentX        =   1852
  533.       _ExtentY        =   1614
  534.       DropDownPicture =   "General.frx":1166
  535.       Caption         =   ""
  536.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  537.          Name            =   "Tahoma"
  538.          Size            =   8.25
  539.          Charset         =   0
  540.          Weight          =   400
  541.          Underline       =   0   'False
  542.          Italic          =   0   'False
  543.          Strikethrough   =   0   'False
  544.       EndProperty
  545.       Picture         =   "General.frx":11E8
  546.    End
  547.    Begin CommandButtonXDemo.pucLogoPane LogoPane1 
  548.       Align           =   1  'Align Top
  549.       Height          =   780
  550.       Left            =   0
  551.       Top             =   0
  552.       Width           =   9285
  553.       _ExtentX        =   16378
  554.       _ExtentY        =   1376
  555.       Picture         =   "General.frx":1502
  556.    End
  557. Attribute VB_Name = "frmGeneral"
  558. Attribute VB_GlobalNameSpace = False
  559. Attribute VB_Creatable = False
  560. Attribute VB_PredeclaredId = True
  561. Attribute VB_Exposed = False
  562. Option Explicit
  563. DefInt A-Z
  564. '---------------------------------------------------------------
  565. 'Name        : SetProperty
  566. 'Created     : 06/09/2000 20:46
  567. '---------------------------------------------------------------
  568. 'Author      : Richard James Moss
  569. 'Organisation: Ariad Software
  570. '---------------------------------------------------------------
  571. 'Description : Sets the properties of all demonstration buttons
  572. '---------------------------------------------------------------
  573. 'Updates     :
  574. '---------------------------------------------------------------
  575. '                       Ariad Procedure Builder Add-In 1.00.0036
  576. Public Sub SetProperty(PropertyName$, Value As Variant)
  577. Attribute SetProperty.VB_Description = "Sets the properties of all demonstration buttons"
  578.  '##BLOCK_DESCRIPTION Sets the properties of all demonstration buttons
  579.  Dim Btn As Control
  580.  For Each Btn In Controls
  581.   If TypeOf Btn Is CommandButtonX Then
  582.    CallByName Btn, PropertyName$, VbLet, Value
  583.   End If
  584.  Next
  585. End Sub '(Public) Sub SetProperty ()
  586. Private Sub btnGroup_Click(Index As Integer)
  587.  Dim I
  588.  For I = 0 To btnGroup.UBound
  589.   btnGroup(I).Checked = (Index = I)
  590.  Next
  591. End Sub
  592. Private Sub cboAlignment_Click()
  593.  SetProperty "Alignment", cboAlignment.ListIndex
  594. End Sub
  595. Private Sub cboAlignmentEx_Click(Index As Integer)
  596.  Select Case Index
  597.   Case 0: SetProperty "CaptionAlignment", cboAlignmentEx(Index).ListIndex
  598.   Case 1: SetProperty "PictureAlignment", cboAlignmentEx(Index).ListIndex
  599.  End Select
  600. End Sub
  601. Private Sub cboBorderStyle_Click()
  602.  SetProperty "BorderStyle", cboBorderStyle.ListIndex
  603. End Sub
  604. Private Sub cboFocusStyle_Click()
  605.  SetProperty "FocusStyle", cboFocusStyle.ListIndex
  606. End Sub
  607. Private Sub cboStyle_Click()
  608.  SetProperty "Style", cboStyle.ListIndex
  609. End Sub
  610. Private Sub chkActiveBorder_Click()
  611.  SetProperty "ActiveBorder", chkActiveBorder
  612. End Sub
  613. Private Sub chkChecked_Click()
  614.  cmdxDemo.Checked = chkChecked
  615. End Sub
  616. Private Sub chkDefaultHighlight_Click()
  617.  SetProperty "DefaultHighlight", chkDefaultHighlight
  618. End Sub
  619. Private Sub chkEnabled_Click()
  620.  SetProperty "Enabled", chkEnabled
  621. End Sub
  622. Private Sub chkFireDblClick_Click()
  623.     SetProperty "FireDblClick", chkFireDblClick
  624. End Sub
  625. Private Sub chkFirePushTimer_Click()
  626.     SetProperty "FirePushTimer", chkFirePushTimer
  627. End Sub
  628. Private Sub chkWordWrap_Click()
  629.     SetProperty "WordWrap", chkWordWrap
  630. End Sub
  631. Private Sub cmdxDemo_Click()
  632.  evlDemo.Add "Click"
  633. End Sub
  634. Private Sub cmdxDemo_DblClick()
  635.  evlDemo.Add "DblClick"
  636. End Sub
  637. Private Sub cmdxDemo_GotFocus()
  638.  evlDemo.Add "GotFocus"
  639. End Sub
  640. Private Sub cmdxDemo_KeyDown(KeyCode As Integer, Shift As Integer)
  641.  evlDemo.Add "KeyDown", KeyCode, Shift
  642. End Sub
  643. Private Sub cmdxDemo_KeyPress(KeyAscii As Integer)
  644.  evlDemo.Add "KeyPress", KeyAscii
  645. End Sub
  646. Private Sub cmdxDemo_KeyUp(KeyCode As Integer, Shift As Integer)
  647.  evlDemo.Add "KeyUp", KeyCode, Shift
  648. End Sub
  649. Private Sub cmdxDemo_LostFocus()
  650.  evlDemo.Add "LostFocus"
  651. End Sub
  652. Private Sub cmdxDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  653.  evlDemo.Add "MouseDown", Button, Shift, X, Y
  654. End Sub
  655. Private Sub cmdxDemo_MouseEnter()
  656.  evlDemo.Add "MouseEnter"
  657. End Sub
  658. Private Sub cmdxDemo_MouseExit()
  659.  evlDemo.Add "MouseExit"
  660. End Sub
  661. Private Sub cmdxDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  662.  evlDemo.Add "MouseUp", Button, Shift, X, Y
  663. End Sub
  664. Private Sub cmdxDemo_PushTimer()
  665.     evlDemo.Add "PushTimer"
  666. End Sub
  667. Private Sub evlDemo_AboutClicked()
  668.  cmdxDemo.About
  669. End Sub
  670. Private Sub evlDemo_ExitClicked()
  671.  Unload Me
  672. End Sub
  673. Private Sub Form_Load()
  674.     With cmdxDemo
  675.         .AutoRedraw = False
  676.             cboStyle.ListIndex = .Style
  677.             cboBorderStyle.ListIndex = .BorderStyle
  678.             cboAlignmentEx(0).ListIndex = .CaptionAlignment
  679.             cboAlignmentEx(1).ListIndex = .PictureAlignment
  680.             cboAlignment.ListIndex = .Alignment
  681.             cboFocusStyle.ListIndex = .FocusStyle
  682.             txtField = "CommandButtonX" & vbCrLf & "Version 5.0"
  683.             txtNum(0) = .CaptionOffsetX
  684.             txtNum(1) = .CaptionOffsetY
  685.             txtNum(2) = .PictureOffsetX
  686.             txtNum(3) = .PictureOffsety
  687.             txtNum(4) = .BorderWidth
  688.             txtNum(5) = .PushTimerInterval
  689.         .AutoRedraw = True
  690.     End With
  691. End Sub
  692. Private Sub txtField_Change()
  693.  cmdxDemo.Caption = txtField
  694. End Sub
  695. Private Sub txtNum_Change(Index As Integer)
  696.     Select Case Index
  697.         Case 0: SetProperty "CaptionOffsetX", Val(txtNum(Index))
  698.         Case 1: SetProperty "CaptionOffsetY", Val(txtNum(Index))
  699.         Case 2: SetProperty "PictureOffsetX", Val(txtNum(Index))
  700.         Case 3: SetProperty "PictureOffsety", Val(txtNum(Index))
  701.         Case 4: SetProperty "BorderWidth", Val(txtNum(Index))
  702.         Case 5: SetProperty "PushTimerInterval", Val(txtNum(Index))
  703.     End Select
  704. End Sub
  705.