home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap30 / delallw / main.txt < prev   
Encoding:
Text File  |  1995-03-21  |  3.5 KB  |  144 lines
  1. object Form1: TForm1
  2.   Left = 164
  3.   Top = 113
  4.   BorderStyle = bsSingle
  5.   Caption = 'Delete All for Windows'
  6.   ClientHeight = 215
  7.   ClientWidth = 321
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   Menu = MainMenu1
  13.   PixelsPerInch = 96
  14.   OnCreate = FormCreate
  15.   OnDestroy = FormDestroy
  16.   TextHeight = 16
  17.   object DeleteBtn: TBitBtn
  18.     Left = 8
  19.     Top = 136
  20.     Width = 105
  21.     Height = 33
  22.     Caption = 'Delete All'
  23.     TabOrder = 0
  24.     OnClick = DeleteBtnClick
  25.     Glyph.Data = {
  26.       78010000424D7801000000000000760000002800000020000000100000000100
  27.       04000000000000000000120B0000120B00000000000000000000000000000000
  28.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  29.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
  30.       555557777F777555F55500000000555055557777777755F75555005500055055
  31.       555577F5777F57555555005550055555555577FF577F5FF55555500550050055
  32.       5555577FF77577FF555555005050110555555577F757777FF555555505099910
  33.       555555FF75777777FF555005550999910555577F5F77777775F5500505509990
  34.       3055577F75F77777575F55005055090B030555775755777575755555555550B0
  35.       B03055555F555757575755550555550B0B335555755555757555555555555550
  36.       BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
  37.       50BB555555555555575F555555555555550B55555555555555750000}
  38.     NumGlyphs = 2
  39.   end
  40.   object Panel1: TPanel
  41.     Left = 160
  42.     Top = 72
  43.     Width = 153
  44.     Height = 137
  45.     Caption = 'Panel1'
  46.     TabOrder = 1
  47.     object ExtBox: TListBox
  48.       Tag = 100
  49.       Left = 16
  50.       Top = 16
  51.       Width = 121
  52.       Height = 105
  53.       ItemHeight = 16
  54.       TabOrder = 0
  55.       OnDblClick = Open1Click
  56.     end
  57.   end
  58.   object BitBtn2: TBitBtn
  59.     Left = 8
  60.     Top = 176
  61.     Width = 105
  62.     Height = 33
  63.     TabOrder = 2
  64.     OnClick = BitBtn2Click
  65.     Kind = bkOK
  66.   end
  67.   object DirectoryListBox1: TDirectoryListBox
  68.     Left = 8
  69.     Top = 40
  70.     Width = 137
  71.     Height = 89
  72.     ItemHeight = 16
  73.     TabOrder = 3
  74.   end
  75.   object DriveComboBox1: TDriveComboBox
  76.     Left = 8
  77.     Top = 8
  78.     Width = 137
  79.     Height = 22
  80.     TabOrder = 4
  81.     OnChange = DriveComboBox1Change
  82.   end
  83.   object Panel2: TPanel
  84.     Left = 160
  85.     Top = 8
  86.     Width = 153
  87.     Height = 57
  88.     TabOrder = 5
  89.     object DelExe: TCheckBox
  90.       Left = 16
  91.       Top = 8
  92.       Width = 97
  93.       Height = 17
  94.       Caption = 'Delete EXEs'
  95.       TabOrder = 0
  96.     end
  97.     object DelTilda: TCheckBox
  98.       Left = 16
  99.       Top = 32
  100.       Width = 97
  101.       Height = 17
  102.       Caption = 'Delete ~??'
  103.       TabOrder = 1
  104.     end
  105.   end
  106.   object FileIterator1: TFileIterator
  107.     OnFoundFile = FileIterator1FoundFile
  108.     OnProcessDir = FileIterator1ProcessDir
  109.     UseFileList = True
  110.     UseDirList = True
  111.     Left = 120
  112.     Top = 176
  113.   end
  114.   object MainMenu1: TMainMenu
  115.     Left = 120
  116.     Top = 144
  117.     object File1: TMenuItem
  118.       Caption = 'File'
  119.       object Open1: TMenuItem
  120.         Tag = 100
  121.         Caption = 'Open Ext File'
  122.         OnClick = Open1Click
  123.       end
  124.       object OpenDelFile1: TMenuItem
  125.         Tag = 101
  126.         Caption = 'Open Del File'
  127.         OnClick = Open1Click
  128.       end
  129.       object OpenDirSizeFile1: TMenuItem
  130.         Tag = 102
  131.         Caption = 'Open DirSize File'
  132.         OnClick = Open1Click
  133.       end
  134.       object N1: TMenuItem
  135.         Caption = '-'
  136.       end
  137.       object Exit1: TMenuItem
  138.         Caption = 'Exit'
  139.         OnClick = Exit1Click
  140.       end
  141.     end
  142.   end
  143. end
  144.