object SearchWizard: TSearchWizard Left = 180 Top = 137 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Search Wizard' ClientHeight = 320 ClientWidth = 500 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False OnDestroy = FormDestroy OnShow = OnShowForm PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 8 Top = 8 Width = 137 Height = 129 Picture.Data = {} end object Panel1: TPanel Left = 0 Top = 278 Width = 500 Height = 42 Align = alBottom BevelOuter = bvNone TabOrder = 0 object BtnCancel: TButton Left = 401 Top = 11 Width = 89 Height = 25 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 0 end object BtnBack: TButton Left = 210 Top = 11 Width = 89 Height = 25 Caption = '< &Back' TabOrder = 1 OnClick = BtnBackClick end object BtnNext: TButton Left = 299 Top = 11 Width = 89 Height = 25 Caption = '&Next >' TabOrder = 2 OnClick = BtnNextClick end end object notebook: TNotebook Left = 0 Top = 0 Width = 500 Height = 278 Align = alClient PageIndex = 4 TabOrder = 1 object TPage Left = 0 Top = 0 Caption = 'Welcome' object Label1: TLabel Left = 168 Top = 56 Width = 321 Height = 41 AutoSize = False Caption = 'Search Iutility will search through files on your disk looking f' + 'or the strings which you specify.' end object Label2: TLabel Left = 168 Top = 116 Width = 377 Height = 17 AutoSize = False Caption = 'To begin click "Next".' end object Label7: TLabel Left = 168 Top = 16 Width = 170 Height = 29 Caption = 'Search Wizard' Font.Color = clBlack Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end end object TPage Left = 0 Top = 0 Caption = 'Directory' object Label5: TLabel Left = 168 Top = 56 Width = 321 Height = 49 AutoSize = False Caption = 'Search Iutility will only report on files found in this this fol' + 'der and all its sub folders. If you want to search your entire h' + 'ard disk, put "C:\" here, and check the box.' end object Label6: TLabel Left = 168 Top = 16 Width = 175 Height = 29 Caption = 'Starting Folder' Font.Color = clBlack Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object RootDirectory: TEdit Left = 168 Top = 104 Width = 249 Height = 21 TabOrder = 0 Text = 'C:\' end object BtnBrowse: TButton Left = 424 Top = 104 Width = 65 Height = 21 Caption = 'Browse...' TabOrder = 1 OnClick = BtnBrowseClick end object recurseDirectories: TCheckBox Left = 168 Top = 144 Width = 257 Height = 17 Caption = 'Search Other Folders Contained In This One' TabOrder = 2 end end object TPage Left = 0 Top = 0 Caption = 'Masks' object Label15: TLabel Left = 168 Top = 16 Width = 114 Height = 29 Caption = 'File Mask' Font.Color = clBlack Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label16: TLabel Left = 168 Top = 56 Width = 321 Height = 65 AutoSize = False Caption = 'Search Iutility will search all files which match the mask speci' + 'fied here. File masks are constructed using the standard Windows' + '/DOS convention of '#39'*'#39' to mean anything, and '#39'?'#39' to mean any one' + ' character.' end object maskEdit: TEdit Left = 176 Top = 136 Width = 121 Height = 21 TabOrder = 0 Text = '*.*' end end object TPage Left = 0 Top = 0 Caption = 'SearchString' object Label8: TLabel Left = 168 Top = 16 Width = 159 Height = 29 Caption = 'Search String' Font.Color = clBlack Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 168 Top = 56 Width = 321 Height = 25 AutoSize = False Caption = 'Type the word or phrase you want to search for here. Wild cards ' + 'will be ignored. To search with wild cards use the dialog..' end object searchString: TEdit Left = 168 Top = 104 Width = 273 Height = 21 TabOrder = 0 Text = 'searchString' end end object TPage Left = 0 Top = 0 Caption = 'Finish' object ImageFlag: TImage Left = 16 Top = 16 Width = 200 Height = 250 Picture.Data = {} end object Label3: TLabel Left = 240 Top = 102 Width = 241 Height = 31 AutoSize = False Caption = 'The Wizard now has enough information to complete the task.' end object Label4: TLabel Left = 240 Top = 142 Width = 241 Height = 19 AutoSize = False Caption = 'Click on the finish button to complete the task.' end end end end