| Class TFindExpDialog (unit findexp1) |
TForm
| Constructors |
| Functions |
procedure CancelButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure LoadButtonClick(Sender: TObject);
procedure SearchButtonClick(Sender: TObject);
procedure SearchCriteriaClick(Sender: TObject);
function SearchFile(Const AFile: String): Boolean;
procedure SearchMethodRadioGrpClick(Sender: TObject);
procedure UserDefinedSearchPathExit(Sender: TObject);
procedure GrepSearch(NewPath : string);
procedure RecurseDirTree(NewPath : string);| 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;