home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / fstrip5.exe / %MAINDIR% / FlatTabObject.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  4.5 KB  |  135 lines
  1. VERSION 5.00
  2. Object = "{9973B72E-F1FF-4E96-AA76-225706910672}#3.0#0"; "FlatStrip5.ocx"
  3. Begin VB.Form frmFlatTabObject 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "FlatTab Object Demonstration"
  6.    ClientHeight    =   6720
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   6630
  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            =   "FlatTabObject.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   448
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   442
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin PropertyGridCtl.PropertyGrid pgrFlatTab 
  28.       Height          =   2670
  29.       Left            =   270
  30.       TabIndex        =   0
  31.       Top             =   1665
  32.       Width           =   6090
  33.       _ExtentX        =   10742
  34.       _ExtentY        =   4710
  35.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.          Name            =   "Tahoma"
  37.          Size            =   8.25
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.    End
  45.    Begin FlatStripDemonstration.pucEventList evlDemo 
  46.       Height          =   1995
  47.       Left            =   270
  48.       TabIndex        =   1
  49.       Top             =   4500
  50.       Width           =   6135
  51.       _ExtentX        =   10821
  52.       _ExtentY        =   3519
  53.       ExitVisible     =   -1  'True
  54.    End
  55.    Begin FlatStripCtl.FlatStrip ftsDemo 
  56.       Height          =   285
  57.       Left            =   270
  58.       Top             =   945
  59.       Width           =   6090
  60.       _ExtentX        =   10742
  61.       _ExtentY        =   503
  62.       ShowClientArea  =   0   'False
  63.       ActiveTab       =   1
  64.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  65.          Name            =   "Tahoma"
  66.          Size            =   8.25
  67.          Charset         =   0
  68.          Weight          =   400
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       TabCount        =   4
  74.       Tab1Caption     =   "FlatStrip"
  75.       Tab1ToolTipText =   "Tab 1"
  76.       Tab1Selected    =   -1  'True
  77.       Tab2Caption     =   "Demonstration"
  78.       Tab2ToolTipText =   "Tab 2"
  79.       Tab3Caption     =   "Sample"
  80.       Tab3ToolTipText =   "Tab 3"
  81.       Tab4Caption     =   "Tabs"
  82.       Tab4ToolTipText =   "Tab 4"
  83.    End
  84.    Begin FlatStripDemonstration.pucLogoPane pucLogoPane1 
  85.       Align           =   1  'Align Top
  86.       Height          =   750
  87.       Left            =   0
  88.       Top             =   0
  89.       Width           =   6630
  90.       _ExtentX        =   11695
  91.       _ExtentY        =   1323
  92.       Picture         =   "FlatTabObject.frx":014A
  93.    End
  94.    Begin VB.Label lblHdr 
  95.       AutoSize        =   -1  'True
  96.       Caption         =   "&Properties:"
  97.       Height          =   195
  98.       Left            =   270
  99.       TabIndex        =   2
  100.       Top             =   1440
  101.       Width           =   795
  102.    End
  103. Attribute VB_Name = "frmFlatTabObject"
  104. Attribute VB_GlobalNameSpace = False
  105. Attribute VB_Creatable = False
  106. Attribute VB_PredeclaredId = True
  107. Attribute VB_Exposed = False
  108. Option Explicit
  109. Private Sub evlDemo_ExitClicked()
  110.     Unload Me
  111. End Sub
  112. Private Sub Form_Load()
  113.     'force a click for populate routines
  114.     ftsDemo.ForceAction fsfaTabClick, 1
  115. End Sub
  116. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  117.     Set pgrFlatTab.ClientObject = Nothing
  118. End Sub
  119. Private Sub ftsDemo_TabClick(FlatTab As FlatStripCtl.FlatTab)
  120.     Set pgrFlatTab.ClientObject = FlatTab
  121.     evlDemo.Add "TabClick", FlatTab.Index
  122. End Sub
  123. Private Sub ftsDemo_TabDblClick(FlatTab As FlatStripCtl.FlatTab)
  124.     evlDemo.Add "TabDblClick", FlatTab.Index
  125. End Sub
  126. Private Sub ftsDemo_TabMouseEnter(FlatTab As FlatStripCtl.FlatTab)
  127.     evlDemo.Add "TabMouseEnter", FlatTab.Index
  128. End Sub
  129. Private Sub ftsDemo_TabMouseLeave(FlatTab As FlatStripCtl.FlatTab)
  130.     evlDemo.Add "TabMouseLeave", FlatTab.Index
  131. End Sub
  132. Private Sub ftsDemo_TabRightClick(FlatTab As FlatStripCtl.FlatTab)
  133.     evlDemo.Add "TabRightClick", FlatTab.Index
  134. End Sub
  135.