Chip 1998 September/Chip_1998-09_cd.bin/sharewar/fmedit/Fmedit95.exe/0/RCDATA/TFINDER/TFINDER.txt

Text File | 1998-01-18 | 6KB | 247 lines

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