Chip 2003 January/ChipCD_1.03.iso/sharewar/offline/oc_setup.exe/%MAINDIR%/oc.exe/0/RCDATA/TDROPBOX/TDROPBOX.txt

Text File | 2002-10-30 | 3.9 KB | 169 lines

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