home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.6#0"; "AS-IFce1.ocx"
- Begin VB.Form frmFloatingToolbox
- BackColor = &H00C0FFFF&
- BorderStyle = 5 'Sizable ToolWindow
- Caption = "Floating Toolbox"
- ClientHeight = 3075
- ClientLeft = 2700
- ClientTop = 2310
- ClientWidth = 3330
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 205
- ScaleMode = 3 'Pixel
- ScaleWidth = 222
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin VB.CheckBox chkStay
- BackColor = &H00C0FFFF&
- Caption = "Stay down with click"
- Height = 285
- Left = 45
- TabIndex = 0
- Top = 45
- Value = 1 'Checked
- Width = 1950
- End
- Begin AIFCmp1.asxToolbox tbxFloat
- Height = 2535
- Left = 45
- Top = 405
- Width = 3195
- _ExtentX = 5636
- _ExtentY = 4471
- BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- BackColor = 12648447
- HighlightColor = 49344
- ShadowColor = 32896
- ButtonSize = 38
- ButtonCount = 19
- Picture = "Floating.frx":0000
- ButtonPicture1 = "Floating.frx":24646
- ButtonPictureOver1= "Floating.frx":24B48
- ButtonToolTipText1= "Add To Favourties"
- ButtonPicture2 = "Floating.frx":2504A
- ButtonPictureOver2= "Floating.frx":2554C
- ButtonToolTipText2= "Back"
- ButtonPicture3 = "Floating.frx":25A4E
- ButtonPictureOver3= "Floating.frx":25F50
- ButtonToolTipText3= "Copy"
- ButtonPicture4 = "Floating.frx":26452
- ButtonPictureOver4= "Floating.frx":26954
- ButtonToolTipText4= "Cut"
- ButtonPicture5 = "Floating.frx":26E56
- ButtonPictureOver5= "Floating.frx":27358
- ButtonToolTipText5= "Delete"
- ButtonPicture6 = "Floating.frx":2785A
- ButtonPictureOver6= "Floating.frx":27DAC
- ButtonToolTipText6= "Edit"
- ButtonPicture7 = "Floating.frx":282FE
- ButtonPictureOver7= "Floating.frx":28800
- ButtonToolTipText7= "Faint Options"
- ButtonPicture8 = "Floating.frx":28D02
- ButtonPictureOver8= "Floating.frx":29204
- ButtonToolTipText8= "Favourites"
- ButtonPicture9 = "Floating.frx":29706
- ButtonPictureOver9= "Floating.frx":29C08
- ButtonToolTipText9= "Find Next"
- ButtonPicture10 = "Floating.frx":2A10A
- ButtonPictureOver10= "Floating.frx":2A60C
- ButtonToolTipText10= "Find"
- ButtonPicture11 = "Floating.frx":2AB0E
- ButtonPictureOver11= "Floating.frx":2B010
- ButtonToolTipText11= "Font"
- ButtonPicture12 = "Floating.frx":2B512
- ButtonPictureOver12= "Floating.frx":2BA14
- ButtonToolTipText12= "Full Screen"
- ButtonPicture13 = "Floating.frx":2BF16
- ButtonPictureOver13= "Floating.frx":2C418
- ButtonToolTipText13= "History"
- ButtonPicture14 = "Floating.frx":2C91A
- ButtonPictureOver14= "Floating.frx":2CE1C
- ButtonToolTipText14= "Home"
- ButtonPicture15 = "Floating.frx":2D31E
- ButtonPictureOver15= "Floating.frx":2D820
- ButtonToolTipText15= "New"
- ButtonPicture16 = "Floating.frx":2DD22
- ButtonPictureOver16= "Floating.frx":2E224
- ButtonToolTipText16= "Next"
- ButtonPicture17 = "Floating.frx":2E726
- ButtonPictureOver17= "Floating.frx":2EC28
- ButtonToolTipText17= "Open"
- ButtonPicture18 = "Floating.frx":2F12A
- ButtonPictureOver18= "Floating.frx":2F62C
- ButtonToolTipText18= "Options"
- ButtonPicture19 = "Floating.frx":2FB2E
- ButtonPictureOver19= "Floating.frx":30030
- ButtonToolTipText19= "Paste"
- End
- Attribute VB_Name = "frmFloatingToolbox"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- DefInt A-Z
- Const C$ = "Floating Toolbox - ["
- Private Sub chkStay_Click()
- If chkStay Then
- tbxFloat.ClickStyle = txcsToolbar
- Else
- tbxFloat.ClickStyle = txcsNoStick
- End If
- End Sub
- Private Sub Form_Load()
- Form_Resize
- End Sub
- Private Sub Form_Resize()
- tbxFloat.Move 0, 27, ScaleWidth, ScaleHeight - 27
- 'Width = (asToolbox1.Width + 20) * Screen.TwipsPerPixelX
- 'Height = (asToolbox1.Height + 20) * Screen.TwipsPerPixelY
- End Sub
- Private Sub tbxFloat_ButtonChange(ByVal Index As Integer, Cancel As Boolean)
- Caption = C$ & Index & " (Change)]"
- End Sub
- Private Sub tbxFloat_ButtonMouseOver(ByVal Index As Integer)
- 'Caption = C$ & Index & " (MouseOver)]"
- End Sub
- Private Sub tbxFloat_ButtonRightClick(ByVal Index As Integer, CancelBeep As Boolean)
- Caption = C$ & Index & " (RightClick)]"
- End Sub
-