home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / SysButton.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  8.2 KB  |  255 lines
  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
  3. Begin VB.Form frmSysButtonDemonstration 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "SysButton Demonstration"
  6.    ClientHeight    =   4560
  7.    ClientLeft      =   525
  8.    ClientTop       =   795
  9.    ClientWidth     =   5565
  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            =   "SysButton.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   304
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   371
  26.    ShowInTaskbar   =   0   'False
  27.    StartUpPosition =   2  'CenterScreen
  28.    Begin VB.CheckBox chkEnabled 
  29.       Caption         =   "&Enabled"
  30.       Height          =   285
  31.       Left            =   1305
  32.       TabIndex        =   8
  33.       Top             =   2430
  34.       Value           =   1  'Checked
  35.       Width           =   1410
  36.    End
  37.    Begin VB.CheckBox chkAutoButton 
  38.       Caption         =   "A&utoButton"
  39.       Height          =   285
  40.       Left            =   1305
  41.       TabIndex        =   7
  42.       Top             =   2115
  43.       Value           =   1  'Checked
  44.       Width           =   1410
  45.    End
  46.    Begin VB.TextBox txtField 
  47.       Height          =   285
  48.       Left            =   1305
  49.       TabIndex        =   6
  50.       Text            =   "0"
  51.       Top             =   1710
  52.       Width           =   735
  53.    End
  54.    Begin VB.ComboBox cboButtonFlags 
  55.       Height          =   315
  56.       ItemData        =   "SysButton.frx":0E42
  57.       Left            =   1305
  58.       List            =   "SysButton.frx":0E5B
  59.       Style           =   2  'Dropdown List
  60.       TabIndex        =   3
  61.       Top             =   1035
  62.       Width           =   2355
  63.    End
  64.    Begin VB.ComboBox cboButtonStyle 
  65.       Height          =   315
  66.       ItemData        =   "SysButton.frx":0EBB
  67.       Left            =   1305
  68.       List            =   "SysButton.frx":0EFE
  69.       Style           =   2  'Dropdown List
  70.       TabIndex        =   1
  71.       Top             =   360
  72.       Width           =   2355
  73.    End
  74.    Begin AIFCmp1.asxSysButton sbnDemo 
  75.       Height          =   1050
  76.       Left            =   135
  77.       Top             =   135
  78.       Width           =   1050
  79.       _ExtentX        =   1852
  80.       _ExtentY        =   1852
  81.       ButtonStyle     =   20
  82.    End
  83.    Begin AriadIFceCompTest.EventList lstEvents 
  84.       Height          =   1050
  85.       Left            =   90
  86.       TabIndex        =   12
  87.       Top             =   3375
  88.       Width           =   5325
  89.       _ExtentX        =   9393
  90.       _ExtentY        =   1852
  91.    End
  92.    Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1 
  93.       Height          =   30
  94.       Left            =   135
  95.       TabIndex        =   9
  96.       Top             =   2790
  97.       Width           =   5280
  98.       _ExtentX        =   9313
  99.       _ExtentY        =   53
  100.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  101.          Name            =   "Tahoma"
  102.          Size            =   8.25
  103.          Charset         =   0
  104.          Weight          =   400
  105.          Underline       =   0   'False
  106.          Italic          =   0   'False
  107.          Strikethrough   =   0   'False
  108.       EndProperty
  109.       Caption         =   ""
  110.       TextColor       =   0
  111.    End
  112.    Begin AIFCmp1.asxPowerButton btnAction 
  113.       Cancel          =   -1  'True
  114.       Default         =   -1  'True
  115.       Height          =   420
  116.       Index           =   2
  117.       Left            =   4185
  118.       TabIndex        =   11
  119.       Top             =   2880
  120.       Width           =   1230
  121.       _ExtentX        =   2170
  122.       _ExtentY        =   741
  123.       Picture         =   "SysButton.frx":108E
  124.       Caption         =   "C&lose"
  125.       CaptionOffsetX  =   8
  126.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  127.          Name            =   "Tahoma"
  128.          Size            =   8.25
  129.          Charset         =   0
  130.          Weight          =   400
  131.          Underline       =   0   'False
  132.          Italic          =   0   'False
  133.          Strikethrough   =   0   'False
  134.       EndProperty
  135.       PictureAlignment=   3
  136.    End
  137.    Begin AIFCmp1.asxPowerButton btnAction 
  138.       Height          =   420
  139.       Index           =   1
  140.       Left            =   2925
  141.       TabIndex        =   10
  142.       Top             =   2880
  143.       Width           =   1230
  144.       _ExtentX        =   2170
  145.       _ExtentY        =   741
  146.       Picture         =   "SysButton.frx":11E8
  147.       Caption         =   "&About..."
  148.       CaptionOffsetX  =   8
  149.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  150.          Name            =   "Tahoma"
  151.          Size            =   8.25
  152.          Charset         =   0
  153.          Weight          =   400
  154.          Underline       =   0   'False
  155.          Italic          =   0   'False
  156.          Strikethrough   =   0   'False
  157.       EndProperty
  158.       PictureAlignment=   3
  159.    End
  160.    Begin VB.Label lblHdr 
  161.       AutoSize        =   -1  'True
  162.       Caption         =   "&Margin:"
  163.       Height          =   195
  164.       Index           =   2
  165.       Left            =   1305
  166.       TabIndex        =   5
  167.       Top             =   1485
  168.       Width           =   540
  169.    End
  170.    Begin VB.Label Label1 
  171.       Alignment       =   2  'Center
  172.       AutoSize        =   -1  'True
  173.       Caption         =   "Although not directly supported by this demo, ButtonFlags can be combined at runtime using standard boolean keywords."
  174.       Height          =   1365
  175.       Left            =   3825
  176.       TabIndex        =   4
  177.       Top             =   225
  178.       Width           =   1590
  179.       WordWrap        =   -1  'True
  180.    End
  181.    Begin VB.Label lblHdr 
  182.       AutoSize        =   -1  'True
  183.       Caption         =   "Button&Flags:"
  184.       Height          =   195
  185.       Index           =   1
  186.       Left            =   1305
  187.       TabIndex        =   2
  188.       Top             =   810
  189.       Width           =   915
  190.    End
  191.    Begin VB.Label lblHdr 
  192.       AutoSize        =   -1  'True
  193.       Caption         =   "Button&Style:"
  194.       Height          =   195
  195.       Index           =   0
  196.       Left            =   1305
  197.       TabIndex        =   0
  198.       Top             =   135
  199.       Width           =   900
  200.    End
  201. Attribute VB_Name = "frmSysButtonDemonstration"
  202. Attribute VB_GlobalNameSpace = False
  203. Attribute VB_Creatable = False
  204. Attribute VB_PredeclaredId = True
  205. Attribute VB_Exposed = False
  206. Option Explicit
  207. DefInt A-Z
  208. Private Sub btnAction_Click(Index As Integer)
  209.  Select Case Index
  210.   Case 1: sbnDemo.About
  211.   Case 2: Unload Me
  212.  End Select
  213. End Sub
  214. Private Sub cboButtonFlags_Click()
  215.  Dim F As Long
  216.  Select Case cboButtonFlags.ListIndex
  217.   Case 0: F = &H0 '(Default) No flags set
  218.   Case 1: F = &H100 'Button is disabled
  219.   Case 2: F = &H200 'Button is pushed (lowered)
  220.   Case 3: F = &H400 'Button is checked
  221.   Case 4: F = &H2000
  222.   Case 5: F = &H4000 'Button is flat
  223.   Case 6: F = &H8000 'Button is drawn in mono colours
  224.  End Select
  225.  sbnDemo.ButtonFlags = F
  226. End Sub
  227. Private Sub cboButtonStyle_Click()
  228.  sbnDemo.ButtonStyle = cboButtonStyle.ListIndex
  229. End Sub
  230. Private Sub chkAutoButton_Click()
  231.  sbnDemo.AutoButton = chkAutoButton
  232. End Sub
  233. Private Sub chkEnabled_Click()
  234.  sbnDemo.Enabled = chkEnabled
  235. End Sub
  236. Private Sub Form_Load()
  237.  cboButtonStyle.ListIndex = sbbsButtonPush
  238.  cboButtonFlags.ListIndex = sbbfNone
  239. End Sub
  240. Private Sub sbnDemo_Click()
  241.  lstEvents.Add "sbnDemo_Click()"
  242. End Sub
  243. Private Sub sbnDemo_DblClick()
  244.  lstEvents.Add "sbnDemo_DblClick()"
  245. End Sub
  246. Private Sub sbnDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  247.  lstEvents.Add "sbnDemo_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
  248. End Sub
  249. Private Sub sbnDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  250.  lstEvents.Add "sbnDemo_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
  251. End Sub
  252. Private Sub txtField_Change()
  253.  sbnDemo.Margin = Val(txtField)
  254. End Sub
  255.