object Bin: TBin Left = 280 Top = 141 HelpContext = 24 ActiveControl = Listbox BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Bin' ClientHeight = 160 ClientWidth = 293 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} PixelsPerInch = 96 Scaled = False OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnDragDrop = FormDragDrop OnDragOver = FormDragOver OnPaint = FormPaint OnResize = FormResize TextHeight = 13 object Listbox: TListBox Tag = 4 Left = 4 Top = 24 Width = 285 Height = 133 DragMode = dmAutomatic ItemHeight = 15 MultiSelect = True PopupMenu = Menu Style = lbOwnerDrawFixed TabOrder = 0 OnDragDrop = FormDragDrop OnDragOver = FormDragOver OnDrawItem = ListboxDrawItem end object Header: THeader Left = 4 Top = 4 Width = 285 Height = 21 Sections.Sections = ( #0'156'#0'Filename' #0'56'#0'Size' #0'50'#0'Date') TabOrder = 1 OnSized = HeaderSized end object Menu: TPopupMenu OnPopup = MenuPopup Left = 20 Top = 42 object Restore: TMenuItem Caption = '&Restore' OnClick = RestoreClick ShortCutText = 'Enter' end object Delete: TMenuItem Caption = '&Delete' OnClick = DeleteClick ShortCutText = 'Del' end object Empty: TMenuItem Caption = '&Empty' OnClick = EmptyClick ShortCutText = 'Ctrl+Del' end object N1: TMenuItem Caption = '-' end object Properties: TMenuItem Caption = '&Properties...' OnClick = PropertiesClick end end object Dragger: TFormDrag Left = 60 Top = 42 end object SystemMenu: TSystemMenu Left = 100 Top = 42 end end