Class TFindExpDialog (unit findexp1)

Inherits from

TForm

Constructors



Functions

procedure CancelButtonClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

select the first found item by default

procedure FormShow(Sender: TObject);

This sets up the default as the VCL directory

procedure LoadButtonClick(Sender: TObject);


procedure SearchButtonClick(Sender: TObject);

Go through the directories now

procedure SearchCriteriaClick(Sender: TObject);

-------- Method of the TFindExpDialog class --------

function SearchFile(Const AFile: String): Boolean;

done with the dialog

procedure SearchMethodRadioGrpClick(Sender: TObject);


procedure UserDefinedSearchPathExit(Sender: TObject);

SearchItem.

procedure GrepSearch(NewPath : string);

Try.

procedure RecurseDirTree(NewPath : string);

if FindFirst.

Properties

Events

Variables

AlternatePathLabel : TLabel;


CancelButton : TBitBtn;


FilterTypeCombo : TFilterComboBox;


FoundList : TListBox;


FoundListLabel : TLabel;


IgnoreCase : TCheckBox;


LoadButton : TBitBtn;


Panel1 : TPanel;


SearcgItemLabel : TLabel;


SearchButton : TBitBtn;


SearchCriteria : TRadioGroup;


SearchItem : TEdit;


SearchMethodRadioGrp : TRadioGroup;


UserDefinedSearchPath : TEdit;


BaseDelphiDir : String;


SearchDir : String;



Constructors


Functions


procedure CancelButtonClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

select the first found item by default


procedure FormShow(Sender: TObject);

This sets up the default as the VCL directory


procedure LoadButtonClick(Sender: TObject);


procedure SearchButtonClick(Sender: TObject);

Go through the directories now


procedure SearchCriteriaClick(Sender: TObject);

-------- Method of the TFindExpDialog class --------


function SearchFile(Const AFile: String): Boolean;

done with the dialog


procedure SearchMethodRadioGrpClick(Sender: TObject);


procedure UserDefinedSearchPathExit(Sender: TObject);

SearchItem.Text := '';


procedure GrepSearch(NewPath : string);

Try..Finally


procedure RecurseDirTree(NewPath : string);

if FindFirst...


Properties


Events


Variables


AlternatePathLabel : TLabel;


CancelButton : TBitBtn;


FilterTypeCombo : TFilterComboBox;


FoundList : TListBox;


FoundListLabel : TLabel;


IgnoreCase : TCheckBox;


LoadButton : TBitBtn;


Panel1 : TPanel;


SearcgItemLabel : TLabel;


SearchButton : TBitBtn;


SearchCriteria : TRadioGroup;


SearchItem : TEdit;


SearchMethodRadioGrp : TRadioGroup;


UserDefinedSearchPath : TEdit;


BaseDelphiDir : String;


SearchDir : String;