Class TGrepForm (unit GrepWin)

Inherits from

TForm

Constructors



Functions

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;


Properties

Events

Variables

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;



Constructors


Functions


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;


Properties


Events


Variables


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;