home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / fstrip5.exe / %MAINDIR% / Elements.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  7.6 KB  |  237 lines
  1. VERSION 5.00
  2. Object = "{9973B72E-F1FF-4E96-AA76-225706910672}#4.5#0"; "FlatStrip5.ocx"
  3. Begin VB.Form frmElements 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Elements Demonstrations"
  6.    ClientHeight    =   6420
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   7815
  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            =   "Elements.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   428
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   521
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin VB.ComboBox cboDisplayStyle 
  28.       Height          =   315
  29.       ItemData        =   "Elements.frx":014A
  30.       Left            =   225
  31.       List            =   "Elements.frx":0154
  32.       Style           =   2  'Dropdown List
  33.       TabIndex        =   10
  34.       Top             =   5850
  35.       Width           =   1995
  36.    End
  37.    Begin VB.PictureBox picClient 
  38.       Height          =   1770
  39.       Left            =   720
  40.       ScaleHeight     =   114
  41.       ScaleMode       =   3  'Pixel
  42.       ScaleWidth      =   249
  43.       TabIndex        =   11
  44.       Top             =   2430
  45.       Width           =   3795
  46.       Begin VB.Shape shpClient 
  47.          BorderStyle     =   0  'Transparent
  48.          DrawMode        =   9  'Not Mask Pen
  49.          FillColor       =   &H00E0E0E0&
  50.          FillStyle       =   7  'Diagonal Cross
  51.          Height          =   735
  52.          Left            =   0
  53.          Top             =   0
  54.          Width           =   1995
  55.       End
  56.    End
  57.    Begin VB.CheckBox chkShowClientArea 
  58.       Caption         =   "ShowClient&Area"
  59.       Height          =   465
  60.       Left            =   5355
  61.       TabIndex        =   8
  62.       Top             =   4995
  63.       Width           =   1680
  64.    End
  65.    Begin VB.TextBox txtField 
  66.       Height          =   285
  67.       Index           =   1
  68.       Left            =   3825
  69.       TabIndex        =   7
  70.       Top             =   5175
  71.       Width           =   1230
  72.    End
  73.    Begin VB.TextBox txtField 
  74.       Height          =   285
  75.       Index           =   0
  76.       Left            =   2385
  77.       TabIndex        =   5
  78.       Top             =   5175
  79.       Width           =   1230
  80.    End
  81.    Begin VB.CommandButton cmdClose 
  82.       Cancel          =   -1  'True
  83.       Caption         =   "C&lose"
  84.       Default         =   -1  'True
  85.       Height          =   330
  86.       Left            =   6435
  87.       TabIndex        =   1
  88.       Top             =   5895
  89.       Width           =   1140
  90.    End
  91.    Begin VB.ComboBox cboTabPosition 
  92.       Height          =   315
  93.       ItemData        =   "Elements.frx":0180
  94.       Left            =   180
  95.       List            =   "Elements.frx":0190
  96.       Style           =   2  'Dropdown List
  97.       TabIndex        =   0
  98.       Top             =   5175
  99.       Width           =   1995
  100.    End
  101.    Begin FlatStripDemonstration.pucTextTip pucTextTip1 
  102.       Height          =   600
  103.       Left            =   180
  104.       TabIndex        =   2
  105.       Top             =   900
  106.       Width           =   7440
  107.       _ExtentX        =   13123
  108.       _ExtentY        =   1058
  109.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  110.          Name            =   "Tahoma"
  111.          Size            =   8.25
  112.          Charset         =   0
  113.          Weight          =   400
  114.          Underline       =   0   'False
  115.          Italic          =   0   'False
  116.          Strikethrough   =   0   'False
  117.       EndProperty
  118.       Text            =   $"Elements.frx":01CE
  119.    End
  120.    Begin FlatStripCtl.FlatStrip ftsDemo 
  121.       Height          =   3120
  122.       Left            =   180
  123.       Top             =   1665
  124.       Width           =   7440
  125.       _ExtentX        =   13123
  126.       _ExtentY        =   5503
  127.       ActiveTab       =   1
  128.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  129.          Name            =   "Tahoma"
  130.          Size            =   8.25
  131.          Charset         =   0
  132.          Weight          =   400
  133.          Underline       =   0   'False
  134.          Italic          =   0   'False
  135.          Strikethrough   =   0   'False
  136.       EndProperty
  137.       TabCount        =   3
  138.       Tab1Caption     =   "Tab #1"
  139.       Tab1Selected    =   -1  'True
  140.       Tab2Caption     =   "Tab #2"
  141.       Tab3Caption     =   "Tab #3"
  142.    End
  143.    Begin VB.Label lblHdr 
  144.       AutoSize        =   -1  'True
  145.       Caption         =   "&DisplayStyle:"
  146.       Height          =   195
  147.       Index           =   3
  148.       Left            =   225
  149.       TabIndex        =   9
  150.       Top             =   5625
  151.       Width           =   930
  152.    End
  153.    Begin VB.Label lblHdr 
  154.       AutoSize        =   -1  'True
  155.       Caption         =   "Tab&Height:"
  156.       Height          =   195
  157.       Index           =   2
  158.       Left            =   3825
  159.       TabIndex        =   6
  160.       Top             =   4950
  161.       Width           =   795
  162.    End
  163.    Begin VB.Label lblHdr 
  164.       AutoSize        =   -1  'True
  165.       Caption         =   "&BorderWidth:"
  166.       Height          =   195
  167.       Index           =   1
  168.       Left            =   2385
  169.       TabIndex        =   4
  170.       Top             =   4950
  171.       Width           =   960
  172.    End
  173.    Begin FlatStripDemonstration.pucLogoPane pucLogoPane1 
  174.       Align           =   1  'Align Top
  175.       Height          =   750
  176.       Left            =   0
  177.       Top             =   0
  178.       Width           =   7815
  179.       _ExtentX        =   13785
  180.       _ExtentY        =   1323
  181.       Picture         =   "Elements.frx":0271
  182.    End
  183.    Begin VB.Label lblHdr 
  184.       AutoSize        =   -1  'True
  185.       Caption         =   "&TabPosition:"
  186.       Height          =   195
  187.       Index           =   0
  188.       Left            =   180
  189.       TabIndex        =   3
  190.       Top             =   4950
  191.       Width           =   885
  192.    End
  193. Attribute VB_Name = "frmElements"
  194. Attribute VB_GlobalNameSpace = False
  195. Attribute VB_Creatable = False
  196. Attribute VB_PredeclaredId = True
  197. Attribute VB_Exposed = False
  198. Option Explicit
  199. Private Sub cboDisplayStyle_Click()
  200.     ftsDemo.DisplayStyle = cboDisplayStyle.ListIndex
  201. End Sub
  202. Private Sub cboTabPosition_Click()
  203.     ftsDemo.TabPosition = cboTabPosition.ListIndex
  204. End Sub
  205. Private Sub chkShowClientArea_Click()
  206.     ftsDemo.ShowClientArea = chkShowClientArea.Value
  207.     picClient.Visible = ftsDemo.ShowClientArea
  208. End Sub
  209. Private Sub cmdClose_Click()
  210.     Unload Me
  211. End Sub
  212. Private Sub Form_Load()
  213.     With ftsDemo
  214.         cboTabPosition.ListIndex = .TabPosition
  215.         txtField(0).Text = .BorderWidth
  216.         txtField(1).Text = .TabHeight
  217.         chkShowClientArea.Value = Abs(.ShowClientArea)
  218.         cboDisplayStyle.ListIndex = .DisplayStyle
  219.     End With
  220. End Sub
  221. Private Sub ftsDemo_Resize(ByVal ClientLeft As Long, ByVal ClientTop As Long, ByVal ClientWidth As Long, ByVal ClientHeight As Long)
  222.     On Error Resume Next
  223.         picClient.Move ClientLeft, ClientTop, ClientWidth, ClientHeight
  224.     On Error GoTo 0
  225. End Sub
  226. Private Sub picClient_Resize()
  227.     On Error Resume Next
  228.         shpClient.Move 0, 0, picClient.ScaleWidth + 1, picClient.ScaleHeight + 1
  229.     On Error GoTo 0
  230. End Sub
  231. Private Sub txtField_Change(Index As Integer)
  232.     Select Case Index
  233.         Case 0: ftsDemo.BorderWidth = Val(txtField(Index).Text)
  234.         Case 1: ftsDemo.TabHeight = Val(txtField(Index).Text)
  235.     End Select
  236. End Sub
  237.