home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / fstrip5.exe / %MAINDIR% / Pictures.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  8.0 KB  |  243 lines
  1. VERSION 5.00
  2. Object = "{9973B72E-F1FF-4E96-AA76-225706910672}#4.8#0"; "FlatStrip5.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form frmPictures 
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Pictures Demonstration"
  7.    ClientHeight    =   4605
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   7710
  11.    BeginProperty Font 
  12.       Name            =   "Tahoma"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   400
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "Pictures.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   307
  25.    ScaleMode       =   3  'Pixel
  26.    ScaleWidth      =   514
  27.    StartUpPosition =   2  'CenterScreen
  28.    Begin VB.ComboBox cboDisplayStyle 
  29.       Height          =   315
  30.       ItemData        =   "Pictures.frx":014A
  31.       Left            =   5580
  32.       List            =   "Pictures.frx":0154
  33.       Style           =   2  'Dropdown List
  34.       TabIndex        =   10
  35.       Top             =   2790
  36.       Width           =   1905
  37.    End
  38.    Begin VB.Frame Frame1 
  39.       BorderStyle     =   0  'None
  40.       Caption         =   "Frame1"
  41.       Height          =   330
  42.       Left            =   315
  43.       TabIndex        =   7
  44.       Top             =   3600
  45.       Width           =   1410
  46.       Begin VB.Label Label2 
  47.          AutoSize        =   -1  'True
  48.          Caption         =   "ImageList Keys"
  49.          Height          =   195
  50.          Left            =   45
  51.          TabIndex        =   8
  52.          Top             =   45
  53.          Width           =   1080
  54.       End
  55.    End
  56.    Begin VB.Frame fraCaption 
  57.       BorderStyle     =   0  'None
  58.       Caption         =   "Frame1"
  59.       Height          =   375
  60.       Left            =   315
  61.       TabIndex        =   5
  62.       Top             =   2295
  63.       Width           =   1680
  64.       Begin VB.Label Label1 
  65.          AutoSize        =   -1  'True
  66.          Caption         =   "StdPicture Objects"
  67.          Height          =   195
  68.          Left            =   45
  69.          TabIndex        =   6
  70.          Top             =   45
  71.          Width           =   1335
  72.       End
  73.    End
  74.    Begin MSComctlLib.ImageList ilsIcons 
  75.       Left            =   5490
  76.       Top             =   3870
  77.       _ExtentX        =   1005
  78.       _ExtentY        =   1005
  79.       BackColor       =   -2147483643
  80.       ImageWidth      =   16
  81.       ImageHeight     =   16
  82.       MaskColor       =   12632256
  83.       _Version        =   393216
  84.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  85.          NumListImages   =   4
  86.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  87.             Picture         =   "Pictures.frx":0180
  88.             Key             =   "exe"
  89.          EndProperty
  90.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  91.             Picture         =   "Pictures.frx":02DA
  92.             Key             =   "dll"
  93.          EndProperty
  94.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  95.             Picture         =   "Pictures.frx":0434
  96.             Key             =   "ocx"
  97.          EndProperty
  98.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  99.             Picture         =   "Pictures.frx":058E
  100.             Key             =   ""
  101.          EndProperty
  102.       EndProperty
  103.    End
  104.    Begin VB.CheckBox chkEnabled 
  105.       Caption         =   "&Enabled"
  106.       Height          =   330
  107.       Left            =   5580
  108.       TabIndex        =   4
  109.       Top             =   3285
  110.       Value           =   1  'Checked
  111.       Width           =   1230
  112.    End
  113.    Begin VB.ComboBox cboTabPosition 
  114.       Height          =   315
  115.       ItemData        =   "Pictures.frx":0698
  116.       Left            =   5580
  117.       List            =   "Pictures.frx":06A8
  118.       Style           =   2  'Dropdown List
  119.       TabIndex        =   2
  120.       Top             =   2070
  121.       Width           =   1905
  122.    End
  123.    Begin FlatStripCtl.FlatStrip fstDemo 
  124.       Height          =   1185
  125.       Index           =   0
  126.       Left            =   180
  127.       Top             =   1845
  128.       Width           =   5190
  129.       _extentx        =   9155
  130.       _extenty        =   2090
  131.       imagelist       =   "ilsTest"
  132.       font            =   "Pictures.frx":06E6
  133.       tabcount        =   3
  134.       tab1caption     =   "Item #1"
  135.       tab1picture     =   "Pictures.frx":070E
  136.       tab2caption     =   "Item #2"
  137.       tab2picture     =   "Pictures.frx":0A60
  138.       tab3caption     =   "Item #3"
  139.       tab3picture     =   "Pictures.frx":0DB2
  140.    End
  141.    Begin VB.CommandButton cmdClose 
  142.       Cancel          =   -1  'True
  143.       Caption         =   "C&lose"
  144.       Default         =   -1  'True
  145.       Height          =   330
  146.       Left            =   6345
  147.       TabIndex        =   0
  148.       Top             =   4050
  149.       Width           =   1140
  150.    End
  151.    Begin FlatStripDemonstration.pucTextTip pucTextTip1 
  152.       Height          =   780
  153.       Left            =   180
  154.       TabIndex        =   1
  155.       Top             =   900
  156.       Width           =   7350
  157.       _extentx        =   12965
  158.       _extenty        =   1376
  159.       font            =   "Pictures.frx":1104
  160.       text            =   $"Pictures.frx":112C
  161.    End
  162.    Begin FlatStripCtl.FlatStrip fstDemo 
  163.       Height          =   1185
  164.       Index           =   1
  165.       Left            =   180
  166.       Top             =   3150
  167.       Width           =   5190
  168.       _extentx        =   9155
  169.       _extenty        =   2090
  170.       imagelist       =   "ilsIcons"
  171.       font            =   "Pictures.frx":124C
  172.       tabcount        =   4
  173.       tab1caption     =   "Item #1"
  174.       tab1picture     =   "exe"
  175.       tab1picture     =   "exe"
  176.       tab2caption     =   "Item #2"
  177.       tab2picture     =   "dll"
  178.       tab2picture     =   "dll"
  179.       tab3caption     =   "Item #3"
  180.       tab3picture     =   "ocx"
  181.       tab3picture     =   "ocx"
  182.       tab4caption     =   "Item #4"
  183.       tab4key         =   "item4"
  184.       tab4picture     =   "tab"
  185.       tab4picture     =   "tab"
  186.    End
  187.    Begin VB.Label lblHdr 
  188.       AutoSize        =   -1  'True
  189.       Caption         =   "&DisplayStyle:"
  190.       Height          =   195
  191.       Index           =   1
  192.       Left            =   5580
  193.       TabIndex        =   9
  194.       Top             =   2565
  195.       Width           =   930
  196.    End
  197.    Begin VB.Label lblHdr 
  198.       AutoSize        =   -1  'True
  199.       Caption         =   "&TabPosition:"
  200.       Height          =   195
  201.       Index           =   0
  202.       Left            =   5580
  203.       TabIndex        =   3
  204.       Top             =   1845
  205.       Width           =   885
  206.    End
  207.    Begin FlatStripDemonstration.pucLogoPane pucLogoPane1 
  208.       Align           =   1  'Align Top
  209.       Height          =   750
  210.       Left            =   0
  211.       Top             =   0
  212.       Width           =   7710
  213.       _extentx        =   13600
  214.       _extenty        =   1323
  215.       picture         =   "Pictures.frx":1274
  216.    End
  217. Attribute VB_Name = "frmPictures"
  218. Attribute VB_GlobalNameSpace = False
  219. Attribute VB_Creatable = False
  220. Attribute VB_PredeclaredId = True
  221. Attribute VB_Exposed = False
  222. Option Explicit
  223. Private Sub cboDisplayStyle_Click()
  224.     fstDemo(0).DisplayStyle = cboDisplayStyle.ListIndex
  225.     fstDemo(1).DisplayStyle = cboDisplayStyle.ListIndex
  226. End Sub
  227. Private Sub cboTabPosition_Click()
  228.     fstDemo(0).TabPosition = cboTabPosition.ListIndex
  229.     fstDemo(1).TabPosition = cboTabPosition.ListIndex
  230. End Sub
  231. Private Sub chkEnabled_Click()
  232.     fstDemo(0).Enabled = chkEnabled
  233.     fstDemo(1).Enabled = chkEnabled
  234. End Sub
  235. Private Sub cmdClose_Click()
  236.     Unload Me
  237. End Sub
  238. Private Sub Form_Load()
  239.     cboTabPosition.ListIndex = fstDemo(0).TabPosition
  240.     chkEnabled.Value = Abs(fstDemo(0).Enabled)
  241.     cboDisplayStyle.ListIndex = fstDemo(0).DisplayStyle
  242. End Sub
  243.