home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / fstrip5.exe / %MAINDIR% / DisplayStyles.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  5.9 KB  |  173 lines
  1. VERSION 5.00
  2. Object = "{9973B72E-F1FF-4E96-AA76-225706910672}#4.8#0"; "FlatStrip5.ocx"
  3. Begin VB.Form frmDisplayStyles 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Display Styles Demonstration"
  6.    ClientHeight    =   5775
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   7350
  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            =   "DisplayStyles.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   385
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   490
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin VB.CommandButton cmdClose 
  28.       Cancel          =   -1  'True
  29.       Caption         =   "C&lose"
  30.       Default         =   -1  'True
  31.       Height          =   330
  32.       Left            =   5985
  33.       TabIndex        =   0
  34.       Top             =   2700
  35.       Width           =   1140
  36.    End
  37.    Begin FlatStripCtl.FlatStrip ftsDemo 
  38.       Height          =   330
  39.       Index           =   0
  40.       Left            =   405
  41.       Top             =   2025
  42.       Width           =   3795
  43.       _ExtentX        =   6694
  44.       _ExtentY        =   582
  45.       AutoSize        =   1
  46.       ShowClientArea  =   0   'False
  47.       ActiveTab       =   1
  48.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  49.          Name            =   "Tahoma"
  50.          Size            =   8.25
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       TabCount        =   3
  58.       Tab1Caption     =   "Normal"
  59.       Tab1ToolTipText =   "Normal"
  60.       Tab1Selected    =   -1  'True
  61.       Tab1Picture     =   "DisplayStyles.frx":014A
  62.       Tab2Caption     =   "HTML"
  63.       Tab2ToolTipText =   "HTML"
  64.       Tab2Picture     =   "DisplayStyles.frx":049C
  65.       Tab3Caption     =   "Preview"
  66.       Tab3ToolTipText =   "Preview"
  67.       Tab3Picture     =   "DisplayStyles.frx":07EE
  68.    End
  69.    Begin FlatStripCtl.FlatStrip ftsDemo 
  70.       Height          =   330
  71.       Index           =   1
  72.       Left            =   405
  73.       Top             =   2520
  74.       Width           =   3795
  75.       _ExtentX        =   6694
  76.       _ExtentY        =   582
  77.       DisplayStyle    =   1
  78.       AutoSize        =   1
  79.       ShowClientArea  =   0   'False
  80.       ActiveTab       =   1
  81.       BackColor       =   -2147483633
  82.       ActiveBackColor =   -2147483635
  83.       ForeColor       =   -2147483630
  84.       ActiveForeColor =   -2147483630
  85.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  86.          Name            =   "Tahoma"
  87.          Size            =   8.25
  88.          Charset         =   0
  89.          Weight          =   400
  90.          Underline       =   0   'False
  91.          Italic          =   0   'False
  92.          Strikethrough   =   0   'False
  93.       EndProperty
  94.       TabCount        =   3
  95.       Tab1Caption     =   "Normal"
  96.       Tab1ToolTipText =   "Normal"
  97.       Tab1Selected    =   -1  'True
  98.       Tab1Picture     =   "DisplayStyles.frx":0B40
  99.       Tab2Caption     =   "HTML"
  100.       Tab2ToolTipText =   "HTML"
  101.       Tab2Picture     =   "DisplayStyles.frx":0E92
  102.       Tab3Caption     =   "Preview"
  103.       Tab3ToolTipText =   "Preview"
  104.       Tab3Picture     =   "DisplayStyles.frx":11E4
  105.    End
  106.    Begin FlatStripDemonstration.pucTextTip pucTextTip1 
  107.       Height          =   780
  108.       Left            =   180
  109.       TabIndex        =   1
  110.       Top             =   900
  111.       Width           =   6945
  112.       _ExtentX        =   12250
  113.       _ExtentY        =   1376
  114.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  115.          Name            =   "Tahoma"
  116.          Size            =   8.25
  117.          Charset         =   0
  118.          Weight          =   400
  119.          Underline       =   0   'False
  120.          Italic          =   0   'False
  121.          Strikethrough   =   0   'False
  122.       EndProperty
  123.       Text            =   $"DisplayStyles.frx":1536
  124.    End
  125.    Begin FlatStripDemonstration.pucTextTip pucTextTip2 
  126.       Height          =   2355
  127.       Left            =   225
  128.       TabIndex        =   2
  129.       Top             =   3195
  130.       Width           =   6945
  131.       _ExtentX        =   12250
  132.       _ExtentY        =   4154
  133.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  134.          Name            =   "Tahoma"
  135.          Size            =   8.25
  136.          Charset         =   0
  137.          Weight          =   400
  138.          Underline       =   0   'False
  139.          Italic          =   0   'False
  140.          Strikethrough   =   0   'False
  141.       EndProperty
  142.       Text            =   $"DisplayStyles.frx":15FF
  143.    End
  144.    Begin VB.Shape Shape1 
  145.       BorderColor     =   &H80000010&
  146.       DrawMode        =   4  'Mask Not Pen
  147.       FillColor       =   &H80000010&
  148.       FillStyle       =   7  'Diagonal Cross
  149.       Height          =   1140
  150.       Left            =   225
  151.       Top             =   1890
  152.       Width           =   4155
  153.    End
  154.    Begin FlatStripDemonstration.pucLogoPane pucLogoPane1 
  155.       Align           =   1  'Align Top
  156.       Height          =   750
  157.       Left            =   0
  158.       Top             =   0
  159.       Width           =   7350
  160.       _ExtentX        =   12965
  161.       _ExtentY        =   1323
  162.       Picture         =   "DisplayStyles.frx":183C
  163.    End
  164. Attribute VB_Name = "frmDisplayStyles"
  165. Attribute VB_GlobalNameSpace = False
  166. Attribute VB_Creatable = False
  167. Attribute VB_PredeclaredId = True
  168. Attribute VB_Exposed = False
  169. Option Explicit
  170. Private Sub cmdClose_Click()
  171.     Unload Me
  172. End Sub
  173.