home *** CD-ROM | disk | FTP | other *** search
- inherited DropBox: TDropBox
- Left = 470
- Top = 184
- BorderIcons = []
- BorderStyle = bsNone
- Caption = 'DropBox'
- ClientHeight = 94
- ClientWidth = 121
- Color = clWindow
- OldCreateOrder = True
- Visible = False
- PixelsPerInch = 96
- TextHeight = 13
- object plDrop: TPanel
- Left = 0
- Top = 0
- Width = 121
- Height = 94
- Align = alClient
- BevelInner = bvLowered
- Color = clWindow
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 0
- object xxxAnimate1: TxxxAnimate
- Left = 2
- Top = 2
- Width = 117
- Height = 90
- Align = alClient
- Active = False
- ParentColor = False
- StopFrame = 9
- OnMouseDown = xxxAnimate1MouseDown
- OnMouseMove = xxxAnimate1MouseMove
- OnMouseUp = xxxAnimate1MouseUp
- ResourceName = 'COOLAVI'
- end
- end
- object DropURLTarget1: TDropURLTarget
- Dragtypes = [dtCopy, dtMove, dtLink]
- GetDataOnEnter = True
- OnDragOver = DropURLTarget1DragOver
- OnDrop = DropURLTarget1Drop
- ShowImage = True
- Left = 2
- Top = 30
- end
- object PopupMenu1: TPopupMenu
- Left = 2
- Top = 60
- object Online1: TMenuItem
- Action = MainForm.acOnline
- end
- object ShowMainForm1: TMenuItem
- Action = acShowMainForm
- end
- object LaunchBrowser1: TMenuItem
- Action = acLaunchBrowser
- end
- object CreateNewTask1: TMenuItem
- Action = acNewTask
- end
- object HideDropBox1: TMenuItem
- Caption = 'Hide Drop Box'
- OnClick = HideDropBox1Click
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object Paste1: TMenuItem
- Action = acPaste
- end
- object ViewClipboard1: TMenuItem
- Action = acViewClipboard
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Transparent1: TMenuItem
- Action = acTransparent
- object None1: TMenuItem
- Action = acTransNone
- end
- object N701: TMenuItem
- Action = acTrans70
- end
- object Inc1: TMenuItem
- Action = acTrans50
- end
- object N301: TMenuItem
- Action = acTrans30
- end
- end
- object N2: TMenuItem
- Action = acTransparent
- Caption = '-'
- end
- object Help1: TMenuItem
- Caption = 'Help'
- ImageIndex = 39
- OnClick = Help1Click
- end
- end
- object ActionList1: TActionList
- Left = 28
- Top = 56
- object acTransNone: TAction
- Caption = 'None'
- OnExecute = acTransNoneExecute
- OnUpdate = acTransNoneUpdate
- end
- object acTrans70: TAction
- Caption = '70%'
- OnExecute = acTrans70Execute
- OnUpdate = acTrans70Update
- end
- object acTrans50: TAction
- Caption = '50%'
- OnExecute = acTrans50Execute
- OnUpdate = acTrans50Update
- end
- object acTrans30: TAction
- Caption = '30%'
- OnExecute = acTrans30Execute
- OnUpdate = acTrans30Update
- end
- object acTransparent: TAction
- Caption = 'Transparent'
- OnExecute = acTransparentExecute
- OnUpdate = acTransparentUpdate
- end
- object acLaunchBrowser: TAction
- Caption = 'Launch Browser'
- ImageIndex = 10
- OnExecute = acLaunchBrowserExecute
- OnUpdate = acLaunchBrowserUpdate
- end
- object acNewTask: TAction
- Caption = 'Create New Task'
- ImageIndex = 50
- OnExecute = acNewTaskExecute
- OnUpdate = acNewTaskUpdate
- end
- object acShowMainForm: TAction
- Caption = 'Show Main Form'
- ImageIndex = 42
- OnExecute = acShowMainFormExecute
- OnUpdate = acShowMainFormUpdate
- end
- object acPaste: TAction
- Caption = 'Paste'
- ShortCut = 16470
- OnExecute = acPasteExecute
- OnUpdate = acPasteUpdate
- end
- object acViewClipboard: TAction
- Caption = 'View Clipboard'
- OnExecute = acViewClipboardExecute
- OnUpdate = acViewClipboardUpdate
- end
- end
- end
-