home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{9973B72E-F1FF-4E96-AA76-225706910672}#4.8#0"; "FlatStrip5.ocx"
- Begin VB.Form frmScrollBox
- BorderStyle = 3 'Fixed Dialog
- Caption = "ScrollBox Demonstration"
- ClientHeight = 5790
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 7845
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "ScrollBox.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 386
- ScaleMode = 3 'Pixel
- ScaleWidth = 523
- StartUpPosition = 2 'CenterScreen
- Begin VB.ComboBox cboScrollStyle
- Height = 315
- ItemData = "ScrollBox.frx":014A
- Left = 4320
- List = "ScrollBox.frx":0154
- Style = 2 'Dropdown List
- TabIndex = 6
- Top = 5220
- Width = 1905
- End
- Begin VB.CommandButton cmdClose
- Cancel = -1 'True
- Caption = "C&lose"
- Default = -1 'True
- Height = 330
- Left = 6480
- TabIndex = 7
- Top = 5220
- Width = 1140
- End
- Begin VB.ComboBox cboTabPosition
- Height = 315
- ItemData = "ScrollBox.frx":0175
- Left = 180
- List = "ScrollBox.frx":0185
- Style = 2 'Dropdown List
- TabIndex = 2
- Top = 5220
- Width = 1905
- End
- Begin VB.ComboBox cboAlignment
- Height = 315
- ItemData = "ScrollBox.frx":01C3
- Left = 2250
- List = "ScrollBox.frx":01CD
- Style = 2 'Dropdown List
- TabIndex = 4
- Top = 5220
- Width = 1905
- End
- Begin FlatStripDemonstration.pucTextTip pucTextTip1
- Height = 600
- Left = 180
- TabIndex = 0
- Top = 900
- Width = 7440
- _extentx = 13123
- _extenty = 1058
- font = "ScrollBox.frx":01EC
- text = $"ScrollBox.frx":0214
- End
- Begin FlatStripCtl.FlatStrip ftsDemo
- Height = 3120
- Left = 180
- Top = 1710
- Width = 7440
- _extentx = 13123
- _extenty = 5503
- activetab = 1
- font = "ScrollBox.frx":02B5
- tabcount = 20
- tab1caption = "Tab 1"
- tab1selected = -1 'True
- tab2caption = "Tab 2"
- tab3caption = "Tab 3"
- tab4caption = "Tab 4"
- tab5caption = "Tab 5"
- tab6caption = "Tab 6"
- tab7caption = "Tab 7"
- tab8caption = "Tab 8"
- tab9caption = "Tab 9"
- tab10caption = "Tab 10"
- tab11caption = "Tab 11"
- tab12caption = "Tab 12"
- tab13caption = "Tab 13"
- tab14caption = "Tab 14"
- tab15caption = "Tab 15"
- tab16caption = "Tab 16"
- tab17caption = "Tab 17"
- tab18caption = "Tab 18"
- tab19caption = "Tab 19"
- tab20caption = "Tab 20"
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&ScrollStyle:"
- Height = 195
- Index = 2
- Left = 4320
- TabIndex = 5
- Top = 4995
- Width = 795
- End
- Begin FlatStripDemonstration.pucLogoPane pucLogoPane1
- Align = 1 'Align Top
- Height = 750
- Left = 0
- Top = 0
- Width = 7845
- _extentx = 13838
- _extenty = 1323
- picture = "ScrollBox.frx":02DD
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&TabPosition:"
- Height = 195
- Index = 0
- Left = 180
- TabIndex = 1
- Top = 4995
- Width = 885
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&Alignment:"
- Height = 195
- Index = 1
- Left = 2250
- TabIndex = 3
- Top = 4995
- Width = 765
- End
- Attribute VB_Name = "frmScrollBox"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub cboAlignment_Click()
- ftsDemo.Alignment = cboAlignment.ListIndex
- End Sub
- Private Sub cboScrollStyle_Click()
- ftsDemo.ScrollStyle = cboScrollStyle.ListIndex
- End Sub
- Private Sub cboTabPosition_Click()
- ftsDemo.TabPosition = cboTabPosition.ListIndex
- End Sub
- Private Sub cmdClose_Click()
- Unload Me
- End Sub
- Private Sub Form_Load()
- cboTabPosition.ListIndex = ftsDemo.TabPosition
- cboAlignment.ListIndex = ftsDemo.Alignment
- cboScrollStyle.ListIndex = ftsDemo.ScrollStyle
- End Sub
-