home *** CD-ROM | disk | FTP | other *** search
- 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 = {<image000.ico>}
- 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
-