home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / Floating.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  5.3 KB  |  141 lines
  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.6#0"; "AS-IFce1.ocx"
  3. Begin VB.Form frmFloatingToolbox 
  4.    BackColor       =   &H00C0FFFF&
  5.    BorderStyle     =   5  'Sizable ToolWindow
  6.    Caption         =   "Floating Toolbox"
  7.    ClientHeight    =   3075
  8.    ClientLeft      =   2700
  9.    ClientTop       =   2310
  10.    ClientWidth     =   3330
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   205
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   222
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.CheckBox chkStay 
  20.       BackColor       =   &H00C0FFFF&
  21.       Caption         =   "Stay down with click"
  22.       Height          =   285
  23.       Left            =   45
  24.       TabIndex        =   0
  25.       Top             =   45
  26.       Value           =   1  'Checked
  27.       Width           =   1950
  28.    End
  29.    Begin AIFCmp1.asxToolbox tbxFloat 
  30.       Height          =   2535
  31.       Left            =   45
  32.       Top             =   405
  33.       Width           =   3195
  34.       _ExtentX        =   5636
  35.       _ExtentY        =   4471
  36.       BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  37.          Name            =   "MS Sans Serif"
  38.          Size            =   8.25
  39.          Charset         =   0
  40.          Weight          =   400
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       BackColor       =   12648447
  46.       HighlightColor  =   49344
  47.       ShadowColor     =   32896
  48.       ButtonSize      =   38
  49.       ButtonCount     =   19
  50.       Picture         =   "Floating.frx":0000
  51.       ButtonPicture1  =   "Floating.frx":24646
  52.       ButtonPictureOver1=   "Floating.frx":24B48
  53.       ButtonToolTipText1=   "Add To Favourties"
  54.       ButtonPicture2  =   "Floating.frx":2504A
  55.       ButtonPictureOver2=   "Floating.frx":2554C
  56.       ButtonToolTipText2=   "Back"
  57.       ButtonPicture3  =   "Floating.frx":25A4E
  58.       ButtonPictureOver3=   "Floating.frx":25F50
  59.       ButtonToolTipText3=   "Copy"
  60.       ButtonPicture4  =   "Floating.frx":26452
  61.       ButtonPictureOver4=   "Floating.frx":26954
  62.       ButtonToolTipText4=   "Cut"
  63.       ButtonPicture5  =   "Floating.frx":26E56
  64.       ButtonPictureOver5=   "Floating.frx":27358
  65.       ButtonToolTipText5=   "Delete"
  66.       ButtonPicture6  =   "Floating.frx":2785A
  67.       ButtonPictureOver6=   "Floating.frx":27DAC
  68.       ButtonToolTipText6=   "Edit"
  69.       ButtonPicture7  =   "Floating.frx":282FE
  70.       ButtonPictureOver7=   "Floating.frx":28800
  71.       ButtonToolTipText7=   "Faint Options"
  72.       ButtonPicture8  =   "Floating.frx":28D02
  73.       ButtonPictureOver8=   "Floating.frx":29204
  74.       ButtonToolTipText8=   "Favourites"
  75.       ButtonPicture9  =   "Floating.frx":29706
  76.       ButtonPictureOver9=   "Floating.frx":29C08
  77.       ButtonToolTipText9=   "Find Next"
  78.       ButtonPicture10 =   "Floating.frx":2A10A
  79.       ButtonPictureOver10=   "Floating.frx":2A60C
  80.       ButtonToolTipText10=   "Find"
  81.       ButtonPicture11 =   "Floating.frx":2AB0E
  82.       ButtonPictureOver11=   "Floating.frx":2B010
  83.       ButtonToolTipText11=   "Font"
  84.       ButtonPicture12 =   "Floating.frx":2B512
  85.       ButtonPictureOver12=   "Floating.frx":2BA14
  86.       ButtonToolTipText12=   "Full Screen"
  87.       ButtonPicture13 =   "Floating.frx":2BF16
  88.       ButtonPictureOver13=   "Floating.frx":2C418
  89.       ButtonToolTipText13=   "History"
  90.       ButtonPicture14 =   "Floating.frx":2C91A
  91.       ButtonPictureOver14=   "Floating.frx":2CE1C
  92.       ButtonToolTipText14=   "Home"
  93.       ButtonPicture15 =   "Floating.frx":2D31E
  94.       ButtonPictureOver15=   "Floating.frx":2D820
  95.       ButtonToolTipText15=   "New"
  96.       ButtonPicture16 =   "Floating.frx":2DD22
  97.       ButtonPictureOver16=   "Floating.frx":2E224
  98.       ButtonToolTipText16=   "Next"
  99.       ButtonPicture17 =   "Floating.frx":2E726
  100.       ButtonPictureOver17=   "Floating.frx":2EC28
  101.       ButtonToolTipText17=   "Open"
  102.       ButtonPicture18 =   "Floating.frx":2F12A
  103.       ButtonPictureOver18=   "Floating.frx":2F62C
  104.       ButtonToolTipText18=   "Options"
  105.       ButtonPicture19 =   "Floating.frx":2FB2E
  106.       ButtonPictureOver19=   "Floating.frx":30030
  107.       ButtonToolTipText19=   "Paste"
  108.    End
  109. Attribute VB_Name = "frmFloatingToolbox"
  110. Attribute VB_GlobalNameSpace = False
  111. Attribute VB_Creatable = False
  112. Attribute VB_PredeclaredId = True
  113. Attribute VB_Exposed = False
  114. Option Explicit
  115. DefInt A-Z
  116. Const C$ = "Floating Toolbox - ["
  117. Private Sub chkStay_Click()
  118.  If chkStay Then
  119.   tbxFloat.ClickStyle = txcsToolbar
  120.  Else
  121.   tbxFloat.ClickStyle = txcsNoStick
  122.  End If
  123. End Sub
  124. Private Sub Form_Load()
  125.  Form_Resize
  126. End Sub
  127. Private Sub Form_Resize()
  128.  tbxFloat.Move 0, 27, ScaleWidth, ScaleHeight - 27
  129. 'Width = (asToolbox1.Width + 20) * Screen.TwipsPerPixelX
  130. 'Height = (asToolbox1.Height + 20) * Screen.TwipsPerPixelY
  131. End Sub
  132. Private Sub tbxFloat_ButtonChange(ByVal Index As Integer, Cancel As Boolean)
  133.  Caption = C$ & Index & " (Change)]"
  134. End Sub
  135. Private Sub tbxFloat_ButtonMouseOver(ByVal Index As Integer)
  136.  'Caption = C$ & Index & " (MouseOver)]"
  137. End Sub
  138. Private Sub tbxFloat_ButtonRightClick(ByVal Index As Integer, CancelBeep As Boolean)
  139.  Caption = C$ & Index & " (RightClick)]"
  140. End Sub
  141.