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 frmFontLabelDemonstration
- BorderStyle = 3 'Fixed Dialog
- Caption = "FontLabel Demonstration"
- ClientHeight = 6270
- ClientLeft = 510
- ClientTop = 420
- ClientWidth = 6585
- Icon = "FontLabel.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 6270
- ScaleWidth = 6585
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin VB.ComboBox cboAlignment
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 315
- ItemData = "FontLabel.frx":0E42
- Left = 4500
- List = "FontLabel.frx":0E61
- Style = 2 'Dropdown List
- TabIndex = 9
- Top = 3960
- Width = 1950
- End
- Begin VB.CheckBox chkPicture
- Caption = "&Picture"
- Height = 285
- Left = 4500
- TabIndex = 7
- Top = 3375
- Width = 1950
- End
- Begin VB.CommandButton cmdFont
- Caption = "&Fonts..."
- Height = 375
- Left = 1350
- TabIndex = 12
- Top = 4455
- Width = 1230
- End
- Begin AriadIFceCompTest.EventList lstEvents
- Height = 1230
- Left = 90
- TabIndex = 15
- Top = 4905
- Width = 6405
- _ExtentX = 11298
- _ExtentY = 2170
- End
- Begin VB.ComboBox cboBorderStyle
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 315
- ItemData = "FontLabel.frx":0F10
- Left = 4500
- List = "FontLabel.frx":0F20
- Style = 2 'Dropdown List
- TabIndex = 4
- Top = 2295
- Width = 1950
- End
- Begin VB.ComboBox cboBackStyle
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 315
- ItemData = "FontLabel.frx":0F46
- Left = 4500
- List = "FontLabel.frx":0F50
- Style = 2 'Dropdown List
- TabIndex = 6
- Top = 2970
- Width = 1950
- End
- Begin VB.CommandButton cmdColor
- Caption = "&Colours..."
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 375
- Left = 135
- TabIndex = 11
- Top = 4455
- Width = 1185
- End
- Begin VB.TextBox txtCaption
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 1995
- Left = 90
- MultiLine = -1 'True
- ScrollBars = 2 'Vertical
- TabIndex = 2
- Top = 2295
- Width = 4290
- End
- Begin AIFCmp1.asxFontLabel flbData
- Height = 1860
- Left = 90
- TabIndex = 0
- Top = 90
- Width = 6405
- _ExtentX = 11298
- _ExtentY = 3281
- Caption = ""
- 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
- WordWrap = -1 'True
- End
- Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1
- Height = 30
- Left = 135
- TabIndex = 10
- Top = 4320
- Width = 6360
- _ExtentX = 11218
- _ExtentY = 53
- Caption = ""
- TextColor = 0
- End
- Begin AIFCmp1.asxPowerButton btnAction
- Cancel = -1 'True
- Default = -1 'True
- Height = 420
- Index = 2
- Left = 5265
- TabIndex = 14
- Top = 4410
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "FontLabel.frx":0F69
- 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 = 4005
- TabIndex = 13
- Top = 4410
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "FontLabel.frx":10C3
- 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 = "PictureA&lignment:"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 195
- Index = 3
- Left = 4500
- TabIndex = 8
- Top = 3735
- Width = 1260
- End
- Begin VB.Image imgAriad
- Height = 480
- Left = 2655
- MouseIcon = "FontLabel.frx":121D
- Picture = "FontLabel.frx":1527
- Top = 4410
- Visible = 0 'False
- Width = 480
- End
- Begin VB.Label lbLhdr
- AutoSize = -1 'True
- Caption = "Border&Style:"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 195
- Index = 2
- Left = 4500
- TabIndex = 3
- Top = 2070
- Width = 900
- End
- Begin VB.Label lbLhdr
- AutoSize = -1 'True
- Caption = "&BackStyle:"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 195
- Index = 1
- Left = 4500
- TabIndex = 5
- Top = 2745
- Width = 750
- End
- Begin VB.Shape Shape1
- DrawMode = 6 'Mask Pen Not
- FillStyle = 7 'Diagonal Cross
- Height = 1860
- Left = 90
- Shape = 2 'Oval
- Top = 90
- Width = 6405
- End
- Begin VB.Label lbLhdr
- AutoSize = -1 'True
- Caption = "&Caption:"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 195
- Index = 0
- Left = 90
- TabIndex = 1
- Top = 2070
- Width = 615
- End
- Attribute VB_Name = "frmFontLabelDemonstration"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- DefInt A-Z
- Private Sub btnAction_Click(Index As Integer)
- Select Case Index
- Case 1: flbData.About
- Case 2: Unload Me
- End Select
- End Sub
- Private Sub cboAlignment_Click()
- flbData.PictureAlignment = cboAlignment.ListIndex
- End Sub
- Private Sub cboBackStyle_Click()
- flbData.BackStyle = cboBackStyle.ListIndex
- End Sub
- Private Sub cboBorderStyle_Click()
- flbData.BorderStyle = cboBorderStyle.ListIndex
- End Sub
- Private Sub chkPicture_Click()
- Set flbData.Picture = IIf(chkPicture, imgAriad, Nothing)
- End Sub
- Private Sub cmdColor_Click()
- PropPage.ShowPicker hWnd, "Object Colour", flbData, ppickColor
- End Sub
- Private Sub cmdFont_Click()
- PropPage.ShowPicker hWnd, "Object Font", flbData, ppickFont
- End Sub
- Private Sub flbData_Changed()
- lstEvents.Add "flbData_Changed()"
- End Sub
- Private Sub flbData_Click()
- lstEvents.Add "fldData_Click()"
- End Sub
- Private Sub flbData_DblClick()
- lstEvents.Add "fldData_DblClick()"
- End Sub
- Private Sub flbData_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "flbData_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
- End Sub
- Private Sub flbData_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "flbData_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
- End Sub
- Private Sub Form_Load()
- cboBorderStyle.ListIndex = ifcbsNone
- cboBackStyle.ListIndex = ifbsOpaque
- cboAlignment.ListIndex = aiaCenterCenter
- txtCaption = FLABEL$
- End Sub
- Private Sub txtCaption_Change()
- flbData.Caption = txtCaption
- End Sub
-