home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April A / Pcwk4a98.iso / PROGRAM / DELPHI16 / Calmira / Src / SRC / WASTEBIN.DFM / WASTEBIN.txt < prev   
Text File  |  1997-02-17  |  2KB  |  90 lines
  1. object Bin: TBin
  2.   Left = 280
  3.   Top = 141
  4.   HelpContext = 24
  5.   ActiveControl = Listbox
  6.   BorderIcons = [biSystemMenu, biMinimize]
  7.   BorderStyle = bsSingle
  8.   Caption = 'Bin'
  9.   ClientHeight = 160
  10.   ClientWidth = 293
  11.   Font.Color = clBlack
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   Icon.Data = {<image000.ico>}
  16.   PixelsPerInch = 96
  17.   Scaled = False
  18.   OnClose = FormClose
  19.   OnCreate = FormCreate
  20.   OnDestroy = FormDestroy
  21.   OnDragDrop = FormDragDrop
  22.   OnDragOver = FormDragOver
  23.   OnPaint = FormPaint
  24.   OnResize = FormResize
  25.   TextHeight = 13
  26.   object Listbox: TListBox
  27.     Tag = 4
  28.     Left = 4
  29.     Top = 24
  30.     Width = 285
  31.     Height = 133
  32.     DragMode = dmAutomatic
  33.     ItemHeight = 15
  34.     MultiSelect = True
  35.     PopupMenu = Menu
  36.     Style = lbOwnerDrawFixed
  37.     TabOrder = 0
  38.     OnDragDrop = FormDragDrop
  39.     OnDragOver = FormDragOver
  40.     OnDrawItem = ListboxDrawItem
  41.   end
  42.   object Header: THeader
  43.     Left = 4
  44.     Top = 4
  45.     Width = 285
  46.     Height = 21
  47.     Sections.Sections = (
  48.       #0'156'#0'Filename'
  49.       #0'56'#0'Size'
  50.       #0'50'#0'Date')
  51.     TabOrder = 1
  52.     OnSized = HeaderSized
  53.   end
  54.   object Menu: TPopupMenu
  55.     OnPopup = MenuPopup
  56.     Left = 20
  57.     Top = 42
  58.     object Restore: TMenuItem
  59.       Caption = '&Restore'
  60.       OnClick = RestoreClick
  61.       ShortCutText = 'Enter'
  62.     end
  63.     object Delete: TMenuItem
  64.       Caption = '&Delete'
  65.       OnClick = DeleteClick
  66.       ShortCutText = 'Del'
  67.     end
  68.     object Empty: TMenuItem
  69.       Caption = '&Empty'
  70.       OnClick = EmptyClick
  71.       ShortCutText = 'Ctrl+Del'
  72.     end
  73.     object N1: TMenuItem
  74.       Caption = '-'
  75.     end
  76.     object Properties: TMenuItem
  77.       Caption = '&Properties...'
  78.       OnClick = PropertiesClick
  79.     end
  80.   end
  81.   object Dragger: TFormDrag
  82.     Left = 60
  83.     Top = 42
  84.   end
  85.   object SystemMenu: TSystemMenu
  86.     Left = 100
  87.     Top = 42
  88.   end
  89. end
  90.