object Finder: TFinder Left = 192 Top = 134 BorderIcons = [] BorderStyle = bsSingle Caption = 'FmEdit95 - File Finder' ClientHeight = 345 ClientWidth = 583 Color = 13421772 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 177 Width = 583 Height = 168 Align = alClient BevelOuter = bvNone BorderWidth = 12 ParentColor = True TabOrder = 0 object files: TListView Left = 12 Top = 12 Width = 559 Height = 144 Align = alClient ColumnClick = False OnDblClick = filesDblClick Columns = < item Caption = 'File' Width = 6 WidthType = ( -1) end item Alignment = taRightJustify Caption = 'Size' Width = 12 WidthType = ( -1) end item Caption = 'File Age' Width = 12 WidthType = ( -1) end> ReadOnly = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PopupMenu = PopupMenu1 TabOrder = 0 ViewStyle = vsReport end end object Panel2: TPanel Left = 0 Top = 0 Width = 583 Height = 177 Align = alTop BevelOuter = bvNone ParentColor = True TabOrder = 1 object Label1: TLabel Left = 12 Top = 3 Width = 24 Height = 13 Hint = 'text to be searched for' Caption = 'Text:' end object Label2: TLabel Left = 304 Top = 3 Width = 33 Height = 13 Hint = 'select the drive(s)' Caption = 'Drives:' end object Label4: TLabel Left = 12 Top = 41 Width = 53 Height = 13 Hint = 'specify the file-mask(s)' Caption = 'File Masks:' end object Label5: TLabel Left = 12 Top = 81 Width = 71 Height = 13 Hint = 'select root path' Caption = 'Root Directory:' end object Label3: TLabel Left = 12 Top = 157 Width = 556 Height = 14 AutoSize = False Color = clSilver ParentColor = False WordWrap = True end object SpeedButton1: TSpeedButton Left = 272 Top = 95 Width = 25 Height = 21 Hint = 'Browse for root path' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333 333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300 300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333 333337F373F773333333303330033333333337F3377333333333303333333333 333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333 333337777F337F33333330330BB00333333337F373F773333333303330033333 333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000 333377777F77377733330BBB0333333333337F337F33333333330BB003333333 333373F7733333333333300333333333333337733333333333330000} NumGlyphs = 2 OnClick = Button4Click end object Edit1: TEdit Left = 13 Top = 16 Width = 284 Height = 21 Hint = 'Text in file(s) to be searched for' CharCase = ecLowerCase TabOrder = 0 end object Button1: TButton Left = 12 Top = 128 Width = 63 Height = 20 Hint = 'Start search - Ensuring you have selected the correct drive(s)' Caption = 'Search' Default = True TabOrder = 2 OnClick = Button1Click end object Edit2: TEdit Left = 13 Top = 55 Width = 284 Height = 21 Hint = 'Specify the file-mask(s)' CharCase = ecLowerCase TabOrder = 1 Text = '*.bat;*.sys;*.ini' end object Button3: TButton Left = 233 Top = 128 Width = 63 Height = 20 Hint = 'Return to FmEdit95' Caption = 'Close' TabOrder = 3 OnClick = Button3Click end object drivelist: TListBox Left = 304 Top = 16 Width = 265 Height = 84 Hint = 'Select the drive(s)' IntegralHeight = True ItemHeight = 16 MultiSelect = True Style = lbOwnerDrawFixed TabOrder = 4 OnDrawItem = drivelistDrawItem end object Edit3: TEdit Left = 12 Top = 95 Width = 261 Height = 21 Hint = 'Select root path to be searched' CharCase = ecLowerCase TabOrder = 5 Text = 'windows\' end object Button2: TButton Left = 122 Top = 128 Width = 63 Height = 20 Hint = 'Clear files found' Caption = 'Clear' Default = True TabOrder = 6 OnClick = Button2Click end object CheckBox1: TCheckBox Left = 340 Top = 131 Width = 201 Height = 17 Hint = 'Uncheck box to delete files without using the recycle bin' Caption = 'Use recycle bin when deleting files' State = cbChecked TabOrder = 7 OnMouseMove = CheckBox1MouseMove end end object PopupMenu1: TPopupMenu Left = 24 Top = 217 object Delete1: TMenuItem Caption = '&Delete' ShortCut = 46 OnClick = Delete1Click end object FmEdit951: TMenuItem Caption = '&FmEdit95' ShortCut = 118 OnClick = Button3Click end end object FileOperator3: TFileOperator ProgressTitle = 'FmEdit95 File Finder - Delete' Left = 56 Top = 217 data = Null end end