home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
- Begin VB.Form frmToolboxDemonstration
- BorderStyle = 3 'Fixed Dialog
- Caption = "Toolbox Demonstration"
- ClientHeight = 3885
- ClientLeft = 1890
- ClientTop = 1305
- ClientWidth = 6645
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "Toolbox.frx":0000
- LinkTopic = "Form2"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 259
- ScaleMode = 3 'Pixel
- ScaleWidth = 443
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin VB.CommandButton cmdColours
- Caption = "&Colours..."
- Height = 375
- Left = 3780
- TabIndex = 3
- Top = 1305
- Width = 1185
- End
- Begin VB.CheckBox chkClick
- Caption = "Buttons Stay Down with Click"
- Height = 240
- Left = 3780
- TabIndex = 2
- Top = 90
- Value = 1 'Checked
- Width = 2715
- End
- Begin VB.CheckBox chkEnabled
- Caption = "Enabled"
- Height = 240
- Left = 3780
- TabIndex = 1
- Top = 360
- Value = 1 'Checked
- Width = 1995
- End
- Begin VB.CommandButton cmdFloat
- Caption = "Floating..."
- Height = 375
- Left = 3780
- TabIndex = 0
- Top = 900
- Width = 1185
- End
- Begin AIFCmp1.asxToolbox tbxDemo
- Height = 1920
- Left = 45
- Top = 90
- Width = 3645
- _ExtentX = 6429
- _ExtentY = 3387
- BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ButtonCount = 18
- ButtonPicture1 = "Toolbox.frx":0E42
- ButtonPictureOver1= "Toolbox.frx":1344
- ButtonToolTipText1= "Back"
- ButtonPicture2 = "Toolbox.frx":1846
- ButtonPictureOver2= "Toolbox.frx":1D48
- ButtonToolTipText2= "Open"
- ButtonPicture3 = "Toolbox.frx":224A
- ButtonPictureOver3= "Toolbox.frx":274C
- ButtonToolTipText3= "Save"
- ButtonPicture4 = "Toolbox.frx":2C4E
- ButtonPictureOver4= "Toolbox.frx":3150
- ButtonToolTipText4= "Copy"
- ButtonPicture5 = "Toolbox.frx":3652
- ButtonPictureOver5= "Toolbox.frx":3B54
- ButtonToolTipText5= "Cut"
- ButtonPicture6 = "Toolbox.frx":4056
- ButtonPictureOver6= "Toolbox.frx":4558
- ButtonToolTipText6= "Paste"
- ButtonPicture7 = "Toolbox.frx":4A5A
- ButtonPictureOver7= "Toolbox.frx":4F5C
- ButtonToolTipText7= "Delete"
- ButtonPicture8 = "Toolbox.frx":545E
- ButtonPictureOver8= "Toolbox.frx":5960
- ButtonToolTipText8= "Undo"
- ButtonPicture9 = "Toolbox.frx":5E62
- ButtonPictureOver9= "Toolbox.frx":6364
- ButtonToolTipText9= "Redo"
- ButtonPicture10 = "Toolbox.frx":6866
- ButtonPictureOver10= "Toolbox.frx":6D68
- ButtonToolTipText10= "Properties"
- ButtonPicture11 = "Toolbox.frx":726A
- ButtonPictureOver11= "Toolbox.frx":776C
- ButtonToolTipText11= "Print"
- ButtonPicture12 = "Toolbox.frx":7BF6
- ButtonPictureOver12= "Toolbox.frx":80F8
- ButtonToolTipText12= "Find"
- ButtonPicture13 = "Toolbox.frx":85FA
- ButtonPictureOver13= "Toolbox.frx":8AFC
- ButtonToolTipText13= "Find Next"
- ButtonPicture14 = "Toolbox.frx":8FFE
- ButtonPictureOver14= "Toolbox.frx":9500
- ButtonToolTipText14= "View Icons"
- ButtonPicture15 = "Toolbox.frx":9A02
- ButtonPictureOver15= "Toolbox.frx":9F04
- ButtonToolTipText15= "View Small Icons"
- ButtonPicture16 = "Toolbox.frx":A406
- ButtonPictureOver16= "Toolbox.frx":A908
- ButtonToolTipText16= "View List"
- ButtonPicture17 = "Toolbox.frx":AE0A
- ButtonPictureOver17= "Toolbox.frx":B30C
- ButtonToolTipText17= "View Details"
- ButtonPicture18 = "Toolbox.frx":B80E
- ButtonPictureOver18= "Toolbox.frx":BD10
- ButtonToolTipText18= "What's This Help"
- End
- Begin AriadIFceCompTest.EventList lstEvents
- Height = 1050
- Left = 90
- TabIndex = 4
- Top = 2700
- Width = 6450
- _ExtentX = 11377
- _ExtentY = 1852
- End
- Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1
- Height = 30
- Left = 45
- TabIndex = 5
- Top = 2115
- Width = 6495
- _ExtentX = 11456
- _ExtentY = 53
- 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
- Caption = ""
- TextColor = 0
- End
- Begin AIFCmp1.asxPowerButton btnAction
- Cancel = -1 'True
- Default = -1 'True
- Height = 420
- Index = 2
- Left = 5310
- TabIndex = 6
- Top = 2205
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "Toolbox.frx":C212
- Caption = "C&lose"
- CaptionOffsetX = 8
- 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
- PictureAlignment= 3
- End
- Begin AIFCmp1.asxPowerButton btnAction
- Height = 420
- Index = 1
- Left = 4050
- TabIndex = 7
- Top = 2205
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "Toolbox.frx":C36C
- Caption = "&About..."
- CaptionOffsetX = 8
- 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
- PictureAlignment= 3
- End
- Attribute VB_Name = "frmToolboxDemonstration"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- DefInt A-Z
- Private Sub btnAction_Click(Index As Integer)
- Select Case Index
- Case 1: tbxDemo.About
- Case 2: Unload Me
- End Select
- End Sub
- Private Sub chkClick_Click()
- tbxDemo.ClickStyle = IIf(chkClick, txcsToolbar, txcsNoStick)
- End Sub
- Private Sub chkEnabled_Click()
- tbxDemo.Enabled = chkEnabled
- End Sub
- Private Sub cmdColours_Click()
- PropPage.ShowPicker hWnd, "Object Colour", tbxDemo, ppickColor
- End Sub
- Private Sub cmdFloat_Click()
- frmFloatingToolbox.Show 1, Me
- End Sub
- Private Sub tbxDemo_ButtonChange(ByVal ButtonIndex As Integer, Cancel As Boolean)
- lstEvents.Add "tbxDemo_ButtonChange(" & ButtonIndex & ",0)"
- End Sub
- Private Sub tbxDemo_ButtonMouseOver(ByVal ButtonIndex As Integer)
- lstEvents.Add "tbxDemo_ButtonMouseOver(" & ButtonIndex & ")"
- End Sub
- Private Sub tbxDemo_ButtonRightClick(ByVal ButtonIndex As Integer, CancelBeep As Boolean)
- lstEvents.Add "tbxDemo_ButtonRightClick(" & ButtonIndex & "0,)"
- End Sub
- Private Sub tbxDemo_Click()
- lstEvents.Add "tbxDemo_Click()"
- End Sub
- Private Sub tbxDemo_DblClick()
- lstEvents.Add "tbxDemo_DblClick()"
- End Sub
- Private Sub tbxDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "tbxDemo_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
- End Sub
- Private Sub tbxDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "tbxDemo_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
- End Sub
- Private Sub tbxDemo_Resize(ByVal NewWidth As Single, ByVal NewHeight As Single)
- lstEvents.Add "tbxDemo_Resize(" & NewWidth & "," & NewHeight & ")"
- End Sub
-