home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{9973B72E-F1FF-4E96-AA76-225706910672}#4.8#0"; "FlatStrip5.ocx"
- Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
- Begin VB.Form frmPictures
- BorderStyle = 3 'Fixed Dialog
- Caption = "Pictures Demonstration"
- ClientHeight = 4605
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 7710
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "Pictures.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 307
- ScaleMode = 3 'Pixel
- ScaleWidth = 514
- StartUpPosition = 2 'CenterScreen
- Begin VB.ComboBox cboDisplayStyle
- Height = 315
- ItemData = "Pictures.frx":014A
- Left = 5580
- List = "Pictures.frx":0154
- Style = 2 'Dropdown List
- TabIndex = 10
- Top = 2790
- Width = 1905
- End
- Begin VB.Frame Frame1
- BorderStyle = 0 'None
- Caption = "Frame1"
- Height = 330
- Left = 315
- TabIndex = 7
- Top = 3600
- Width = 1410
- Begin VB.Label Label2
- AutoSize = -1 'True
- Caption = "ImageList Keys"
- Height = 195
- Left = 45
- TabIndex = 8
- Top = 45
- Width = 1080
- End
- End
- Begin VB.Frame fraCaption
- BorderStyle = 0 'None
- Caption = "Frame1"
- Height = 375
- Left = 315
- TabIndex = 5
- Top = 2295
- Width = 1680
- Begin VB.Label Label1
- AutoSize = -1 'True
- Caption = "StdPicture Objects"
- Height = 195
- Left = 45
- TabIndex = 6
- Top = 45
- Width = 1335
- End
- End
- Begin MSComctlLib.ImageList ilsIcons
- Left = 5490
- Top = 3870
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 4
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Pictures.frx":0180
- Key = "exe"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Pictures.frx":02DA
- Key = "dll"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Pictures.frx":0434
- Key = "ocx"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Pictures.frx":058E
- Key = ""
- EndProperty
- EndProperty
- End
- Begin VB.CheckBox chkEnabled
- Caption = "&Enabled"
- Height = 330
- Left = 5580
- TabIndex = 4
- Top = 3285
- Value = 1 'Checked
- Width = 1230
- End
- Begin VB.ComboBox cboTabPosition
- Height = 315
- ItemData = "Pictures.frx":0698
- Left = 5580
- List = "Pictures.frx":06A8
- Style = 2 'Dropdown List
- TabIndex = 2
- Top = 2070
- Width = 1905
- End
- Begin FlatStripCtl.FlatStrip fstDemo
- Height = 1185
- Index = 0
- Left = 180
- Top = 1845
- Width = 5190
- _extentx = 9155
- _extenty = 2090
- imagelist = "ilsTest"
- font = "Pictures.frx":06E6
- tabcount = 3
- tab1caption = "Item #1"
- tab1picture = "Pictures.frx":070E
- tab2caption = "Item #2"
- tab2picture = "Pictures.frx":0A60
- tab3caption = "Item #3"
- tab3picture = "Pictures.frx":0DB2
- End
- Begin VB.CommandButton cmdClose
- Cancel = -1 'True
- Caption = "C&lose"
- Default = -1 'True
- Height = 330
- Left = 6345
- TabIndex = 0
- Top = 4050
- Width = 1140
- End
- Begin FlatStripDemonstration.pucTextTip pucTextTip1
- Height = 780
- Left = 180
- TabIndex = 1
- Top = 900
- Width = 7350
- _extentx = 12965
- _extenty = 1376
- font = "Pictures.frx":1104
- text = $"Pictures.frx":112C
- End
- Begin FlatStripCtl.FlatStrip fstDemo
- Height = 1185
- Index = 1
- Left = 180
- Top = 3150
- Width = 5190
- _extentx = 9155
- _extenty = 2090
- imagelist = "ilsIcons"
- font = "Pictures.frx":124C
- tabcount = 4
- tab1caption = "Item #1"
- tab1picture = "exe"
- tab1picture = "exe"
- tab2caption = "Item #2"
- tab2picture = "dll"
- tab2picture = "dll"
- tab3caption = "Item #3"
- tab3picture = "ocx"
- tab3picture = "ocx"
- tab4caption = "Item #4"
- tab4key = "item4"
- tab4picture = "tab"
- tab4picture = "tab"
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&DisplayStyle:"
- Height = 195
- Index = 1
- Left = 5580
- TabIndex = 9
- Top = 2565
- Width = 930
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&TabPosition:"
- Height = 195
- Index = 0
- Left = 5580
- TabIndex = 3
- Top = 1845
- Width = 885
- End
- Begin FlatStripDemonstration.pucLogoPane pucLogoPane1
- Align = 1 'Align Top
- Height = 750
- Left = 0
- Top = 0
- Width = 7710
- _extentx = 13600
- _extenty = 1323
- picture = "Pictures.frx":1274
- End
- Attribute VB_Name = "frmPictures"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub cboDisplayStyle_Click()
- fstDemo(0).DisplayStyle = cboDisplayStyle.ListIndex
- fstDemo(1).DisplayStyle = cboDisplayStyle.ListIndex
- End Sub
- Private Sub cboTabPosition_Click()
- fstDemo(0).TabPosition = cboTabPosition.ListIndex
- fstDemo(1).TabPosition = cboTabPosition.ListIndex
- End Sub
- Private Sub chkEnabled_Click()
- fstDemo(0).Enabled = chkEnabled
- fstDemo(1).Enabled = chkEnabled
- End Sub
- Private Sub cmdClose_Click()
- Unload Me
- End Sub
- Private Sub Form_Load()
- cboTabPosition.ListIndex = fstDemo(0).TabPosition
- chkEnabled.Value = Abs(fstDemo(0).Enabled)
- cboDisplayStyle.ListIndex = fstDemo(0).DisplayStyle
- End Sub
-