home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / fstrip5.exe / %MAINDIR% / ScrollBox.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  5.5 KB  |  173 lines
  1. VERSION 5.00
  2. Object = "{9973B72E-F1FF-4E96-AA76-225706910672}#4.8#0"; "FlatStrip5.ocx"
  3. Begin VB.Form frmScrollBox 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "ScrollBox Demonstration"
  6.    ClientHeight    =   5790
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   7845
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "ScrollBox.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   386
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   523
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin VB.ComboBox cboScrollStyle 
  28.       Height          =   315
  29.       ItemData        =   "ScrollBox.frx":014A
  30.       Left            =   4320
  31.       List            =   "ScrollBox.frx":0154
  32.       Style           =   2  'Dropdown List
  33.       TabIndex        =   6
  34.       Top             =   5220
  35.       Width           =   1905
  36.    End
  37.    Begin VB.CommandButton cmdClose 
  38.       Cancel          =   -1  'True
  39.       Caption         =   "C&lose"
  40.       Default         =   -1  'True
  41.       Height          =   330
  42.       Left            =   6480
  43.       TabIndex        =   7
  44.       Top             =   5220
  45.       Width           =   1140
  46.    End
  47.    Begin VB.ComboBox cboTabPosition 
  48.       Height          =   315
  49.       ItemData        =   "ScrollBox.frx":0175
  50.       Left            =   180
  51.       List            =   "ScrollBox.frx":0185
  52.       Style           =   2  'Dropdown List
  53.       TabIndex        =   2
  54.       Top             =   5220
  55.       Width           =   1905
  56.    End
  57.    Begin VB.ComboBox cboAlignment 
  58.       Height          =   315
  59.       ItemData        =   "ScrollBox.frx":01C3
  60.       Left            =   2250
  61.       List            =   "ScrollBox.frx":01CD
  62.       Style           =   2  'Dropdown List
  63.       TabIndex        =   4
  64.       Top             =   5220
  65.       Width           =   1905
  66.    End
  67.    Begin FlatStripDemonstration.pucTextTip pucTextTip1 
  68.       Height          =   600
  69.       Left            =   180
  70.       TabIndex        =   0
  71.       Top             =   900
  72.       Width           =   7440
  73.       _extentx        =   13123
  74.       _extenty        =   1058
  75.       font            =   "ScrollBox.frx":01EC
  76.       text            =   $"ScrollBox.frx":0214
  77.    End
  78.    Begin FlatStripCtl.FlatStrip ftsDemo 
  79.       Height          =   3120
  80.       Left            =   180
  81.       Top             =   1710
  82.       Width           =   7440
  83.       _extentx        =   13123
  84.       _extenty        =   5503
  85.       activetab       =   1
  86.       font            =   "ScrollBox.frx":02B5
  87.       tabcount        =   20
  88.       tab1caption     =   "Tab 1"
  89.       tab1selected    =   -1  'True
  90.       tab2caption     =   "Tab 2"
  91.       tab3caption     =   "Tab 3"
  92.       tab4caption     =   "Tab 4"
  93.       tab5caption     =   "Tab 5"
  94.       tab6caption     =   "Tab 6"
  95.       tab7caption     =   "Tab 7"
  96.       tab8caption     =   "Tab 8"
  97.       tab9caption     =   "Tab 9"
  98.       tab10caption    =   "Tab 10"
  99.       tab11caption    =   "Tab 11"
  100.       tab12caption    =   "Tab 12"
  101.       tab13caption    =   "Tab 13"
  102.       tab14caption    =   "Tab 14"
  103.       tab15caption    =   "Tab 15"
  104.       tab16caption    =   "Tab 16"
  105.       tab17caption    =   "Tab 17"
  106.       tab18caption    =   "Tab 18"
  107.       tab19caption    =   "Tab 19"
  108.       tab20caption    =   "Tab 20"
  109.    End
  110.    Begin VB.Label lblHdr 
  111.       AutoSize        =   -1  'True
  112.       Caption         =   "&ScrollStyle:"
  113.       Height          =   195
  114.       Index           =   2
  115.       Left            =   4320
  116.       TabIndex        =   5
  117.       Top             =   4995
  118.       Width           =   795
  119.    End
  120.    Begin FlatStripDemonstration.pucLogoPane pucLogoPane1 
  121.       Align           =   1  'Align Top
  122.       Height          =   750
  123.       Left            =   0
  124.       Top             =   0
  125.       Width           =   7845
  126.       _extentx        =   13838
  127.       _extenty        =   1323
  128.       picture         =   "ScrollBox.frx":02DD
  129.    End
  130.    Begin VB.Label lblHdr 
  131.       AutoSize        =   -1  'True
  132.       Caption         =   "&TabPosition:"
  133.       Height          =   195
  134.       Index           =   0
  135.       Left            =   180
  136.       TabIndex        =   1
  137.       Top             =   4995
  138.       Width           =   885
  139.    End
  140.    Begin VB.Label lblHdr 
  141.       AutoSize        =   -1  'True
  142.       Caption         =   "&Alignment:"
  143.       Height          =   195
  144.       Index           =   1
  145.       Left            =   2250
  146.       TabIndex        =   3
  147.       Top             =   4995
  148.       Width           =   765
  149.    End
  150. Attribute VB_Name = "frmScrollBox"
  151. Attribute VB_GlobalNameSpace = False
  152. Attribute VB_Creatable = False
  153. Attribute VB_PredeclaredId = True
  154. Attribute VB_Exposed = False
  155. Option Explicit
  156. Private Sub cboAlignment_Click()
  157.     ftsDemo.Alignment = cboAlignment.ListIndex
  158. End Sub
  159. Private Sub cboScrollStyle_Click()
  160.     ftsDemo.ScrollStyle = cboScrollStyle.ListIndex
  161. End Sub
  162. Private Sub cboTabPosition_Click()
  163.     ftsDemo.TabPosition = cboTabPosition.ListIndex
  164. End Sub
  165. Private Sub cmdClose_Click()
  166.     Unload Me
  167. End Sub
  168. Private Sub Form_Load()
  169.     cboTabPosition.ListIndex = ftsDemo.TabPosition
  170.     cboAlignment.ListIndex = ftsDemo.Alignment
  171.     cboScrollStyle.ListIndex = ftsDemo.ScrollStyle
  172. End Sub
  173.