Procedure

Module

Last Modified

Visibility

Owner

Declaration

procedure UpdateStatus;

Called-By Hierarchy

      TPSMainForm.UpdateStatus
  TPSMainForm.CmdSearchClick┤ 
TPSMainForm.cmbPatternChange┤ 
        TPSMainForm.FormShow┤ 
TPSMainForm.chkAllFilesClick┤ 
TPSMainForm.cmbRootDirChange┤ 
     TPSMainForm.About1Click┘ 

Called-By

Name	Declaration	Comments
TPSMainForm.About1Click	procedure About1Click(Sender: TObject);	-
TPSMainForm.chkAllFilesClick	procedure chkAllFilesClick(Sender: TObject);	-
TPSMainForm.cmbPatternChange	procedure cmbPatternChange(Sender: TObject);	-
TPSMainForm.cmbRootDirChange	procedure cmbRootDirChange(Sender: TObject);	-
TPSMainForm.CmdSearchClick	procedure CmdSearchClick(Sender: TObject);	-
TPSMainForm.FormShow	procedure FormShow(Sender: TObject);	-

Source

348   procedure TPSMainForm.UpdateStatus;
349   var
350     Enable : boolean;
351   begin
352     CmdSearch.Enabled := (cmbRootDir.Text <> '') and
353       (cmbPattern.Text <> '');
354   
355     CmdStop.Enabled := false;
356     CmdSave.Enabled := Memo.Lines.Count > 0;
357   
358     Enable := not chkAllFiles.Checked;
359     chkOnlyInc.Enabled := Enable;
360     chkOnlyWeb.Enabled := Enable;
361     chkOnlySql.Enabled := Enable;
362     chkOnlyDelphi.Enabled := Enable;
363     chkOnlyVB.Enabled := Enable;
364     chkOnlyTxt.Enabled := Enable;
365   end;