home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{9973B72E-F1FF-4E96-AA76-225706910672}#4.5#0"; "FlatStrip5.ocx"
- Begin VB.Form frmElements
- BorderStyle = 3 'Fixed Dialog
- Caption = "Elements Demonstrations"
- ClientHeight = 6420
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 7815
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "Elements.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 428
- ScaleMode = 3 'Pixel
- ScaleWidth = 521
- StartUpPosition = 2 'CenterScreen
- Begin VB.ComboBox cboDisplayStyle
- Height = 315
- ItemData = "Elements.frx":014A
- Left = 225
- List = "Elements.frx":0154
- Style = 2 'Dropdown List
- TabIndex = 10
- Top = 5850
- Width = 1995
- End
- Begin VB.PictureBox picClient
- Height = 1770
- Left = 720
- ScaleHeight = 114
- ScaleMode = 3 'Pixel
- ScaleWidth = 249
- TabIndex = 11
- Top = 2430
- Width = 3795
- Begin VB.Shape shpClient
- BorderStyle = 0 'Transparent
- DrawMode = 9 'Not Mask Pen
- FillColor = &H00E0E0E0&
- FillStyle = 7 'Diagonal Cross
- Height = 735
- Left = 0
- Top = 0
- Width = 1995
- End
- End
- Begin VB.CheckBox chkShowClientArea
- Caption = "ShowClient&Area"
- Height = 465
- Left = 5355
- TabIndex = 8
- Top = 4995
- Width = 1680
- End
- Begin VB.TextBox txtField
- Height = 285
- Index = 1
- Left = 3825
- TabIndex = 7
- Top = 5175
- Width = 1230
- End
- Begin VB.TextBox txtField
- Height = 285
- Index = 0
- Left = 2385
- TabIndex = 5
- Top = 5175
- Width = 1230
- End
- Begin VB.CommandButton cmdClose
- Cancel = -1 'True
- Caption = "C&lose"
- Default = -1 'True
- Height = 330
- Left = 6435
- TabIndex = 1
- Top = 5895
- Width = 1140
- End
- Begin VB.ComboBox cboTabPosition
- Height = 315
- ItemData = "Elements.frx":0180
- Left = 180
- List = "Elements.frx":0190
- Style = 2 'Dropdown List
- TabIndex = 0
- Top = 5175
- Width = 1995
- End
- Begin FlatStripDemonstration.pucTextTip pucTextTip1
- Height = 600
- Left = 180
- TabIndex = 2
- Top = 900
- Width = 7440
- _ExtentX = 13123
- _ExtentY = 1058
- 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 = $"Elements.frx":01CE
- End
- Begin FlatStripCtl.FlatStrip ftsDemo
- Height = 3120
- Left = 180
- Top = 1665
- Width = 7440
- _ExtentX = 13123
- _ExtentY = 5503
- ActiveTab = 1
- 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
- TabCount = 3
- Tab1Caption = "Tab #1"
- Tab1Selected = -1 'True
- Tab2Caption = "Tab #2"
- Tab3Caption = "Tab #3"
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&DisplayStyle:"
- Height = 195
- Index = 3
- Left = 225
- TabIndex = 9
- Top = 5625
- Width = 930
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Tab&Height:"
- Height = 195
- Index = 2
- Left = 3825
- TabIndex = 6
- Top = 4950
- Width = 795
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&BorderWidth:"
- Height = 195
- Index = 1
- Left = 2385
- TabIndex = 4
- Top = 4950
- Width = 960
- End
- Begin FlatStripDemonstration.pucLogoPane pucLogoPane1
- Align = 1 'Align Top
- Height = 750
- Left = 0
- Top = 0
- Width = 7815
- _ExtentX = 13785
- _ExtentY = 1323
- Picture = "Elements.frx":0271
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&TabPosition:"
- Height = 195
- Index = 0
- Left = 180
- TabIndex = 3
- Top = 4950
- Width = 885
- End
- Attribute VB_Name = "frmElements"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub cboDisplayStyle_Click()
- ftsDemo.DisplayStyle = cboDisplayStyle.ListIndex
- End Sub
- Private Sub cboTabPosition_Click()
- ftsDemo.TabPosition = cboTabPosition.ListIndex
- End Sub
- Private Sub chkShowClientArea_Click()
- ftsDemo.ShowClientArea = chkShowClientArea.Value
- picClient.Visible = ftsDemo.ShowClientArea
- End Sub
- Private Sub cmdClose_Click()
- Unload Me
- End Sub
- Private Sub Form_Load()
- With ftsDemo
- cboTabPosition.ListIndex = .TabPosition
- txtField(0).Text = .BorderWidth
- txtField(1).Text = .TabHeight
- chkShowClientArea.Value = Abs(.ShowClientArea)
- cboDisplayStyle.ListIndex = .DisplayStyle
- End With
- End Sub
- Private Sub ftsDemo_Resize(ByVal ClientLeft As Long, ByVal ClientTop As Long, ByVal ClientWidth As Long, ByVal ClientHeight As Long)
- On Error Resume Next
- picClient.Move ClientLeft, ClientTop, ClientWidth, ClientHeight
- On Error GoTo 0
- End Sub
- Private Sub picClient_Resize()
- On Error Resume Next
- shpClient.Move 0, 0, picClient.ScaleWidth + 1, picClient.ScaleHeight + 1
- On Error GoTo 0
- End Sub
- Private Sub txtField_Change(Index As Integer)
- Select Case Index
- Case 0: ftsDemo.BorderWidth = Val(txtField(Index).Text)
- Case 1: ftsDemo.TabHeight = Val(txtField(Index).Text)
- End Select
- End Sub
-