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 frmToolbarDemonstration
- BorderStyle = 3 'Fixed Dialog
- Caption = "Toolbar Demonstration"
- ClientHeight = 4965
- ClientLeft = 1485
- ClientTop = 1455
- ClientWidth = 6645
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "Toolbar.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 331
- ScaleMode = 3 'Pixel
- ScaleWidth = 443
- ShowInTaskbar = 0 'False
- Begin VB.CheckBox chkDithered
- Caption = "Dithered"
- Height = 240
- Left = 630
- TabIndex = 13
- Top = 2880
- Width = 1365
- End
- Begin VB.CommandButton cmdProperties
- Caption = "Font..."
- Height = 375
- Index = 1
- Left = 2565
- TabIndex = 8
- Top = 1035
- Width = 1185
- End
- Begin VB.CommandButton cmdProperties
- Caption = "Colours..."
- Height = 375
- Index = 0
- Left = 2565
- TabIndex = 7
- Top = 630
- Width = 1185
- End
- Begin VB.ComboBox cboCaptionAlignment
- Height = 315
- ItemData = "Toolbar.frx":0E42
- Left = 630
- List = "Toolbar.frx":0E52
- Style = 2 'Dropdown List
- TabIndex = 6
- Top = 2475
- Width = 1725
- End
- Begin VB.CheckBox chkFlatToolbar
- Caption = "Flat Toolbar"
- Height = 240
- Left = 630
- TabIndex = 0
- Top = 630
- Width = 1365
- End
- Begin VB.CheckBox chkPicture
- Caption = "Show Picture"
- Height = 240
- Left = 630
- TabIndex = 1
- Top = 900
- Width = 1365
- End
- Begin VB.CheckBox chkEnabled
- Caption = "Enabled"
- Height = 240
- Left = 630
- TabIndex = 2
- Top = 1170
- Value = 1 'Checked
- Width = 1365
- End
- Begin VB.ComboBox cboCaption
- Height = 315
- ItemData = "Toolbar.frx":0EA8
- Left = 630
- List = "Toolbar.frx":0EB5
- Style = 2 'Dropdown List
- TabIndex = 4
- Top = 1800
- Width = 1725
- End
- Begin AIFCmp1.asxToolbar tbrFontDemo
- Height = 465
- Left = 4320
- Top = 630
- Width = 1410
- _ExtentX = 2487
- _ExtentY = 820
- 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
- ButtonGap = 6
- BorderStyle = 3
- 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
- ButtonCount = 3
- SolidChecked = -1 'True
- ShowSeparators = -1 'True
- ButtonChecked1 = -1 'True
- ButtonKey1 = "Left"
- ButtonPicture1 = "Toolbar.frx":0EEE
- ButtonToolTipText1= "Left"
- ButtonGroupID1 = 1
- ButtonKey2 = "Center"
- ButtonPicture2 = "Toolbar.frx":1240
- ButtonToolTipText2= "Center"
- ButtonGroupID2 = 1
- ButtonKey3 = "Right"
- ButtonPicture3 = "Toolbar.frx":1592
- ButtonToolTipText3= "Right"
- ButtonGroupID3 = 1
- End
- Begin AIFCmp1.asxToolbar tbrDemo
- Align = 1 'Align Top
- Height = 510
- Left = 0
- Top = 0
- Width = 6645
- _ExtentX = 11721
- _ExtentY = 900
- 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
- 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
- ButtonCount = 15
- CaptionOptions = 2
- ButtonCaption1 = "Back"
- ButtonDescription1= "Display previous page from History"
- ButtonPicture1 = "Toolbar.frx":18E4
- ButtonPictureOver1= "Toolbar.frx":1DE6
- ButtonToolTipText1= "Back"
- ButtonCaption2 = "Next"
- ButtonDescription2= "Display next page from history"
- ButtonPicture2 = "Toolbar.frx":22E8
- ButtonPictureOver2= "Toolbar.frx":27EA
- ButtonToolTipText2= "Next"
- ButtonDescription3= "Stop loading a page"
- ButtonPicture3 = "Toolbar.frx":2CEC
- ButtonPictureOver3= "Toolbar.frx":31EE
- ButtonToolTipText3= "Stop"
- ButtonCaption4 = "Refresh"
- ButtonDescription4= "Refresh the current page"
- ButtonPicture4 = "Toolbar.frx":36F0
- ButtonPictureOver4= "Toolbar.frx":3BF2
- ButtonToolTipText4= "Refresh"
- ButtonAlwaysShowCaption4= -1 'True
- ButtonDescription5= "Displays your home page"
- ButtonPicture5 = "Toolbar.frx":40F4
- ButtonPictureOver5= "Toolbar.frx":45F6
- ButtonToolTipText5= "Home"
- ButtonStyle6 = 2
- ButtonDescription7= "Displays a search engine"
- ButtonPicture7 = "Toolbar.frx":4AF8
- ButtonPictureOver7= "Toolbar.frx":4FFA
- ButtonToolTipText7= "Search"
- ButtonDescription8= "Displays your favourites menu"
- ButtonPicture8 = "Toolbar.frx":54FC
- ButtonPictureOver8= "Toolbar.frx":59FE
- ButtonToolTipText8= "Favourites"
- ButtonDescription9= "Displays your history list"
- ButtonPicture9 = "Toolbar.frx":5F00
- ButtonPictureOver9= "Toolbar.frx":6402
- ButtonToolTipText9= "History"
- ButtonStyle10 = 2
- ButtonDescription11= "Allows you to set options"
- ButtonPicture11 = "Toolbar.frx":6904
- ButtonPictureOver11= "Toolbar.frx":6E06
- ButtonPictureDown11= "Toolbar.frx":7308
- ButtonToolTipText11= "Options"
- ButtonStyle12 = 2
- ButtonDescription13= "Displays the page full screen"
- ButtonPicture13 = "Toolbar.frx":780A
- ButtonPictureOver13= "Toolbar.frx":7D0C
- ButtonToolTipText13= "Full Screen"
- ButtonDescription14= "Allows the page to be edited"
- ButtonPicture14 = "Toolbar.frx":820E
- ButtonPictureOver14= "Toolbar.frx":8760
- ButtonToolTipText14= "Edit"
- ButtonStyle15 = 2
- End
- Begin AIFCmp1.asxToolbar tbrHeader
- Height = 2580
- Left = 0
- Top = 540
- Width = 510
- _ExtentX = 900
- _ExtentY = 4551
- 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
- TextColor = 12582912
- TextDisabledColor= 8421504
- ButtonGap = 6
- BorderStyle = 0
- BackColor = 255
- HighlightColor = 12632319
- ShadowColor = 192
- HighlightDarkColor= 8421631
- ShadowDarkColor = 128
- 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
- ButtonCount = 3
- ShowSeparators = -1 'True
- ButtonCaption1 = "Code"
- ButtonKey1 = "Code"
- ButtonPicture1 = "Toolbar.frx":8CB2
- ButtonToolTipText1= "Display Code Module"
- ButtonGroupID1 = 1
- ButtonCaption2 = "Notes"
- ButtonKey2 = "Notes"
- ButtonPicture2 = "Toolbar.frx":9004
- ButtonToolTipText2= "Display Code Description"
- ButtonGroupID2 = 1
- ButtonKey3 = "Example"
- ButtonPicture3 = "Toolbar.frx":9356
- ButtonToolTipText3= "Display examples on using the code"
- ButtonGroupID3 = 1
- End
- Begin AriadIFceCompTest.EventList lstEvents
- Height = 1050
- Left = 90
- TabIndex = 12
- Top = 3825
- Width = 6450
- _ExtentX = 11377
- _ExtentY = 1852
- End
- Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1
- Height = 30
- Left = 45
- TabIndex = 9
- Top = 3240
- 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 = 11
- Top = 3330
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "Toolbar.frx":96A8
- 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 = 10
- Top = 3330
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "Toolbar.frx":9802
- 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 = "CaptionAlignment:"
- Height = 195
- Index = 0
- Left = 630
- TabIndex = 5
- Top = 2250
- Width = 1320
- End
- Begin VB.Image imgBackground
- Height = 960
- Left = 5355
- Picture = "Toolbar.frx":995C
- Top = 1665
- Visible = 0 'False
- Width = 960
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "CaptionOptions:"
- Height = 195
- Index = 4
- Left = 630
- TabIndex = 3
- Top = 1575
- Width = 1170
- End
- Attribute VB_Name = "frmToolbarDemonstration"
- 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: tbrDemo.About
- Case 2: Unload Me
- End Select
- End Sub
- Private Sub cboCaption_Click()
- tbrDemo.CaptionOptions = cboCaption.ListIndex
- End Sub
- Private Sub cboCaptionAlignment_Click()
- tbrDemo.CaptionAlignment = cboCaptionAlignment.ListIndex
- End Sub
- Private Sub chkDithered_Click()
- Dim I
- For I = 1 To tbrDemo.ButtonCount
- tbrDemo.ButtonDithered(I) = chkDithered
- Next
- End Sub
- Private Sub chkEnabled_Click()
- Dim V As Boolean
- V = chkEnabled
- tbrDemo.Enabled = V
- tbrFontDemo.Enabled = V
- tbrHeader.Enabled = V
- End Sub
- Private Sub chkFlatToolbar_Click()
- Dim A As IFCAppearances
- A = IIf(chkFlatToolbar, ifcaFlat, ifcaStandard)
- tbrDemo.Appearance = A
- tbrFontDemo.Appearance = A
- tbrHeader.Appearance = A
- End Sub
- Private Sub chkPicture_Click()
- Set tbrDemo.Picture = IIf(chkPicture, imgBackground, Nothing)
- End Sub
- Private Sub cmdProperties_Click(Index As Integer)
- Select Case Index
- Case 0: PropPage.ShowPicker hWnd, "Object Colour", tbrDemo, ppickColor
- Case 1: PropPage.ShowPicker hWnd, "Object Font", tbrDemo, ppickFont
- End Select
- End Sub
- Private Sub Form_Load()
- cboCaption.ListIndex = iftoSelectedLabels
- cboCaptionAlignment.ListIndex = ifcaCaptionOnRight
- End Sub
- Private Sub tbrDemo_BeforeButtonClick(ByVal ButtonIndex As Integer, ByVal ButtonKey As String, Cancel As Boolean)
- lstEvents.Add "tbrDemo_BeforeButtonClick(" & ButtonIndex & "," & ButtonKey & ")"
- End Sub
- Private Sub tbrDemo_ButtonClick(ByVal ButtonIndex As Integer, ByVal ButtonKey As String)
- lstEvents.Add "tbrDemo_ButtonClick(" & ButtonIndex & "," & ButtonKey & ")"
- End Sub
- Private Sub tbrDemo_ButtonMouseOver(ByVal ButtonIndex As Integer, ByVal ButtonKey As String)
- lstEvents.Add "tbrDemo_ButtonMouseOver(" & ButtonIndex & "," & ButtonKey & ")"
- End Sub
- Private Sub tbrDemo_ButtonRightClick(ByVal ButtonIndex As Integer, ByVal ButtonKey As String, CancelBeep As Boolean)
- lstEvents.Add "tbrDemo_ButtonRightClick(" & ButtonIndex & "," & ButtonKey & ")"
- End Sub
- Private Sub tbrDemo_Click()
- lstEvents.Add "tbrDemo_Click()"
- End Sub
- Private Sub tbrDemo_DblClick()
- lstEvents.Add "tbrDemo_DblClick()"
- End Sub
- Private Sub tbrDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "tbrDemo_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
- End Sub
- Private Sub tbrDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "tbrDemo_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
- End Sub
- Private Sub tbrDemo_Resize(ByVal NewWidth As Single, ByVal NewHeight As Single)
- lstEvents.Add "tbrDemo_Resize(" & NewWidth & "," & NewHeight & ")"
- End Sub
- Private Sub tbrDemo_RightClick()
- lstEvents.Add "tbrDemo_RightClick()"
- End Sub
-