Class TGrepForm (unit GrepWin) |
Inherits from
TForm
procedure AboutBtnClick(Sender: TObject);
procedure CloseBtnClick(Sender: TObject);
procedure ExpressionEdit1Change(Sender: TObject);
procedure FilterComboBox1Change(Sender: TObject);
procedure FormActivate(Sender: TObject);
with ListBox1 do
ExecuteFile(Browser,Items[ItemIndex],'',sw_ShowNormal);
procedure FormResize(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
ListPanel.
procedure OptionsBtnClick(Sender: TObject);
procedure Outline1Click(Sender: TObject);
procedure Outline1DblClick(Sender: TObject);
procedure SearchBtnClick(Sender: TObject);
SearchFiles
procedure StopBtnClick(Sender: TObject);
procedure ViewFileItemClick(Sender: TObject);
function LogDir(const FileName: string; const SRec: TSearchRec): boolean;
function LogFile(const FileName: string; const SRec: TSearchRec): boolean;
procedure SearchFiles;
AboutBtn : TSpeedButton;
AmlAboutDlg : TAmlAboutDlg;
CaseCheckBox : TCheckBox;
CaseLabel : TLabel;
CloseBtn : TSpeedButton;
DirectoryListBox1 : TDirectoryListBox;
DirLabel1 : TLabel;
DirLabel2 : TLabel;
DirPanel : TPanel;
DriveComboBox3 : TDriveComboBox;
ExpressionEdit1 : TEdit;
ExpressionLabel : TLabel;
FileCloseItem : TMenuItem;
FileFilterLabel : TLabel;
FileMenu : TMenuItem;
FilterComboBox1 : TFilterComboBox;
FilterEdit : TEdit;
FilterLabel2 : TLabel;
FilterPanel : TPanel;
HelpAboutItem : TMenuItem;
HelpMeu : TMenuItem;
Label1 : TLabel;
ListPanel : TPanel;
MainMenu1 : TMainMenu;
OptionsBtn : TSpeedButton;
OptionsItem : TMenuItem;
Outline1 : TOutline;
OutlinePopup : TPopupMenu;
Panel1 : TPanel;
Panel4 : TPanel;
RecurseCheckBox : TCheckBox;
RecurseLabel : TLabel;
SearchBtn : TSpeedButton;
SearchItem : TMenuItem;
StatLine : THeader;
StopBtn : TSpeedButton;
ViewFileItem : TMenuItem;
GrepCount : integer;
LineCount : integer;
procedure AboutBtnClick(Sender: TObject);
procedure CloseBtnClick(Sender: TObject);
procedure ExpressionEdit1Change(Sender: TObject);
procedure FilterComboBox1Change(Sender: TObject);
procedure FormActivate(Sender: TObject);
with ListBox1 do
ExecuteFile(Browser,Items[ItemIndex],'',sw_ShowNormal);
procedure FormResize(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
ListPanel.SetBounds(160,89,ClientWidth-160,ClientHeight-117);
procedure OptionsBtnClick(Sender: TObject);
procedure Outline1Click(Sender: TObject);
procedure Outline1DblClick(Sender: TObject);
procedure SearchBtnClick(Sender: TObject);
SearchFiles
procedure StopBtnClick(Sender: TObject);
procedure ViewFileItemClick(Sender: TObject);
function LogDir(const FileName: string; const SRec: TSearchRec): boolean;
function LogFile(const FileName: string; const SRec: TSearchRec): boolean;
procedure SearchFiles;
AboutBtn : TSpeedButton;
AmlAboutDlg : TAmlAboutDlg;
CaseCheckBox : TCheckBox;
CaseLabel : TLabel;
CloseBtn : TSpeedButton;
DirectoryListBox1 : TDirectoryListBox;
DirLabel1 : TLabel;
DirLabel2 : TLabel;
DirPanel : TPanel;
DriveComboBox3 : TDriveComboBox;
ExpressionEdit1 : TEdit;
ExpressionLabel : TLabel;
FileCloseItem : TMenuItem;
FileFilterLabel : TLabel;
FileMenu : TMenuItem;
FilterComboBox1 : TFilterComboBox;
FilterEdit : TEdit;
FilterLabel2 : TLabel;
FilterPanel : TPanel;
HelpAboutItem : TMenuItem;
HelpMeu : TMenuItem;
Label1 : TLabel;
ListPanel : TPanel;
MainMenu1 : TMainMenu;
OptionsBtn : TSpeedButton;
OptionsItem : TMenuItem;
Outline1 : TOutline;
OutlinePopup : TPopupMenu;
Panel1 : TPanel;
Panel4 : TPanel;
RecurseCheckBox : TCheckBox;
RecurseLabel : TLabel;
SearchBtn : TSpeedButton;
SearchItem : TMenuItem;
StatLine : THeader;
StopBtn : TSpeedButton;
ViewFileItem : TMenuItem;
GrepCount : integer;
LineCount : integer;