home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{20976770-692B-4564-84B5-CCC822AA2B7A}#1.2#0"; "CMDBTNX5.OCX"
- Begin VB.Form frmGeneral
- BorderStyle = 3 'Fixed Dialog
- Caption = "General Demonstration"
- ClientHeight = 7170
- ClientLeft = 630
- ClientTop = 510
- ClientWidth = 9285
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "General.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 478
- ScaleMode = 3 'Pixel
- ScaleWidth = 619
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin VB.Frame Frame4
- Caption = "Events:"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 1770
- Left = 4635
- TabIndex = 32
- Top = 3555
- Width = 2175
- Begin VB.TextBox txtNum
- Height = 285
- Index = 5
- Left = 180
- TabIndex = 36
- Top = 1215
- Width = 1185
- End
- Begin VB.CheckBox chkFirePushTimer
- Caption = "FirePushTimer"
- Height = 285
- Left = 180
- TabIndex = 34
- Top = 630
- Width = 1545
- End
- Begin VB.CheckBox chkFireDblClick
- Caption = "FireDblClick"
- Height = 285
- Left = 180
- TabIndex = 33
- Top = 315
- Value = 1 'Checked
- Width = 1545
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "PushTimerInterval:"
- Height = 195
- Index = 12
- Left = 180
- TabIndex = 35
- Top = 990
- Width = 1365
- End
- End
- Begin CommandButtonXCtl.CommandButtonX btnGroup
- Height = 915
- Index = 0
- Left = 6930
- TabIndex = 39
- Top = 5130
- Width = 1050
- _ExtentX = 1852
- _ExtentY = 1614
- DropDownPicture = "General.frx":014A
- Checked = -1 'True
- Caption = ""
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Picture = "General.frx":01CC
- End
- Begin CommandButtonXDemo.pucTextTip pucSimpleTip1
- Height = 2355
- Left = 6930
- Top = 2655
- Width = 2175
- _ExtentX = 3836
- _ExtentY = 4154
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Text = $"General.frx":04E6
- End
- Begin VB.Frame Frame3
- Caption = "General:"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 4425
- Left = 135
- TabIndex = 0
- Top = 900
- Width = 2175
- Begin VB.CheckBox chkActiveBorder
- Caption = "ActiveBorder"
- Height = 285
- Left = 180
- TabIndex = 12
- Top = 3960
- Width = 1275
- End
- Begin VB.CheckBox chkDefaultHighlight
- Caption = "DefaultHighlight"
- Height = 285
- Left = 180
- TabIndex = 11
- Top = 3645
- Value = 1 'Checked
- Width = 1545
- End
- Begin VB.CheckBox chkChecked
- Caption = "Checked"
- Height = 285
- Left = 180
- TabIndex = 10
- Top = 3330
- Width = 1185
- End
- Begin VB.TextBox txtNum
- Height = 285
- Index = 4
- Left = 180
- TabIndex = 9
- Top = 2925
- Width = 1185
- End
- Begin VB.ComboBox cboStyle
- Height = 315
- ItemData = "General.frx":058A
- Left = 180
- List = "General.frx":0597
- Style = 2 'Dropdown List
- TabIndex = 3
- Top = 900
- Width = 1815
- End
- Begin VB.ComboBox cboBorderStyle
- Height = 315
- ItemData = "General.frx":05CB
- Left = 180
- List = "General.frx":05E1
- Style = 2 'Dropdown List
- TabIndex = 5
- Top = 1575
- Width = 1815
- End
- Begin VB.ComboBox cboFocusStyle
- Height = 315
- ItemData = "General.frx":0638
- Left = 180
- List = "General.frx":0648
- Style = 2 'Dropdown List
- TabIndex = 7
- Top = 2250
- Width = 1815
- End
- Begin VB.CheckBox chkEnabled
- Caption = "Enabled"
- Height = 285
- Left = 180
- TabIndex = 1
- Top = 315
- Value = 1 'Checked
- Width = 1185
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "BorderWidth:"
- Height = 195
- Index = 11
- Left = 180
- TabIndex = 8
- Top = 2700
- Width = 960
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Style:"
- Height = 195
- Index = 0
- Left = 180
- TabIndex = 2
- Top = 675
- Width = 420
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "BorderStyle:"
- Height = 195
- Index = 1
- Left = 180
- TabIndex = 4
- Top = 1350
- Width = 900
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "FocusStyle:"
- Height = 195
- Index = 6
- Left = 180
- TabIndex = 6
- Top = 2025
- Width = 840
- End
- End
- Begin VB.Frame Frame2
- Caption = "Picture Related:"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 2580
- Left = 4635
- TabIndex = 25
- Top = 900
- Width = 2175
- Begin VB.TextBox txtNum
- Height = 285
- Index = 3
- Left = 180
- TabIndex = 31
- Top = 1845
- Width = 1185
- End
- Begin VB.TextBox txtNum
- Height = 285
- Index = 2
- Left = 180
- TabIndex = 29
- Top = 1215
- Width = 1185
- End
- Begin VB.ComboBox cboAlignmentEx
- Height = 315
- Index = 1
- ItemData = "General.frx":0693
- Left = 180
- List = "General.frx":06B2
- Style = 2 'Dropdown List
- TabIndex = 27
- Top = 540
- Width = 1815
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "PictureOffsetY:"
- Height = 195
- Index = 10
- Left = 180
- TabIndex = 30
- Top = 1620
- Width = 1110
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "PictureOffsetX:"
- Height = 195
- Index = 9
- Left = 180
- TabIndex = 28
- Top = 990
- Width = 1110
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "PictureAlignment:"
- Height = 195
- Index = 3
- Left = 180
- TabIndex = 26
- Top = 315
- Width = 1260
- End
- End
- Begin VB.Frame Frame1
- Caption = "Caption Related:"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 4425
- Left = 2385
- TabIndex = 13
- Top = 900
- Width = 2175
- Begin VB.CheckBox chkWordWrap
- Caption = "WordWrap"
- Height = 285
- Left = 180
- TabIndex = 24
- Top = 3780
- Value = 1 'Checked
- Width = 1545
- End
- Begin VB.TextBox txtNum
- Height = 285
- Index = 1
- Left = 180
- TabIndex = 23
- Top = 3330
- Width = 1185
- End
- Begin VB.TextBox txtNum
- Height = 285
- Index = 0
- Left = 180
- TabIndex = 21
- Top = 2700
- Width = 1185
- End
- Begin VB.ComboBox cboAlignmentEx
- Height = 315
- Index = 0
- ItemData = "General.frx":0758
- Left = 180
- List = "General.frx":0777
- Style = 2 'Dropdown List
- TabIndex = 19
- Top = 2025
- Width = 1815
- End
- Begin VB.ComboBox cboAlignment
- Height = 315
- ItemData = "General.frx":081D
- Left = 180
- List = "General.frx":082A
- Style = 2 'Dropdown List
- TabIndex = 17
- Top = 1350
- Width = 1815
- End
- Begin VB.TextBox txtField
- Height = 510
- Left = 180
- MultiLine = -1 'True
- ScrollBars = 2 'Vertical
- TabIndex = 15
- Top = 495
- Width = 1815
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "CaptionOffsetY:"
- Height = 195
- Index = 8
- Left = 180
- TabIndex = 22
- Top = 3105
- Width = 1170
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "CaptionOffsetX:"
- Height = 195
- Index = 7
- Left = 180
- TabIndex = 20
- Top = 2475
- Width = 1170
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "CaptionAlignment:"
- Height = 195
- Index = 2
- Left = 180
- TabIndex = 18
- Top = 1800
- Width = 1320
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Alignment:"
- Height = 195
- Index = 5
- Left = 180
- TabIndex = 16
- Top = 1125
- Width = 765
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Caption:"
- Height = 195
- Index = 4
- Left = 180
- TabIndex = 14
- Top = 270
- Width = 615
- End
- End
- Begin CommandButtonXCtl.CommandButtonX cmdxDemo
- Height = 1500
- Left = 6930
- TabIndex = 37
- Top = 1035
- Width = 2175
- _ExtentX = 3836
- _ExtentY = 2646
- WordWrap = -1 'True
- DropDownPicture = "General.frx":0852
- OLEDropMode = 1
- PictureAlignment= 3
- Caption = "Demo"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Picture = "General.frx":08D4
- End
- Begin CommandButtonXDemo.pucEventList evlDemo
- Height = 1635
- Left = 135
- TabIndex = 38
- Top = 5400
- Width = 6675
- _ExtentX = 11774
- _ExtentY = 2884
- AboutVisible = -1 'True
- ExitVisible = -1 'True
- End
- Begin CommandButtonXCtl.CommandButtonX btnGroup
- Height = 915
- Index = 1
- Left = 8055
- TabIndex = 41
- Top = 5130
- Width = 1050
- _ExtentX = 1852
- _ExtentY = 1614
- DropDownPicture = "General.frx":0A2E
- Caption = ""
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Picture = "General.frx":0AB0
- End
- Begin CommandButtonXCtl.CommandButtonX btnGroup
- Height = 915
- Index = 2
- Left = 6930
- TabIndex = 40
- Top = 6120
- Width = 1050
- _ExtentX = 1852
- _ExtentY = 1614
- DropDownPicture = "General.frx":0DCA
- Caption = ""
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Picture = "General.frx":0E4C
- End
- Begin CommandButtonXCtl.CommandButtonX btnGroup
- Height = 915
- Index = 3
- Left = 8055
- TabIndex = 42
- Top = 6120
- Width = 1050
- _ExtentX = 1852
- _ExtentY = 1614
- DropDownPicture = "General.frx":1166
- Caption = ""
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Picture = "General.frx":11E8
- End
- Begin CommandButtonXDemo.pucLogoPane LogoPane1
- Align = 1 'Align Top
- Height = 780
- Left = 0
- Top = 0
- Width = 9285
- _ExtentX = 16378
- _ExtentY = 1376
- Picture = "General.frx":1502
- End
- Attribute VB_Name = "frmGeneral"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- DefInt A-Z
- '---------------------------------------------------------------
- 'Name : SetProperty
- 'Created : 06/09/2000 20:46
- '---------------------------------------------------------------
- 'Author : Richard James Moss
- 'Organisation: Ariad Software
- '---------------------------------------------------------------
- 'Description : Sets the properties of all demonstration buttons
- '---------------------------------------------------------------
- 'Updates :
- '---------------------------------------------------------------
- ' Ariad Procedure Builder Add-In 1.00.0036
- Public Sub SetProperty(PropertyName$, Value As Variant)
- Attribute SetProperty.VB_Description = "Sets the properties of all demonstration buttons"
- '##BLOCK_DESCRIPTION Sets the properties of all demonstration buttons
- Dim Btn As Control
- For Each Btn In Controls
- If TypeOf Btn Is CommandButtonX Then
- CallByName Btn, PropertyName$, VbLet, Value
- End If
- Next
- End Sub '(Public) Sub SetProperty ()
- Private Sub btnGroup_Click(Index As Integer)
- Dim I
- For I = 0 To btnGroup.UBound
- btnGroup(I).Checked = (Index = I)
- Next
- End Sub
- Private Sub cboAlignment_Click()
- SetProperty "Alignment", cboAlignment.ListIndex
- End Sub
- Private Sub cboAlignmentEx_Click(Index As Integer)
- Select Case Index
- Case 0: SetProperty "CaptionAlignment", cboAlignmentEx(Index).ListIndex
- Case 1: SetProperty "PictureAlignment", cboAlignmentEx(Index).ListIndex
- End Select
- End Sub
- Private Sub cboBorderStyle_Click()
- SetProperty "BorderStyle", cboBorderStyle.ListIndex
- End Sub
- Private Sub cboFocusStyle_Click()
- SetProperty "FocusStyle", cboFocusStyle.ListIndex
- End Sub
- Private Sub cboStyle_Click()
- SetProperty "Style", cboStyle.ListIndex
- End Sub
- Private Sub chkActiveBorder_Click()
- SetProperty "ActiveBorder", chkActiveBorder
- End Sub
- Private Sub chkChecked_Click()
- cmdxDemo.Checked = chkChecked
- End Sub
- Private Sub chkDefaultHighlight_Click()
- SetProperty "DefaultHighlight", chkDefaultHighlight
- End Sub
- Private Sub chkEnabled_Click()
- SetProperty "Enabled", chkEnabled
- End Sub
- Private Sub chkFireDblClick_Click()
- SetProperty "FireDblClick", chkFireDblClick
- End Sub
- Private Sub chkFirePushTimer_Click()
- SetProperty "FirePushTimer", chkFirePushTimer
- End Sub
- Private Sub chkWordWrap_Click()
- SetProperty "WordWrap", chkWordWrap
- End Sub
- Private Sub cmdxDemo_Click()
- evlDemo.Add "Click"
- End Sub
- Private Sub cmdxDemo_DblClick()
- evlDemo.Add "DblClick"
- End Sub
- Private Sub cmdxDemo_GotFocus()
- evlDemo.Add "GotFocus"
- End Sub
- Private Sub cmdxDemo_KeyDown(KeyCode As Integer, Shift As Integer)
- evlDemo.Add "KeyDown", KeyCode, Shift
- End Sub
- Private Sub cmdxDemo_KeyPress(KeyAscii As Integer)
- evlDemo.Add "KeyPress", KeyAscii
- End Sub
- Private Sub cmdxDemo_KeyUp(KeyCode As Integer, Shift As Integer)
- evlDemo.Add "KeyUp", KeyCode, Shift
- End Sub
- Private Sub cmdxDemo_LostFocus()
- evlDemo.Add "LostFocus"
- End Sub
- Private Sub cmdxDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- evlDemo.Add "MouseDown", Button, Shift, X, Y
- End Sub
- Private Sub cmdxDemo_MouseEnter()
- evlDemo.Add "MouseEnter"
- End Sub
- Private Sub cmdxDemo_MouseExit()
- evlDemo.Add "MouseExit"
- End Sub
- Private Sub cmdxDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
- evlDemo.Add "MouseUp", Button, Shift, X, Y
- End Sub
- Private Sub cmdxDemo_PushTimer()
- evlDemo.Add "PushTimer"
- End Sub
- Private Sub evlDemo_AboutClicked()
- cmdxDemo.About
- End Sub
- Private Sub evlDemo_ExitClicked()
- Unload Me
- End Sub
- Private Sub Form_Load()
- With cmdxDemo
- .AutoRedraw = False
- cboStyle.ListIndex = .Style
- cboBorderStyle.ListIndex = .BorderStyle
- cboAlignmentEx(0).ListIndex = .CaptionAlignment
- cboAlignmentEx(1).ListIndex = .PictureAlignment
- cboAlignment.ListIndex = .Alignment
- cboFocusStyle.ListIndex = .FocusStyle
- txtField = "CommandButtonX" & vbCrLf & "Version 5.0"
- txtNum(0) = .CaptionOffsetX
- txtNum(1) = .CaptionOffsetY
- txtNum(2) = .PictureOffsetX
- txtNum(3) = .PictureOffsety
- txtNum(4) = .BorderWidth
- txtNum(5) = .PushTimerInterval
- .AutoRedraw = True
- End With
- End Sub
- Private Sub txtField_Change()
- cmdxDemo.Caption = txtField
- End Sub
- Private Sub txtNum_Change(Index As Integer)
- Select Case Index
- Case 0: SetProperty "CaptionOffsetX", Val(txtNum(Index))
- Case 1: SetProperty "CaptionOffsetY", Val(txtNum(Index))
- Case 2: SetProperty "PictureOffsetX", Val(txtNum(Index))
- Case 3: SetProperty "PictureOffsety", Val(txtNum(Index))
- Case 4: SetProperty "BorderWidth", Val(txtNum(Index))
- Case 5: SetProperty "PushTimerInterval", Val(txtNum(Index))
- End Select
- End Sub
-