home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / fstrip5.exe / %MAINDIR% / General.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  5.5 KB  |  158 lines
  1. VERSION 5.00
  2. Object = "{9973B72E-F1FF-4E96-AA76-225706910672}#3.0#0"; "FlatStrip5.ocx"
  3. Begin VB.Form frmGeneral 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Ariad FlatStrip 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            =   "General.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 pgrGeneral 
  28.       Height          =   2670
  29.       Left            =   270
  30.       TabIndex        =   1
  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        =   2
  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.       Tab1Selected    =   -1  'True
  76.       Tab2Caption     =   "Demonstration"
  77.       Tab3Caption     =   "Sample"
  78.       Tab4Caption     =   "Tabs"
  79.    End
  80.    Begin VB.Label lblHdr 
  81.       AutoSize        =   -1  'True
  82.       Caption         =   "&Properties:"
  83.       Height          =   195
  84.       Left            =   270
  85.       TabIndex        =   0
  86.       Top             =   1440
  87.       Width           =   795
  88.    End
  89.    Begin FlatStripDemonstration.pucLogoPane pucLogoPane1 
  90.       Align           =   1  'Align Top
  91.       Height          =   750
  92.       Left            =   0
  93.       Top             =   0
  94.       Width           =   6630
  95.       _ExtentX        =   11695
  96.       _ExtentY        =   1323
  97.       Picture         =   "General.frx":014A
  98.    End
  99. Attribute VB_Name = "frmGeneral"
  100. Attribute VB_GlobalNameSpace = False
  101. Attribute VB_Creatable = False
  102. Attribute VB_PredeclaredId = True
  103. Attribute VB_Exposed = False
  104. Option Explicit
  105. Private Sub evlDemo_ExitClicked()
  106.     Unload Me
  107. End Sub
  108. Private Sub Form_Load()
  109.     Set pgrGeneral.ClientObject = ftsDemo.Object
  110. End Sub
  111. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  112.     Set pgrGeneral.ClientObject = Nothing
  113. End Sub
  114. Private Sub ftsDemo_BeforeChange(ByVal PreviousTab As Long, FlatTab As FlatStripCtl.FlatTab, Cancel As Boolean)
  115.     If FlatTab Is Nothing Then
  116.         evlDemo.Add "BeforeChange", PreviousTab, 0, Cancel
  117.     Else
  118.         evlDemo.Add "BeforeChange", PreviousTab, FlatTab.Index, Cancel
  119.     End If
  120. End Sub
  121. Private Sub ftsDemo_Change(ByVal PreviousTab As Long, FlatTab As FlatStripCtl.FlatTab)
  122.     If FlatTab Is Nothing Then
  123.         evlDemo.Add "Change", PreviousTab, 0
  124.     Else
  125.         evlDemo.Add "Change", PreviousTab, FlatTab.Index
  126.     End If
  127. End Sub
  128. Private Sub ftsDemo_Click()
  129.     evlDemo.Add "Click"
  130. End Sub
  131. Private Sub ftsDemo_DblClick()
  132.     evlDemo.Add "DblClick"
  133. End Sub
  134. Private Sub ftsDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  135.     evlDemo.Add "MouseDown", Button, Shift, X, Y
  136. End Sub
  137. Private Sub ftsDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  138.     evlDemo.Add "MouseUp", Button, Shift, X, Y
  139. End Sub
  140. Private Sub ftsDemo_Resize(ByVal ClientLeft As Long, ByVal ClientTop As Long, ByVal ClientWidth As Long, ByVal ClientHeight As Long)
  141.     evlDemo.Add "Resize", ClientLeft, ClientTop, ClientWidth, ClientHeight
  142. End Sub
  143. Private Sub ftsDemo_TabClick(FlatTab As FlatStripCtl.FlatTab)
  144.     evlDemo.Add "TabClick", FlatTab.Index
  145. End Sub
  146. Private Sub ftsDemo_TabDblClick(FlatTab As FlatStripCtl.FlatTab)
  147.     evlDemo.Add "TabDblClick", FlatTab.Index
  148. End Sub
  149. Private Sub ftsDemo_TabMouseEnter(FlatTab As FlatStripCtl.FlatTab)
  150.     evlDemo.Add "TabMouseEnter", FlatTab.Index
  151. End Sub
  152. Private Sub ftsDemo_TabMouseLeave(FlatTab As FlatStripCtl.FlatTab)
  153.     evlDemo.Add "TabMouseLeave", FlatTab.Index
  154. End Sub
  155. Private Sub ftsDemo_TabRightClick(FlatTab As FlatStripCtl.FlatTab)
  156.     evlDemo.Add "TabRightClick", FlatTab.Index
  157. End Sub
  158.