Class TFindExpDialog (unit findexp1) |
Inherits from
TForm
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.
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;
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...
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;