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 frmSysButtonDemonstration
- BorderStyle = 3 'Fixed Dialog
- Caption = "SysButton Demonstration"
- ClientHeight = 4560
- ClientLeft = 525
- ClientTop = 795
- ClientWidth = 5565
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "SysButton.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 304
- ScaleMode = 3 'Pixel
- ScaleWidth = 371
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin VB.CheckBox chkEnabled
- Caption = "&Enabled"
- Height = 285
- Left = 1305
- TabIndex = 8
- Top = 2430
- Value = 1 'Checked
- Width = 1410
- End
- Begin VB.CheckBox chkAutoButton
- Caption = "A&utoButton"
- Height = 285
- Left = 1305
- TabIndex = 7
- Top = 2115
- Value = 1 'Checked
- Width = 1410
- End
- Begin VB.TextBox txtField
- Height = 285
- Left = 1305
- TabIndex = 6
- Text = "0"
- Top = 1710
- Width = 735
- End
- Begin VB.ComboBox cboButtonFlags
- Height = 315
- ItemData = "SysButton.frx":0E42
- Left = 1305
- List = "SysButton.frx":0E5B
- Style = 2 'Dropdown List
- TabIndex = 3
- Top = 1035
- Width = 2355
- End
- Begin VB.ComboBox cboButtonStyle
- Height = 315
- ItemData = "SysButton.frx":0EBB
- Left = 1305
- List = "SysButton.frx":0EFE
- Style = 2 'Dropdown List
- TabIndex = 1
- Top = 360
- Width = 2355
- End
- Begin AIFCmp1.asxSysButton sbnDemo
- Height = 1050
- Left = 135
- Top = 135
- Width = 1050
- _ExtentX = 1852
- _ExtentY = 1852
- ButtonStyle = 20
- End
- Begin AriadIFceCompTest.EventList lstEvents
- Height = 1050
- Left = 90
- TabIndex = 12
- Top = 3375
- Width = 5325
- _ExtentX = 9393
- _ExtentY = 1852
- End
- Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1
- Height = 30
- Left = 135
- TabIndex = 9
- Top = 2790
- Width = 5280
- _ExtentX = 9313
- _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 = 4185
- TabIndex = 11
- Top = 2880
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "SysButton.frx":108E
- 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 = 2925
- TabIndex = 10
- Top = 2880
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "SysButton.frx":11E8
- 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 = "&Margin:"
- Height = 195
- Index = 2
- Left = 1305
- TabIndex = 5
- Top = 1485
- Width = 540
- End
- Begin VB.Label Label1
- Alignment = 2 'Center
- AutoSize = -1 'True
- Caption = "Although not directly supported by this demo, ButtonFlags can be combined at runtime using standard boolean keywords."
- Height = 1365
- Left = 3825
- TabIndex = 4
- Top = 225
- Width = 1590
- WordWrap = -1 'True
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Button&Flags:"
- Height = 195
- Index = 1
- Left = 1305
- TabIndex = 2
- Top = 810
- Width = 915
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Button&Style:"
- Height = 195
- Index = 0
- Left = 1305
- TabIndex = 0
- Top = 135
- Width = 900
- End
- Attribute VB_Name = "frmSysButtonDemonstration"
- 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: sbnDemo.About
- Case 2: Unload Me
- End Select
- End Sub
- Private Sub cboButtonFlags_Click()
- Dim F As Long
- Select Case cboButtonFlags.ListIndex
- Case 0: F = &H0 '(Default) No flags set
- Case 1: F = &H100 'Button is disabled
- Case 2: F = &H200 'Button is pushed (lowered)
- Case 3: F = &H400 'Button is checked
- Case 4: F = &H2000
- Case 5: F = &H4000 'Button is flat
- Case 6: F = &H8000 'Button is drawn in mono colours
- End Select
- sbnDemo.ButtonFlags = F
- End Sub
- Private Sub cboButtonStyle_Click()
- sbnDemo.ButtonStyle = cboButtonStyle.ListIndex
- End Sub
- Private Sub chkAutoButton_Click()
- sbnDemo.AutoButton = chkAutoButton
- End Sub
- Private Sub chkEnabled_Click()
- sbnDemo.Enabled = chkEnabled
- End Sub
- Private Sub Form_Load()
- cboButtonStyle.ListIndex = sbbsButtonPush
- cboButtonFlags.ListIndex = sbbfNone
- End Sub
- Private Sub sbnDemo_Click()
- lstEvents.Add "sbnDemo_Click()"
- End Sub
- Private Sub sbnDemo_DblClick()
- lstEvents.Add "sbnDemo_DblClick()"
- End Sub
- Private Sub sbnDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "sbnDemo_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
- End Sub
- Private Sub sbnDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "sbnDemo_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
- End Sub
- Private Sub txtField_Change()
- sbnDemo.Margin = Val(txtField)
- End Sub
-