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 frmPanelDemonstration
- BorderStyle = 3 'Fixed Dialog
- Caption = "Panel Demonstration"
- ClientHeight = 5505
- ClientLeft = 480
- ClientTop = 765
- ClientWidth = 7935
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "Panel.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 5505
- ScaleWidth = 7935
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin VB.CommandButton cmdProperties
- Caption = "Font..."
- Height = 375
- Index = 1
- Left = 1350
- TabIndex = 29
- Top = 3600
- Width = 1185
- End
- Begin VB.CommandButton cmdProperties
- Caption = "Colours..."
- Height = 375
- Index = 0
- Left = 135
- TabIndex = 28
- Top = 3600
- Width = 1185
- End
- Begin AIFCmp1.asxPanel pnlDemo
- Height = 3255
- Left = 5895
- Top = 135
- Width = 1905
- _ExtentX = 3360
- _ExtentY = 5741
- Picture = "Panel.frx":0E42
- 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
- End
- Begin VB.CheckBox chkBorderTop
- Caption = "Border&Top"
- Height = 285
- Left = 3780
- TabIndex = 20
- Top = 135
- Value = 1 'Checked
- Width = 1965
- End
- Begin VB.CheckBox chkBorderLeft
- Caption = "Border&Left"
- Height = 285
- Left = 3780
- TabIndex = 21
- Top = 450
- Value = 1 'Checked
- Width = 1965
- End
- Begin VB.CheckBox chkBorderRight
- Caption = "Border&Right"
- Height = 285
- Left = 3780
- TabIndex = 22
- Top = 765
- Value = 1 'Checked
- Width = 1965
- End
- Begin VB.CheckBox chkBorderBottom
- Caption = "Border&Bottom"
- Height = 285
- Left = 3780
- TabIndex = 23
- Top = 1080
- Value = 1 'Checked
- Width = 1965
- End
- Begin VB.ComboBox cboStyle
- Height = 315
- ItemData = "Panel.frx":1D3C
- Left = 135
- List = "Panel.frx":1D52
- Style = 2 'Dropdown List
- TabIndex = 1
- Top = 315
- Width = 1725
- End
- Begin VB.CheckBox chkDragHandle
- Caption = "&DragHandle"
- Height = 285
- Left = 3780
- TabIndex = 26
- Top = 2160
- Width = 1965
- End
- Begin VB.CheckBox chkDoubleTopBorder
- Caption = "Dou&bleTopBorder"
- Height = 285
- Left = 3780
- TabIndex = 24
- Top = 1530
- Width = 1965
- End
- Begin VB.CheckBox chkUseMaskColor
- Caption = "&UseMaskColor"
- Height = 285
- Left = 2205
- TabIndex = 18
- Top = 2790
- Value = 1 'Checked
- Width = 1965
- End
- Begin VB.CheckBox chkDoubleBottomBorder
- Caption = "Do&ubleBottomBorder"
- Height = 285
- Left = 3780
- TabIndex = 25
- Top = 1845
- Width = 1965
- End
- Begin VB.TextBox txtCaption
- Height = 285
- Index = 0
- Left = 135
- TabIndex = 3
- Top = 990
- Width = 2940
- End
- Begin VB.CheckBox chkTilePicture
- Caption = "T&ilePicture"
- Height = 285
- Left = 135
- TabIndex = 16
- Top = 2790
- Width = 1965
- End
- Begin VB.ComboBox lstAlign
- Height = 315
- Index = 0
- ItemData = "Panel.frx":1DAB
- Left = 135
- List = "Panel.frx":1DCA
- Style = 2 'Dropdown List
- TabIndex = 5
- Top = 1665
- Width = 1725
- End
- Begin VB.ComboBox lstAlign
- Height = 315
- Index = 1
- ItemData = "Panel.frx":1E5E
- Left = 135
- List = "Panel.frx":1E7D
- Style = 2 'Dropdown List
- TabIndex = 11
- Top = 2340
- Width = 1725
- End
- Begin VB.TextBox txtCaption
- Height = 285
- Index = 1
- Left = 2025
- TabIndex = 7
- Top = 1665
- Width = 690
- End
- Begin VB.TextBox txtCaption
- Height = 285
- Index = 2
- Left = 2025
- TabIndex = 13
- Top = 2340
- Width = 690
- End
- Begin VB.TextBox txtCaption
- Height = 285
- Index = 3
- Left = 2925
- TabIndex = 9
- Top = 1665
- Width = 690
- End
- Begin VB.TextBox txtCaption
- Height = 285
- Index = 4
- Left = 2925
- TabIndex = 15
- Top = 2340
- Width = 690
- End
- Begin VB.CheckBox chkEnabled
- Caption = "&Enabled"
- Height = 285
- Left = 135
- TabIndex = 17
- Top = 3150
- Value = 1 'Checked
- Width = 1965
- End
- Begin VB.CheckBox chkChecked
- Caption = "Chec&ked"
- Height = 285
- Left = 2205
- TabIndex = 19
- Top = 3150
- Width = 1965
- End
- Begin AriadIFceCompTest.EventList lstEvents
- Height = 1230
- Left = 135
- TabIndex = 32
- Top = 4140
- Width = 7665
- _ExtentX = 13520
- _ExtentY = 2170
- End
- Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1
- Height = 30
- Left = 135
- TabIndex = 27
- Top = 3510
- Width = 7665
- _ExtentX = 13520
- _ExtentY = 53
- 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 = ""
- TextColor = 0
- End
- Begin AIFCmp1.asxPowerButton btnAction
- Cancel = -1 'True
- Default = -1 'True
- Height = 420
- Index = 2
- Left = 6570
- TabIndex = 31
- Top = 3600
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "Panel.frx":1F11
- 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 = 5310
- TabIndex = 30
- Top = 3600
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "Panel.frx":206B
- 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 = "Border&Style:"
- Height = 195
- Index = 0
- Left = 135
- TabIndex = 0
- Top = 90
- Width = 900
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&Caption:"
- Height = 195
- Index = 1
- Left = 135
- TabIndex = 2
- Top = 765
- Width = 615
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Caption Ali&gnment:"
- Height = 195
- Index = 2
- Left = 135
- TabIndex = 4
- Top = 1440
- Width = 1365
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&Picture Alignment:"
- Height = 195
- Index = 3
- Left = 135
- TabIndex = 10
- Top = 2115
- Width = 1305
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Offset X:"
- Height = 195
- Index = 4
- Left = 2025
- TabIndex = 6
- Top = 1440
- Width = 660
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Offset X:"
- Height = 195
- Index = 5
- Left = 2025
- TabIndex = 12
- Top = 2115
- Width = 660
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Offset Y:"
- Height = 195
- Index = 6
- Left = 2925
- TabIndex = 8
- Top = 1440
- Width = 660
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Offset Y:"
- Height = 195
- Index = 7
- Left = 2925
- TabIndex = 14
- Top = 2115
- Width = 660
- End
- Attribute VB_Name = "frmPanelDemonstration"
- 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: pnlDemo.About
- Case 2: Unload Me
- End Select
- End Sub
- Private Sub cboStyle_Click()
- pnlDemo.BorderStyle = cboStyle.ListIndex
- End Sub
- Private Sub chkChecked_Click()
- pnlDemo.Checked = chkChecked
- End Sub
- Private Sub chkDragHandle_Click()
- pnlDemo.DragHandle = chkDragHandle
- End Sub
- Private Sub chkEnabled_Click()
- pnlDemo.Enabled = chkEnabled
- End Sub
- Private Sub chkTilePicture_Click()
- pnlDemo.TilePicture = chkTilePicture
- End Sub
- Private Sub chkUseMaskColor_Click()
- pnlDemo.UseMaskColor = chkUseMaskColor
- End Sub
- Private Sub cmdProperties_Click(Index As Integer)
- Select Case Index
- Case 0: PropPage.ShowPicker hWnd, "Object Colour", pnlDemo, ppickColor
- Case 1: PropPage.ShowPicker hWnd, "Object Font", pnlDemo, ppickFont
- 'Case 2: PropPage.ShowPicker hWnd, "Object Picture", pnlDemo, ppickPicture
- End Select
- End Sub
- Private Sub Form_Load()
- cboStyle.ListIndex = tbbsRaised
- lstAlign(0).ListIndex = aiaCenterCenter
- lstAlign(1).ListIndex = aiaCenterCenter
- End Sub
- Private Sub chkBorderBottom_Click()
- pnlDemo.BorderBottom = chkBorderBottom
- End Sub
- Private Sub chkBorderLeft_Click()
- pnlDemo.BorderLeft = chkBorderLeft
- End Sub
- Private Sub chkBorderRight_Click()
- pnlDemo.BorderRight = chkBorderRight
- End Sub
- Private Sub chkBorderTop_Click()
- pnlDemo.BorderTop = chkBorderTop
- End Sub
- Private Sub chkDoubleBottomBorder_Click()
- pnlDemo.DoubleBottomBorder = chkDoubleBottomBorder
- End Sub
- Private Sub chkDoubleTopBorder_Click()
- pnlDemo.DoubleTopBorder = chkDoubleTopBorder
- End Sub
- Private Sub lstAlign_Click(Index As Integer)
- Select Case Index
- Case 0: pnlDemo.CaptionAlignment = lstAlign(Index).ListIndex
- Case 1: pnlDemo.PictureAlignment = lstAlign(Index).ListIndex
- End Select
- End Sub
- Private Sub pnlDemo_Click()
- lstEvents.Add "pnlDemo_Click()"
- End Sub
- Private Sub pnlDemo_DblClick()
- lstEvents.Add "pnlDemo_DblClick()"
- End Sub
- Private Sub pnlDemo_HandleMouseDown(Button As Integer, Shift As Integer)
- lstEvents.Add "pnlDemo_HandleMouseDown(" & Button & "," & Shift & ")"
- End Sub
- Private Sub pnlDemo_HandleMouseUp(Button As Integer, Shift As Integer)
- lstEvents.Add "pnlDemo_HandleMouseUp(" & Button & "," & Shift & ")"
- End Sub
- Private Sub pnlDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "pnlDemo_MouseDown(" & Button & "," & Shift & X & "," & Y & ")"
- End Sub
- Private Sub pnlDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "pnlDemo_MouseUp(" & Button & "," & Shift & X & "," & Y & ")"
- End Sub
- Private Sub pnlDemo_Resize(ByVal NewWidth As Single, ByVal NewHeight As Single)
- lstEvents.Add "pnlDemo_Resize(" & NewWidth & "," & NewHeight & ")"
- End Sub
- Private Sub txtCaption_Change(Index As Integer)
- Select Case Index
- Case 0: pnlDemo.Caption = txtCaption(Index)
- Case 1: pnlDemo.CaptionOffsetX = Val(txtCaption(Index))
- Case 2: pnlDemo.CaptionOffsetY = Val(txtCaption(Index))
- Case 3: pnlDemo.PictureOffsetX = Val(txtCaption(Index))
- Case 4: pnlDemo.PictureOffsetY = Val(txtCaption(Index))
- End Select
- End Sub
-