home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / Toolbox.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  9.3 KB  |  260 lines
  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
  3. Begin VB.Form frmToolboxDemonstration 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Toolbox Demonstration"
  6.    ClientHeight    =   3885
  7.    ClientLeft      =   1890
  8.    ClientTop       =   1305
  9.    ClientWidth     =   6645
  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            =   "Toolbox.frx":0000
  20.    LinkTopic       =   "Form2"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   259
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   443
  26.    ShowInTaskbar   =   0   'False
  27.    StartUpPosition =   2  'CenterScreen
  28.    Begin VB.CommandButton cmdColours 
  29.       Caption         =   "&Colours..."
  30.       Height          =   375
  31.       Left            =   3780
  32.       TabIndex        =   3
  33.       Top             =   1305
  34.       Width           =   1185
  35.    End
  36.    Begin VB.CheckBox chkClick 
  37.       Caption         =   "Buttons Stay Down with Click"
  38.       Height          =   240
  39.       Left            =   3780
  40.       TabIndex        =   2
  41.       Top             =   90
  42.       Value           =   1  'Checked
  43.       Width           =   2715
  44.    End
  45.    Begin VB.CheckBox chkEnabled 
  46.       Caption         =   "Enabled"
  47.       Height          =   240
  48.       Left            =   3780
  49.       TabIndex        =   1
  50.       Top             =   360
  51.       Value           =   1  'Checked
  52.       Width           =   1995
  53.    End
  54.    Begin VB.CommandButton cmdFloat 
  55.       Caption         =   "Floating..."
  56.       Height          =   375
  57.       Left            =   3780
  58.       TabIndex        =   0
  59.       Top             =   900
  60.       Width           =   1185
  61.    End
  62.    Begin AIFCmp1.asxToolbox tbxDemo 
  63.       Height          =   1920
  64.       Left            =   45
  65.       Top             =   90
  66.       Width           =   3645
  67.       _ExtentX        =   6429
  68.       _ExtentY        =   3387
  69.       BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  70.          Name            =   "MS Sans Serif"
  71.          Size            =   8.25
  72.          Charset         =   0
  73.          Weight          =   400
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       ButtonCount     =   18
  79.       ButtonPicture1  =   "Toolbox.frx":0E42
  80.       ButtonPictureOver1=   "Toolbox.frx":1344
  81.       ButtonToolTipText1=   "Back"
  82.       ButtonPicture2  =   "Toolbox.frx":1846
  83.       ButtonPictureOver2=   "Toolbox.frx":1D48
  84.       ButtonToolTipText2=   "Open"
  85.       ButtonPicture3  =   "Toolbox.frx":224A
  86.       ButtonPictureOver3=   "Toolbox.frx":274C
  87.       ButtonToolTipText3=   "Save"
  88.       ButtonPicture4  =   "Toolbox.frx":2C4E
  89.       ButtonPictureOver4=   "Toolbox.frx":3150
  90.       ButtonToolTipText4=   "Copy"
  91.       ButtonPicture5  =   "Toolbox.frx":3652
  92.       ButtonPictureOver5=   "Toolbox.frx":3B54
  93.       ButtonToolTipText5=   "Cut"
  94.       ButtonPicture6  =   "Toolbox.frx":4056
  95.       ButtonPictureOver6=   "Toolbox.frx":4558
  96.       ButtonToolTipText6=   "Paste"
  97.       ButtonPicture7  =   "Toolbox.frx":4A5A
  98.       ButtonPictureOver7=   "Toolbox.frx":4F5C
  99.       ButtonToolTipText7=   "Delete"
  100.       ButtonPicture8  =   "Toolbox.frx":545E
  101.       ButtonPictureOver8=   "Toolbox.frx":5960
  102.       ButtonToolTipText8=   "Undo"
  103.       ButtonPicture9  =   "Toolbox.frx":5E62
  104.       ButtonPictureOver9=   "Toolbox.frx":6364
  105.       ButtonToolTipText9=   "Redo"
  106.       ButtonPicture10 =   "Toolbox.frx":6866
  107.       ButtonPictureOver10=   "Toolbox.frx":6D68
  108.       ButtonToolTipText10=   "Properties"
  109.       ButtonPicture11 =   "Toolbox.frx":726A
  110.       ButtonPictureOver11=   "Toolbox.frx":776C
  111.       ButtonToolTipText11=   "Print"
  112.       ButtonPicture12 =   "Toolbox.frx":7BF6
  113.       ButtonPictureOver12=   "Toolbox.frx":80F8
  114.       ButtonToolTipText12=   "Find"
  115.       ButtonPicture13 =   "Toolbox.frx":85FA
  116.       ButtonPictureOver13=   "Toolbox.frx":8AFC
  117.       ButtonToolTipText13=   "Find Next"
  118.       ButtonPicture14 =   "Toolbox.frx":8FFE
  119.       ButtonPictureOver14=   "Toolbox.frx":9500
  120.       ButtonToolTipText14=   "View Icons"
  121.       ButtonPicture15 =   "Toolbox.frx":9A02
  122.       ButtonPictureOver15=   "Toolbox.frx":9F04
  123.       ButtonToolTipText15=   "View Small Icons"
  124.       ButtonPicture16 =   "Toolbox.frx":A406
  125.       ButtonPictureOver16=   "Toolbox.frx":A908
  126.       ButtonToolTipText16=   "View List"
  127.       ButtonPicture17 =   "Toolbox.frx":AE0A
  128.       ButtonPictureOver17=   "Toolbox.frx":B30C
  129.       ButtonToolTipText17=   "View Details"
  130.       ButtonPicture18 =   "Toolbox.frx":B80E
  131.       ButtonPictureOver18=   "Toolbox.frx":BD10
  132.       ButtonToolTipText18=   "What's This Help"
  133.    End
  134.    Begin AriadIFceCompTest.EventList lstEvents 
  135.       Height          =   1050
  136.       Left            =   90
  137.       TabIndex        =   4
  138.       Top             =   2700
  139.       Width           =   6450
  140.       _ExtentX        =   11377
  141.       _ExtentY        =   1852
  142.    End
  143.    Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1 
  144.       Height          =   30
  145.       Left            =   45
  146.       TabIndex        =   5
  147.       Top             =   2115
  148.       Width           =   6495
  149.       _ExtentX        =   11456
  150.       _ExtentY        =   53
  151.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  152.          Name            =   "Tahoma"
  153.          Size            =   8.25
  154.          Charset         =   0
  155.          Weight          =   400
  156.          Underline       =   0   'False
  157.          Italic          =   0   'False
  158.          Strikethrough   =   0   'False
  159.       EndProperty
  160.       Caption         =   ""
  161.       TextColor       =   0
  162.    End
  163.    Begin AIFCmp1.asxPowerButton btnAction 
  164.       Cancel          =   -1  'True
  165.       Default         =   -1  'True
  166.       Height          =   420
  167.       Index           =   2
  168.       Left            =   5310
  169.       TabIndex        =   6
  170.       Top             =   2205
  171.       Width           =   1230
  172.       _ExtentX        =   2170
  173.       _ExtentY        =   741
  174.       Picture         =   "Toolbox.frx":C212
  175.       Caption         =   "C&lose"
  176.       CaptionOffsetX  =   8
  177.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  178.          Name            =   "Tahoma"
  179.          Size            =   8.25
  180.          Charset         =   0
  181.          Weight          =   400
  182.          Underline       =   0   'False
  183.          Italic          =   0   'False
  184.          Strikethrough   =   0   'False
  185.       EndProperty
  186.       PictureAlignment=   3
  187.    End
  188.    Begin AIFCmp1.asxPowerButton btnAction 
  189.       Height          =   420
  190.       Index           =   1
  191.       Left            =   4050
  192.       TabIndex        =   7
  193.       Top             =   2205
  194.       Width           =   1230
  195.       _ExtentX        =   2170
  196.       _ExtentY        =   741
  197.       Picture         =   "Toolbox.frx":C36C
  198.       Caption         =   "&About..."
  199.       CaptionOffsetX  =   8
  200.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  201.          Name            =   "Tahoma"
  202.          Size            =   8.25
  203.          Charset         =   0
  204.          Weight          =   400
  205.          Underline       =   0   'False
  206.          Italic          =   0   'False
  207.          Strikethrough   =   0   'False
  208.       EndProperty
  209.       PictureAlignment=   3
  210.    End
  211. Attribute VB_Name = "frmToolboxDemonstration"
  212. Attribute VB_GlobalNameSpace = False
  213. Attribute VB_Creatable = False
  214. Attribute VB_PredeclaredId = True
  215. Attribute VB_Exposed = False
  216. Option Explicit
  217. DefInt A-Z
  218. Private Sub btnAction_Click(Index As Integer)
  219.  Select Case Index
  220.   Case 1: tbxDemo.About
  221.   Case 2: Unload Me
  222.  End Select
  223. End Sub
  224. Private Sub chkClick_Click()
  225.  tbxDemo.ClickStyle = IIf(chkClick, txcsToolbar, txcsNoStick)
  226. End Sub
  227. Private Sub chkEnabled_Click()
  228.  tbxDemo.Enabled = chkEnabled
  229. End Sub
  230. Private Sub cmdColours_Click()
  231.  PropPage.ShowPicker hWnd, "Object Colour", tbxDemo, ppickColor
  232. End Sub
  233. Private Sub cmdFloat_Click()
  234.  frmFloatingToolbox.Show 1, Me
  235. End Sub
  236. Private Sub tbxDemo_ButtonChange(ByVal ButtonIndex As Integer, Cancel As Boolean)
  237.  lstEvents.Add "tbxDemo_ButtonChange(" & ButtonIndex & ",0)"
  238. End Sub
  239. Private Sub tbxDemo_ButtonMouseOver(ByVal ButtonIndex As Integer)
  240.  lstEvents.Add "tbxDemo_ButtonMouseOver(" & ButtonIndex & ")"
  241. End Sub
  242. Private Sub tbxDemo_ButtonRightClick(ByVal ButtonIndex As Integer, CancelBeep As Boolean)
  243.  lstEvents.Add "tbxDemo_ButtonRightClick(" & ButtonIndex & "0,)"
  244. End Sub
  245. Private Sub tbxDemo_Click()
  246.  lstEvents.Add "tbxDemo_Click()"
  247. End Sub
  248. Private Sub tbxDemo_DblClick()
  249.  lstEvents.Add "tbxDemo_DblClick()"
  250. End Sub
  251. Private Sub tbxDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  252.  lstEvents.Add "tbxDemo_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
  253. End Sub
  254. Private Sub tbxDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  255.  lstEvents.Add "tbxDemo_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
  256. End Sub
  257. Private Sub tbxDemo_Resize(ByVal NewWidth As Single, ByVal NewHeight As Single)
  258.  lstEvents.Add "tbxDemo_Resize(" & NewWidth & "," & NewHeight & ")"
  259. End Sub
  260.