home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / LineHeaderEx.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  8.2 KB  |  256 lines
  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
  3. Begin VB.Form frmLineHeaderExDemonstration 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "LineHeaderEx Demonstration"
  6.    ClientHeight    =   3795
  7.    ClientLeft      =   1425
  8.    ClientTop       =   1860
  9.    ClientWidth     =   5820
  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            =   "LineHeaderEx.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   3795
  24.    ScaleWidth      =   5820
  25.    ShowInTaskbar   =   0   'False
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin VB.CommandButton cmdFont 
  28.       Caption         =   "&Fonts..."
  29.       Height          =   375
  30.       Left            =   1755
  31.       TabIndex        =   10
  32.       Top             =   1890
  33.       Width           =   1185
  34.    End
  35.    Begin VB.CommandButton cmdColor 
  36.       Caption         =   "&Colours..."
  37.       Height          =   375
  38.       Left            =   540
  39.       TabIndex        =   9
  40.       Top             =   1890
  41.       Width           =   1185
  42.    End
  43.    Begin VB.ComboBox cboOrientation 
  44.       Height          =   315
  45.       ItemData        =   "LineHeaderEx.frx":0E42
  46.       Left            =   540
  47.       List            =   "LineHeaderEx.frx":0E4C
  48.       Style           =   2  'Dropdown List
  49.       TabIndex        =   6
  50.       Top             =   1350
  51.       Width           =   1590
  52.    End
  53.    Begin VB.ComboBox cboBackStyle 
  54.       Height          =   315
  55.       ItemData        =   "LineHeaderEx.frx":0E66
  56.       Left            =   540
  57.       List            =   "LineHeaderEx.frx":0E70
  58.       Style           =   2  'Dropdown List
  59.       TabIndex        =   2
  60.       Top             =   675
  61.       Width           =   1590
  62.    End
  63.    Begin VB.CheckBox chkEnabled 
  64.       Caption         =   "&Enabled"
  65.       Height          =   285
  66.       Left            =   2295
  67.       TabIndex        =   7
  68.       Top             =   1350
  69.       Value           =   1  'Checked
  70.       Width           =   1305
  71.    End
  72.    Begin VB.TextBox txtField 
  73.       Height          =   285
  74.       Index           =   0
  75.       Left            =   2295
  76.       TabIndex        =   4
  77.       Text            =   "LineHeaderEx"
  78.       Top             =   675
  79.       Width           =   1965
  80.    End
  81.    Begin AIFCmp1.asxLineHeaderEx hdrDemo 
  82.       Height          =   240
  83.       Left            =   135
  84.       TabIndex        =   0
  85.       Top             =   90
  86.       Width           =   2805
  87.       _ExtentX        =   4948
  88.       _ExtentY        =   423
  89.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  90.          Name            =   "Tahoma"
  91.          Size            =   8.25
  92.          Charset         =   0
  93.          Weight          =   700
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       Caption         =   "LineHeaderEx"
  99.    End
  100.    Begin AriadIFceCompTest.EventList lstEvents 
  101.       Height          =   1230
  102.       Left            =   540
  103.       TabIndex        =   13
  104.       Top             =   2430
  105.       Width           =   5145
  106.       _ExtentX        =   9075
  107.       _ExtentY        =   2170
  108.    End
  109.    Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1 
  110.       Height          =   30
  111.       Left            =   540
  112.       TabIndex        =   8
  113.       Top             =   1800
  114.       Width           =   5145
  115.       _ExtentX        =   9075
  116.       _ExtentY        =   53
  117.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  118.          Name            =   "Tahoma"
  119.          Size            =   8.25
  120.          Charset         =   0
  121.          Weight          =   400
  122.          Underline       =   0   'False
  123.          Italic          =   0   'False
  124.          Strikethrough   =   0   'False
  125.       EndProperty
  126.       Caption         =   ""
  127.       TextColor       =   0
  128.    End
  129.    Begin AIFCmp1.asxPowerButton btnAction 
  130.       Cancel          =   -1  'True
  131.       Default         =   -1  'True
  132.       Height          =   420
  133.       Index           =   2
  134.       Left            =   4455
  135.       TabIndex        =   12
  136.       Top             =   1890
  137.       Width           =   1230
  138.       _ExtentX        =   2170
  139.       _ExtentY        =   741
  140.       Picture         =   "LineHeaderEx.frx":0E8B
  141.       Caption         =   "C&lose"
  142.       CaptionOffsetX  =   8
  143.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  144.          Name            =   "Tahoma"
  145.          Size            =   8.25
  146.          Charset         =   0
  147.          Weight          =   400
  148.          Underline       =   0   'False
  149.          Italic          =   0   'False
  150.          Strikethrough   =   0   'False
  151.       EndProperty
  152.       PictureAlignment=   3
  153.    End
  154.    Begin AIFCmp1.asxPowerButton btnAction 
  155.       Height          =   420
  156.       Index           =   1
  157.       Left            =   3195
  158.       TabIndex        =   11
  159.       Top             =   1890
  160.       Width           =   1230
  161.       _ExtentX        =   2170
  162.       _ExtentY        =   741
  163.       Picture         =   "LineHeaderEx.frx":0FE5
  164.       Caption         =   "&About..."
  165.       CaptionOffsetX  =   8
  166.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  167.          Name            =   "Tahoma"
  168.          Size            =   8.25
  169.          Charset         =   0
  170.          Weight          =   400
  171.          Underline       =   0   'False
  172.          Italic          =   0   'False
  173.          Strikethrough   =   0   'False
  174.       EndProperty
  175.       PictureAlignment=   3
  176.    End
  177.    Begin VB.Label lblHdr 
  178.       AutoSize        =   -1  'True
  179.       Caption         =   "&Orientation:"
  180.       Height          =   195
  181.       Index           =   1
  182.       Left            =   540
  183.       TabIndex        =   5
  184.       Top             =   1125
  185.       Width           =   870
  186.    End
  187.    Begin VB.Label lblHdr 
  188.       AutoSize        =   -1  'True
  189.       Caption         =   "Bac&kStyle:"
  190.       Height          =   195
  191.       Index           =   3
  192.       Left            =   540
  193.       TabIndex        =   1
  194.       Top             =   450
  195.       Width           =   750
  196.    End
  197.    Begin VB.Label lblHdr 
  198.       AutoSize        =   -1  'True
  199.       Caption         =   "&Caption:"
  200.       Height          =   195
  201.       Index           =   0
  202.       Left            =   2295
  203.       TabIndex        =   3
  204.       Top             =   450
  205.       Width           =   615
  206.    End
  207. Attribute VB_Name = "frmLineHeaderExDemonstration"
  208. Attribute VB_GlobalNameSpace = False
  209. Attribute VB_Creatable = False
  210. Attribute VB_PredeclaredId = True
  211. Attribute VB_Exposed = False
  212. Option Explicit
  213. Private Sub btnAction_Click(Index As Integer)
  214.  Select Case Index
  215.   Case 1: hdrDemo.About
  216.   Case 2: Unload Me
  217.  End Select
  218. End Sub
  219. Private Sub cboBackStyle_Click()
  220.  hdrDemo.BackStyle = cboBackStyle.ListIndex
  221. End Sub
  222. Private Sub cboOrientation_Click()
  223.  hdrDemo.Orientation = cboOrientation.ListIndex
  224. End Sub
  225. Private Sub chkEnabled_Click()
  226.  hdrDemo.Enabled = chkEnabled
  227. End Sub
  228. Private Sub cmdColor_Click()
  229.  PropPage.ShowPicker hWnd, "Object Colour", hdrDemo, ppickColor
  230. End Sub
  231. Private Sub cmdFont_Click()
  232.  PropPage.ShowPicker hWnd, "Object Font", hdrDemo, ppickFont
  233. End Sub
  234. Private Sub Form_Load()
  235.  cboBackStyle.ListIndex = ifbsOpaque
  236.  cboOrientation.ListIndex = ifcoHorizontal
  237. End Sub
  238. Private Sub hdrDemo_Change()
  239.  lstEvents.Add "hdrDemo_Change()"
  240. End Sub
  241. Private Sub hdrDemo_Click()
  242.  lstEvents.Add "hdrDemo_Click()"
  243. End Sub
  244. Private Sub hdrDemo_DblClick()
  245.  lstEvents.Add "hdrDemo_DblClick()"
  246. End Sub
  247. Private Sub hdrDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  248.  lstEvents.Add "hdrDemo_MouseDown(" & Button & "," & Shift & "," & X & ", " & Y & ")"
  249. End Sub
  250. Private Sub hdrDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  251.  lstEvents.Add "hdrDemo_MouseUp(" & Button & "," & Shift & "," & X & ", " & Y & ")"
  252. End Sub
  253. Private Sub txtField_Change(Index As Integer)
  254.  hdrDemo.Caption = txtField(0)
  255. End Sub
  256.