Class

Module

Last Modified

Scope

Inherits from

Declaration

TPSMainForm = class(TForm)
  Memo: TMemo;
  CmdSave: TBitBtn;
  StBrowser: TStBrowser;
  CmdSearch: TBitBtn;
  Label3: TLabel;
  SaveDialog: TSaveDialog;
  GroupBox1: TGroupBox;
  Label1: TLabel;
  Label2: TLabel;
  chkIncludeSubFolders: TCheckBox;
  CmdSelStartDir: TButton;
  GroupBox2: TGroupBox;
  chkAllFiles: TCheckBox;
  chkOnlyWeb: TCheckBox;
  chkOnlyInc: TCheckBox;
  chkOnlySql: TCheckBox;
  chkOnlyVB: TCheckBox;
  chkOnlyDelphi: TCheckBox;
  chkOnlyTxt: TCheckBox;
  Bevel1: TBevel;
  Label4: TLabel;
  chkListAllSearched: TCheckBox;
  RzStatusBar: TRzStatusBar;
  RzClockStatus: TRzClockStatus;
  RzStatusPane: TRzStatusPane;
  RzStatusPane1: TRzStatusPane;
  CmdStop: TBitBtn;
  chkCaseSensitive: TCheckBox;
  CmdQuit: TBitBtn;
  cmbRootDir: TComboBox;
  cmbPattern: TComboBox;
  chkClearResults: TCheckBox;
  MainMenu1: TMainMenu;
  File1: TMenuItem;
  Help1: TMenuItem;
  Quit1: TMenuItem;
  Contents1: TMenuItem;
  About1: TMenuItem;
  N1: TMenuItem;
  procedure CmdSearchClick(Sender: TObject);
  procedure CmdSaveClick(Sender: TObject);
  procedure CmdSelStartDirClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure cmbPatternChange(Sender: TObject);
  procedure chkAllFilesClick(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure CmdStopClick(Sender: TObject);
  procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  procedure CmdQuitClick(Sender: TObject);
  procedure cmbRootDirChange(Sender: TObject);
  procedure MemoDblClick(Sender: TObject);
  procedure Quit1Click(Sender: TObject);
  procedure About1Click(Sender: TObject);
  procedure cmbRootDirExit(Sender: TObject);
private
  AllowClickEvents : boolean;
  Analyzing : boolean;

  SF : TSearchedFilesSet;
  SearchInfo : TList;

  FRootDirs : TStringList;
  FPatterns : TStringList;

  procedure GeneralSearch;
  procedure UpdateStatus;
end;

DFM Objects

PSMainForm : TPSMainForm
 ├Label3 : TLabel
 ├Memo : TMemo
 ├CmdSave : TBitBtn
 ├CmdSearch : TBitBtn
 ├GroupBox1 : TGroupBox
 │ ├Label1 : TLabel
 │ ├Label2 : TLabel
 │ ├chkIncludeSubFolders : TCheckBox
 │ ├CmdSelStartDir : TButton
 │ ├chkListAllSearched : TCheckBox
 │ ├chkCaseSensitive : TCheckBox
 │ ├cmbRootDir : TComboBox
 │ ├cmbPattern : TComboBox
 │ └chkClearResults : TCheckBox
 ├GroupBox2 : TGroupBox
 │ ├Bevel1 : TBevel
 │ ├Label4 : TLabel
 │ ├chkAllFiles : TCheckBox
 │ ├chkOnlyWeb : TCheckBox
 │ ├chkOnlyInc : TCheckBox
 │ ├chkOnlySql : TCheckBox
 │ ├chkOnlyVB : TCheckBox
 │ ├chkOnlyDelphi : TCheckBox
 │ └chkOnlyTxt : TCheckBox
 ├RzStatusBar : TRzStatusBar
 │ ├RzClockStatus : TRzClockStatus
 │ ├RzStatusPane : TRzStatusPane
 │ └RzStatusPane1 : TRzStatusPane
 ├CmdStop : TBitBtn
 ├CmdQuit : TBitBtn
 ├StBrowser : TStBrowser
 ├SaveDialog : TSaveDialog
 └MainMenu1 : TMainMenu
   ├File1 : TMenuItem
   │ └Quit1 : TMenuItem
   └Help1 : TMenuItem
     ├Contents1 : TMenuItem
     ├N1 : TMenuItem
     └About1 : TMenuItem

Class Hierarchy

Class Fields

Name	Type	Scope	Comments
About1	TMenuItem	Public/Published	-
AllowClickEvents	Boolean	Private	-
Analyzing	Boolean	Private	-
Bevel1	TBevel	Public/Published	-
chkAllFiles	TCheckBox	Public/Published	-
chkCaseSensitive	TCheckBox	Public/Published	-
chkClearResults	TCheckBox	Public/Published	-
chkIncludeSubFolders	TCheckBox	Public/Published	-
chkListAllSearched	TCheckBox	Public/Published	-
chkOnlyDelphi	TCheckBox	Public/Published	-
chkOnlyInc	TCheckBox	Public/Published	-
chkOnlySql	TCheckBox	Public/Published	-
chkOnlyTxt	TCheckBox	Public/Published	-
chkOnlyVB	TCheckBox	Public/Published	-
chkOnlyWeb	TCheckBox	Public/Published	-
cmbPattern	TComboBox	Public/Published	-
cmbRootDir	TComboBox	Public/Published	-
CmdQuit	TBitBtn	Public/Published	-
CmdSave	TBitBtn	Public/Published	-
CmdSearch	TBitBtn	Public/Published	-
CmdSelStartDir	TButton	Public/Published	-
CmdStop	TBitBtn	Public/Published	-
Contents1	TMenuItem	Public/Published	-
File1	TMenuItem	Public/Published	-
FPatterns	TStringList	Private	-
FRootDirs	TStringList	Private	-
GroupBox1	TGroupBox	Public/Published	-
GroupBox2	TGroupBox	Public/Published	-
Help1	TMenuItem	Public/Published	-
Label1	TLabel	Public/Published	-
Label2	TLabel	Public/Published	-
Label3	TLabel	Public/Published	-
Label4	TLabel	Public/Published	-
MainMenu1	TMainMenu	Public/Published	-
Memo	TMemo	Public/Published	-
N1	TMenuItem	Public/Published	-
Quit1	TMenuItem	Public/Published	-
RzClockStatus	TRzClockStatus	Public/Published	-
RzStatusBar	TRzStatusBar	Public/Published	-
RzStatusPane	TRzStatusPane	Public/Published	-
RzStatusPane1	TRzStatusPane	Public/Published	-
SaveDialog	TSaveDialog	Public/Published	-
SearchInfo	TList	Private	-
SF	TSearchedFilesSet	Private	-
StBrowser	TStBrowser	Public/Published	-

Methods

Name	Declaration	Scope	Comments
About1Click	procedure About1Click(Sender: TObject);	Public/Published	-
chkAllFilesClick	procedure chkAllFilesClick(Sender: TObject);	Public/Published	-
cmbPatternChange	procedure cmbPatternChange(Sender: TObject);	Public/Published	-
cmbRootDirChange	procedure cmbRootDirChange(Sender: TObject);	Public/Published	-
cmbRootDirExit	procedure cmbRootDirExit(Sender: TObject);	Public/Published	-
CmdQuitClick	procedure CmdQuitClick(Sender: TObject);	Public/Published	-
CmdSaveClick	procedure CmdSaveClick(Sender: TObject);	Public/Published	-
CmdSearchClick	procedure CmdSearchClick(Sender: TObject);	Public/Published	-
CmdSelStartDirClick	procedure CmdSelStartDirClick(Sender: TObject);	Public/Published	-
CmdStopClick	procedure CmdStopClick(Sender: TObject);	Public/Published	-
FormCloseQuery	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);	Public/Published	-
FormCreate	procedure FormCreate(Sender: TObject);	Public/Published	-
FormDestroy	procedure FormDestroy(Sender: TObject);	Public/Published	-
FormShow	procedure FormShow(Sender: TObject);	Public/Published	-
GeneralSearch	procedure GeneralSearch;	Private	This is the GeneralSearch method
MemoDblClick	procedure MemoDblClick(Sender: TObject);	Public/Published	-
Quit1Click	procedure Quit1Click(Sender: TObject);	Public/Published	-
UpdateStatus	procedure UpdateStatus;	Private	-

Referenced By (2)