home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / Label.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  11.1 KB  |  354 lines

  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
  3. Begin VB.Form frmLabelDemonstration 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Label Demonstration"
  6.    ClientHeight    =   5580
  7.    ClientLeft      =   975
  8.    ClientTop       =   675
  9.    ClientWidth     =   7305
  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            =   "Label.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   372
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   487
  26.    ShowInTaskbar   =   0   'False
  27.    StartUpPosition =   2  'CenterScreen
  28.    Begin AIFCmp1.asxLabel lblDemo 
  29.       Height          =   225
  30.       Left            =   135
  31.       TabIndex        =   0
  32.       Top             =   2655
  33.       Width           =   4245
  34.       _ExtentX        =   7488
  35.       _ExtentY        =   397
  36.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  37.          Name            =   "Tahoma"
  38.          Size            =   8.25
  39.          Charset         =   0
  40.          Weight          =   400
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       Caption         =   "asxLabel1"
  46.       AutoSize        =   -1  'True
  47.       WordWrap        =   -1  'True
  48.       UseMnemonic     =   -1  'True
  49.       MouseIcon       =   "Label.frx":0E42
  50.    End
  51.    Begin VB.CommandButton cmdColor 
  52.       Caption         =   "&Colours..."
  53.       Height          =   375
  54.       Left            =   5940
  55.       TabIndex        =   17
  56.       Top             =   1215
  57.       Width           =   1185
  58.    End
  59.    Begin VB.CommandButton cmdFont 
  60.       Caption         =   "&Fonts..."
  61.       Height          =   375
  62.       Left            =   5940
  63.       TabIndex        =   16
  64.       Top             =   1620
  65.       Width           =   1185
  66.    End
  67.    Begin VB.TextBox txtField 
  68.       Height          =   825
  69.       Index           =   0
  70.       Left            =   1890
  71.       MultiLine       =   -1  'True
  72.       ScrollBars      =   2  'Vertical
  73.       TabIndex        =   9
  74.       Text            =   "Label.frx":115C
  75.       Top             =   315
  76.       Width           =   3870
  77.    End
  78.    Begin VB.CheckBox chkAutoSize 
  79.       Caption         =   "&AutoSize"
  80.       Height          =   285
  81.       Left            =   5940
  82.       TabIndex        =   8
  83.       Top             =   450
  84.       Value           =   1  'Checked
  85.       Width           =   1305
  86.    End
  87.    Begin VB.CheckBox chkWordWrap 
  88.       Caption         =   "&WordWrap"
  89.       Height          =   285
  90.       Left            =   5940
  91.       TabIndex        =   7
  92.       Top             =   765
  93.       Value           =   1  'Checked
  94.       Width           =   1305
  95.    End
  96.    Begin VB.ComboBox cboBorderStyle 
  97.       Height          =   315
  98.       ItemData        =   "Label.frx":12BB
  99.       Left            =   135
  100.       List            =   "Label.frx":12CB
  101.       Style           =   2  'Dropdown List
  102.       TabIndex        =   6
  103.       Top             =   990
  104.       Width           =   1590
  105.    End
  106.    Begin VB.CheckBox chkEnabled 
  107.       Caption         =   "&Enabled"
  108.       Height          =   285
  109.       Left            =   5940
  110.       TabIndex        =   5
  111.       Top             =   135
  112.       Value           =   1  'Checked
  113.       Width           =   1305
  114.    End
  115.    Begin VB.ComboBox cboBackStyle 
  116.       Height          =   315
  117.       ItemData        =   "Label.frx":12F1
  118.       Left            =   135
  119.       List            =   "Label.frx":12FB
  120.       Style           =   2  'Dropdown List
  121.       TabIndex        =   4
  122.       Top             =   315
  123.       Width           =   1590
  124.    End
  125.    Begin VB.ComboBox cboAlignment 
  126.       Height          =   315
  127.       ItemData        =   "Label.frx":1316
  128.       Left            =   135
  129.       List            =   "Label.frx":1326
  130.       Style           =   2  'Dropdown List
  131.       TabIndex        =   3
  132.       Top             =   1665
  133.       Width           =   1590
  134.    End
  135.    Begin VB.TextBox txtField 
  136.       Height          =   285
  137.       Index           =   1
  138.       Left            =   1890
  139.       TabIndex        =   2
  140.       Top             =   1530
  141.       Width           =   3885
  142.    End
  143.    Begin VB.TextBox txtField 
  144.       Height          =   285
  145.       Index           =   2
  146.       Left            =   1890
  147.       TabIndex        =   1
  148.       Top             =   2205
  149.       Width           =   3885
  150.    End
  151.    Begin AriadIFceCompTest.EventList lstEvents 
  152.       Height          =   1230
  153.       Left            =   135
  154.       TabIndex        =   18
  155.       Top             =   4230
  156.       Width           =   7035
  157.       _ExtentX        =   12409
  158.       _ExtentY        =   2170
  159.    End
  160.    Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1 
  161.       Height          =   30
  162.       Left            =   135
  163.       TabIndex        =   19
  164.       Top             =   3600
  165.       Width           =   7035
  166.       _ExtentX        =   12409
  167.       _ExtentY        =   53
  168.       Caption         =   ""
  169.       TextColor       =   0
  170.    End
  171.    Begin AIFCmp1.asxPowerButton btnAction 
  172.       Cancel          =   -1  'True
  173.       Default         =   -1  'True
  174.       Height          =   420
  175.       Index           =   2
  176.       Left            =   5940
  177.       TabIndex        =   20
  178.       Top             =   3690
  179.       Width           =   1230
  180.       _ExtentX        =   2170
  181.       _ExtentY        =   741
  182.       Picture         =   "Label.frx":1348
  183.       Caption         =   "C&lose"
  184.       CaptionOffsetX  =   8
  185.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  186.          Name            =   "Tahoma"
  187.          Size            =   8.25
  188.          Charset         =   0
  189.          Weight          =   400
  190.          Underline       =   0   'False
  191.          Italic          =   0   'False
  192.          Strikethrough   =   0   'False
  193.       EndProperty
  194.       PictureAlignment=   3
  195.    End
  196.    Begin AIFCmp1.asxPowerButton btnAction 
  197.       Height          =   420
  198.       Index           =   1
  199.       Left            =   4680
  200.       TabIndex        =   21
  201.       Top             =   3690
  202.       Width           =   1230
  203.       _ExtentX        =   2170
  204.       _ExtentY        =   741
  205.       Picture         =   "Label.frx":14A2
  206.       Caption         =   "&About..."
  207.       CaptionOffsetX  =   8
  208.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  209.          Name            =   "Tahoma"
  210.          Size            =   8.25
  211.          Charset         =   0
  212.          Weight          =   400
  213.          Underline       =   0   'False
  214.          Italic          =   0   'False
  215.          Strikethrough   =   0   'False
  216.       EndProperty
  217.       PictureAlignment=   3
  218.    End
  219.    Begin VB.Label lblHdr 
  220.       AutoSize        =   -1  'True
  221.       Caption         =   "&Caption:"
  222.       Height          =   195
  223.       Index           =   0
  224.       Left            =   1890
  225.       TabIndex        =   15
  226.       Top             =   90
  227.       Width           =   615
  228.    End
  229.    Begin VB.Label lblHdr 
  230.       AutoSize        =   -1  'True
  231.       Caption         =   "&BorderStyle:"
  232.       Height          =   195
  233.       Index           =   2
  234.       Left            =   135
  235.       TabIndex        =   14
  236.       Top             =   765
  237.       Width           =   900
  238.    End
  239.    Begin VB.Label lblHdr 
  240.       AutoSize        =   -1  'True
  241.       Caption         =   "Bac&kStyle:"
  242.       Height          =   195
  243.       Index           =   3
  244.       Left            =   135
  245.       TabIndex        =   13
  246.       Top             =   90
  247.       Width           =   750
  248.    End
  249.    Begin VB.Label lblHdr 
  250.       AutoSize        =   -1  'True
  251.       Caption         =   "&Alignment:"
  252.       Height          =   195
  253.       Index           =   1
  254.       Left            =   135
  255.       TabIndex        =   12
  256.       Top             =   1440
  257.       Width           =   765
  258.    End
  259.    Begin VB.Label lblHdr 
  260.       AutoSize        =   -1  'True
  261.       Caption         =   "Link&URL:"
  262.       Height          =   195
  263.       Index           =   5
  264.       Left            =   1890
  265.       TabIndex        =   11
  266.       Top             =   1305
  267.       Width           =   615
  268.    End
  269.    Begin VB.Label lblHdr 
  270.       AutoSize        =   -1  'True
  271.       Caption         =   "Link&Path:"
  272.       Height          =   195
  273.       Index           =   6
  274.       Left            =   1890
  275.       TabIndex        =   10
  276.       Top             =   1980
  277.       Width           =   660
  278.    End
  279. Attribute VB_Name = "frmLabelDemonstration"
  280. Attribute VB_GlobalNameSpace = False
  281. Attribute VB_Creatable = False
  282. Attribute VB_PredeclaredId = True
  283. Attribute VB_Exposed = False
  284. Option Explicit
  285. DefInt A-Z
  286. Dim LabelWidth As Single
  287. Private Sub btnAction_Click(Index As Integer)
  288.  Select Case Index
  289.   Case 1: lblDemo.About
  290.   Case 2: Unload Me
  291.  End Select
  292. End Sub
  293. Private Sub cboAlignment_Click()
  294.  lblDemo.Alignment = cboAlignment.ListIndex
  295. End Sub
  296. Private Sub cboBackStyle_Click()
  297.  lblDemo.BackStyle = cboBackStyle.ListIndex
  298. End Sub
  299. Private Sub cboBorderStyle_Click()
  300.  lblDemo.BorderStyle = cboBorderStyle.ListIndex
  301. End Sub
  302. Private Sub chkAutoSize_Click()
  303.  lblDemo.Width = LabelWidth
  304.  lblDemo.AutoSize = chkAutoSize
  305. End Sub
  306. Private Sub chkEnabled_Click()
  307.  lblDemo.Enabled = chkEnabled
  308. End Sub
  309. Private Sub chkWordWrap_Click()
  310.  lblDemo.WordWrap = chkWordWrap
  311.  lblDemo.Width = LabelWidth
  312. End Sub
  313. Private Sub cmdColor_Click()
  314.  PropPage.ShowPicker hWnd, "Object Colour", lblDemo, ppickColor
  315. End Sub
  316. Private Sub cmdFont_Click()
  317.  PropPage.ShowPicker hWnd, "Object Font", lblDemo, ppickFont
  318. End Sub
  319. Private Sub Form_Load()
  320.  LabelWidth = lblDemo.Width
  321.  cboBorderStyle.ListIndex = ifcbsNone
  322.  cboBackStyle.ListIndex = ifbsOpaque
  323.  cboAlignment.ListIndex = ifaxLeft
  324.  txtField_Change 0
  325. End Sub
  326. Private Sub lblDemo_BeforeURL(Cancel As Boolean)
  327.  lstEvents.Add "lblDemo_BeforeURL()"
  328. End Sub
  329. Private Sub lblDemo_Change()
  330.  lstEvents.Add "lblDemo_Change()"
  331. End Sub
  332. Private Sub lblDemo_Click()
  333.  lstEvents.Add "lblDemo_Click()"
  334. End Sub
  335. Private Sub lblDemo_DblClick()
  336.  lstEvents.Add "lblDemo_DblClick()"
  337. End Sub
  338. Private Sub lblDemo_Error(ByVal ErrNum As Long, ByVal ErrMsg As String, CancelErrDlg As Boolean)
  339.  lstEvents.Add "lblDemo_DblClick(" & ErrNum & "," & ErrMsg & ",0)"
  340. End Sub
  341. Private Sub lblDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  342.  lstEvents.Add "lblDemo_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
  343. End Sub
  344. Private Sub lblDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  345.  lstEvents.Add "lblDemo_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
  346. End Sub
  347. Private Sub txtField_Change(Index As Integer)
  348.  Select Case Index
  349.   Case 0: lblDemo.Caption = txtField(Index)
  350.   Case 1: lblDemo.LinkURL = txtField(Index)
  351.   Case 2: lblDemo.LinkPath = txtField(Index)
  352.  End Select
  353. End Sub
  354.