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 frmStatusBarDemonstration
- BorderStyle = 3 'Fixed Dialog
- Caption = "StatusBar Demonstration"
- ClientHeight = 4035
- ClientLeft = 840
- ClientTop = 1530
- ClientWidth = 6585
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "StatusBar.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 269
- ScaleMode = 3 'Pixel
- ScaleWidth = 439
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin AIFCmp1.asxStatusBar asxStatusBar1
- Height = 330
- Left = 2385
- Top = 1845
- Width = 4065
- _ExtentX = 7170
- _ExtentY = 582
- 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
- PanelCount = 2
- PanelCaption1 = "An AutoSized Panel"
- PanelKey1 = "Icon"
- PanelPicture1 = "StatusBar.frx":0E42
- PanelToolTipText1= "Icon"
- PanelWidth1 = 117.987
- PanelAutoSize1 = -1 'True
- End
- Begin AriadIFceCompTest.EventList lstEvents
- Height = 1050
- Left = 90
- TabIndex = 10
- Top = 2880
- Width = 6405
- _ExtentX = 11298
- _ExtentY = 1852
- End
- Begin VB.CommandButton cmdProperties
- Caption = "Colours..."
- Height = 375
- Index = 0
- Left = 2385
- TabIndex = 5
- Top = 810
- Width = 1185
- End
- Begin VB.CommandButton cmdProperties
- Caption = "Font..."
- Height = 375
- Index = 1
- Left = 2385
- TabIndex = 6
- Top = 1215
- Width = 1185
- End
- Begin VB.CheckBox chkBackground
- Caption = "Background &Picture"
- Height = 285
- Left = 90
- TabIndex = 4
- Top = 1890
- Width = 1965
- End
- Begin VB.ComboBox cboBorderStyle
- Height = 315
- ItemData = "StatusBar.frx":1194
- Left = 90
- List = "StatusBar.frx":11AA
- Style = 2 'Dropdown List
- TabIndex = 1
- Top = 810
- Width = 1725
- End
- Begin VB.CheckBox chkDisabled
- Caption = "DisabledText&3D"
- Height = 285
- Left = 90
- TabIndex = 3
- Top = 1575
- Value = 1 'Checked
- Width = 1965
- End
- Begin VB.CheckBox chkEnabled
- Caption = "&Enabled"
- Height = 285
- Left = 90
- TabIndex = 2
- Top = 1260
- Value = 1 'Checked
- Width = 1965
- End
- Begin AIFCmp1.asxStatusBar sbrDemo
- Height = 330
- Left = 90
- Top = 90
- Width = 6360
- _ExtentX = 11218
- _ExtentY = 582
- 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
- PanelCount = 4
- PanelWidth1 = 60
- PanelAlignment1 = 2
- PanelMode1 = 5
- PanelWidth3 = 40
- PanelAlignment3 = 2
- PanelMode3 = 1
- PanelWidth4 = 40
- PanelAlignment4 = 2
- PanelMode4 = 2
- End
- Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1
- Height = 30
- Left = 90
- TabIndex = 7
- Top = 2295
- Width = 6360
- _ExtentX = 11218
- _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 = 5220
- TabIndex = 9
- Top = 2385
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "StatusBar.frx":1203
- 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 = 3960
- TabIndex = 8
- Top = 2385
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "StatusBar.frx":135D
- 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
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Border&Style:"
- Height = 195
- Index = 0
- Left = 90
- TabIndex = 0
- Top = 585
- Width = 900
- End
- Begin VB.Image imgTile
- Height = 2865
- Left = 2565
- Picture = "StatusBar.frx":14B7
- Top = 585
- Visible = 0 'False
- Width = 3900
- End
- Attribute VB_Name = "frmStatusBarDemonstration"
- 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: sbrDemo.About
- Case 2: Unload Me
- End Select
- End Sub
- Private Sub cboBorderStyle_Click()
- sbrDemo.BorderStyle = cboBorderStyle.ListIndex
- End Sub
- Private Sub chkBackground_Click()
- Set sbrDemo.Picture = IIf(chkBackground, imgTile, Nothing)
- End Sub
- Private Sub chkDisabled_Click()
- sbrDemo.DisabledText3D = chkDisabled
- End Sub
- Private Sub chkEnabled_Click()
- sbrDemo.Enabled = chkEnabled
- End Sub
- Private Sub cmdProperties_Click(Index As Integer)
- Select Case Index
- Case 0: PropPage.ShowPicker hWnd, "Object Colour", sbrDemo, ppickColor
- Case 1: PropPage.ShowPicker hWnd, "Object Font", sbrDemo, ppickFont
- End Select
- End Sub
- Private Sub Form_Load()
- cboBorderStyle.ListIndex = tbbsNone
- End Sub
- Private Sub sbrDemo_Click()
- lstEvents.Add "sbrDemo_Click()"
- End Sub
- Private Sub sbrDemo_DblClick()
- lstEvents.Add "sbrDemo_DblClick()"
- End Sub
- Private Sub sbrDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "sbrDemo_MouseDown(" & Button & "," & Shift & "," & Y & ")"
- End Sub
- Private Sub sbrDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "sbrDemo_MouseUp(" & Button & "," & Shift & "," & Y & ")"
- End Sub
- Private Sub sbrDemo_PanelClick(ByVal PanelIndex As Integer, ByVal PanelKey As String)
- lstEvents.Add "sbrDemo_PanelClick(" & PanelIndex & "," & PanelKey & ")"
- End Sub
- Private Sub sbrDemo_PanelDblClick(ByVal PanelIndex As Integer, ByVal PanelKey As String)
- lstEvents.Add "sbrDemo_PanelDblClick(" & PanelIndex & "," & PanelKey & ")"
- End Sub
- Private Sub sbrDemo_PanelMouseOver(ByVal PanelIndex As Integer, ByVal PanelKey As String)
- lstEvents.Add "sbrDemo_PanelMouseOver(" & PanelIndex & "," & PanelKey & ")"
- End Sub
- Private Sub sbrDemo_PanelRightClick(ByVal PanelIndex As Integer, ByVal PanelKey As String)
- lstEvents.Add "sbrDemo_PanelRightClick(" & PanelIndex & "," & PanelKey & ")"
- End Sub
- Private Sub sbrDemo_Resize()
- lstEvents.Add "sbrDemo_Resize()"
- End Sub
- Private Sub sbrDemo_RightClick()
- lstEvents.Add "sbrDemo_RightClick()"
- End Sub
-