home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
- Begin VB.Form frmLabelDemonstration
- BorderStyle = 3 'Fixed Dialog
- Caption = "Label Demonstration"
- ClientHeight = 5580
- ClientLeft = 975
- ClientTop = 675
- ClientWidth = 7305
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "Label.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 372
- ScaleMode = 3 'Pixel
- ScaleWidth = 487
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin AIFCmp1.asxLabel lblDemo
- Height = 225
- Left = 135
- TabIndex = 0
- Top = 2655
- Width = 4245
- _ExtentX = 7488
- _ExtentY = 397
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Caption = "asxLabel1"
- AutoSize = -1 'True
- WordWrap = -1 'True
- UseMnemonic = -1 'True
- MouseIcon = "Label.frx":0E42
- End
- Begin VB.CommandButton cmdColor
- Caption = "&Colours..."
- Height = 375
- Left = 5940
- TabIndex = 17
- Top = 1215
- Width = 1185
- End
- Begin VB.CommandButton cmdFont
- Caption = "&Fonts..."
- Height = 375
- Left = 5940
- TabIndex = 16
- Top = 1620
- Width = 1185
- End
- Begin VB.TextBox txtField
- Height = 825
- Index = 0
- Left = 1890
- MultiLine = -1 'True
- ScrollBars = 2 'Vertical
- TabIndex = 9
- Text = "Label.frx":115C
- Top = 315
- Width = 3870
- End
- Begin VB.CheckBox chkAutoSize
- Caption = "&AutoSize"
- Height = 285
- Left = 5940
- TabIndex = 8
- Top = 450
- Value = 1 'Checked
- Width = 1305
- End
- Begin VB.CheckBox chkWordWrap
- Caption = "&WordWrap"
- Height = 285
- Left = 5940
- TabIndex = 7
- Top = 765
- Value = 1 'Checked
- Width = 1305
- End
- Begin VB.ComboBox cboBorderStyle
- Height = 315
- ItemData = "Label.frx":12BB
- Left = 135
- List = "Label.frx":12CB
- Style = 2 'Dropdown List
- TabIndex = 6
- Top = 990
- Width = 1590
- End
- Begin VB.CheckBox chkEnabled
- Caption = "&Enabled"
- Height = 285
- Left = 5940
- TabIndex = 5
- Top = 135
- Value = 1 'Checked
- Width = 1305
- End
- Begin VB.ComboBox cboBackStyle
- Height = 315
- ItemData = "Label.frx":12F1
- Left = 135
- List = "Label.frx":12FB
- Style = 2 'Dropdown List
- TabIndex = 4
- Top = 315
- Width = 1590
- End
- Begin VB.ComboBox cboAlignment
- Height = 315
- ItemData = "Label.frx":1316
- Left = 135
- List = "Label.frx":1326
- Style = 2 'Dropdown List
- TabIndex = 3
- Top = 1665
- Width = 1590
- End
- Begin VB.TextBox txtField
- Height = 285
- Index = 1
- Left = 1890
- TabIndex = 2
- Top = 1530
- Width = 3885
- End
- Begin VB.TextBox txtField
- Height = 285
- Index = 2
- Left = 1890
- TabIndex = 1
- Top = 2205
- Width = 3885
- End
- Begin AriadIFceCompTest.EventList lstEvents
- Height = 1230
- Left = 135
- TabIndex = 18
- Top = 4230
- Width = 7035
- _ExtentX = 12409
- _ExtentY = 2170
- End
- Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1
- Height = 30
- Left = 135
- TabIndex = 19
- Top = 3600
- Width = 7035
- _ExtentX = 12409
- _ExtentY = 53
- Caption = ""
- TextColor = 0
- End
- Begin AIFCmp1.asxPowerButton btnAction
- Cancel = -1 'True
- Default = -1 'True
- Height = 420
- Index = 2
- Left = 5940
- TabIndex = 20
- Top = 3690
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "Label.frx":1348
- Caption = "C&lose"
- CaptionOffsetX = 8
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- PictureAlignment= 3
- End
- Begin AIFCmp1.asxPowerButton btnAction
- Height = 420
- Index = 1
- Left = 4680
- TabIndex = 21
- Top = 3690
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "Label.frx":14A2
- Caption = "&About..."
- CaptionOffsetX = 8
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- PictureAlignment= 3
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&Caption:"
- Height = 195
- Index = 0
- Left = 1890
- TabIndex = 15
- Top = 90
- Width = 615
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&BorderStyle:"
- Height = 195
- Index = 2
- Left = 135
- TabIndex = 14
- Top = 765
- Width = 900
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Bac&kStyle:"
- Height = 195
- Index = 3
- Left = 135
- TabIndex = 13
- Top = 90
- Width = 750
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&Alignment:"
- Height = 195
- Index = 1
- Left = 135
- TabIndex = 12
- Top = 1440
- Width = 765
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Link&URL:"
- Height = 195
- Index = 5
- Left = 1890
- TabIndex = 11
- Top = 1305
- Width = 615
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Link&Path:"
- Height = 195
- Index = 6
- Left = 1890
- TabIndex = 10
- Top = 1980
- Width = 660
- End
- Attribute VB_Name = "frmLabelDemonstration"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- DefInt A-Z
- Dim LabelWidth As Single
- Private Sub btnAction_Click(Index As Integer)
- Select Case Index
- Case 1: lblDemo.About
- Case 2: Unload Me
- End Select
- End Sub
- Private Sub cboAlignment_Click()
- lblDemo.Alignment = cboAlignment.ListIndex
- End Sub
- Private Sub cboBackStyle_Click()
- lblDemo.BackStyle = cboBackStyle.ListIndex
- End Sub
- Private Sub cboBorderStyle_Click()
- lblDemo.BorderStyle = cboBorderStyle.ListIndex
- End Sub
- Private Sub chkAutoSize_Click()
- lblDemo.Width = LabelWidth
- lblDemo.AutoSize = chkAutoSize
- End Sub
- Private Sub chkEnabled_Click()
- lblDemo.Enabled = chkEnabled
- End Sub
- Private Sub chkWordWrap_Click()
- lblDemo.WordWrap = chkWordWrap
- lblDemo.Width = LabelWidth
- End Sub
- Private Sub cmdColor_Click()
- PropPage.ShowPicker hWnd, "Object Colour", lblDemo, ppickColor
- End Sub
- Private Sub cmdFont_Click()
- PropPage.ShowPicker hWnd, "Object Font", lblDemo, ppickFont
- End Sub
- Private Sub Form_Load()
- LabelWidth = lblDemo.Width
- cboBorderStyle.ListIndex = ifcbsNone
- cboBackStyle.ListIndex = ifbsOpaque
- cboAlignment.ListIndex = ifaxLeft
- txtField_Change 0
- End Sub
- Private Sub lblDemo_BeforeURL(Cancel As Boolean)
- lstEvents.Add "lblDemo_BeforeURL()"
- End Sub
- Private Sub lblDemo_Change()
- lstEvents.Add "lblDemo_Change()"
- End Sub
- Private Sub lblDemo_Click()
- lstEvents.Add "lblDemo_Click()"
- End Sub
- Private Sub lblDemo_DblClick()
- lstEvents.Add "lblDemo_DblClick()"
- End Sub
- Private Sub lblDemo_Error(ByVal ErrNum As Long, ByVal ErrMsg As String, CancelErrDlg As Boolean)
- lstEvents.Add "lblDemo_DblClick(" & ErrNum & "," & ErrMsg & ",0)"
- End Sub
- Private Sub lblDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "lblDemo_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
- End Sub
- Private Sub lblDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "lblDemo_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
- End Sub
- Private Sub txtField_Change(Index As Integer)
- Select Case Index
- Case 0: lblDemo.Caption = txtField(Index)
- Case 1: lblDemo.LinkURL = txtField(Index)
- Case 2: lblDemo.LinkPath = txtField(Index)
- End Select
- End Sub
-