Procedure

TfrmDrawers.SetFindNext

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Protected

Owner

TfrmDrawers

Declaration

procedure SetFindNext(const Value: boolean);

Called-By Hierarchy


                TfrmDrawers.SetFindNext
          TfrmDrawers.ReloadTemplates┤ 
       TfrmDrawers.sbTemplatesClick┤ │ 
TfrmDrawers.ExternalReloadTemplates┘ │ 
               TdmodShared.Reload┘   │ 
 TfrmTemplateEditor.FormDestroy┘     │ 
             TfrmDrawers.btnFindClick┤ 
          TfrmDrawers.edtSearchChange┤ 
           TfrmDrawers.ToggleMenuItem┤ 
        TfrmDrawers.cbFindOptionClick┘ 

Called-By

Name Declaration Comments
TfrmDrawers.btnFindClick procedure btnFindClick(Sender: TObject); -
TfrmDrawers.cbFindOptionClick procedure cbFindOptionClick(Sender: TObject); -
TfrmDrawers.edtSearchChange procedure edtSearchChange(Sender: TObject); -
TfrmDrawers.ReloadTemplates procedure ReloadTemplates; -
TfrmDrawers.ToggleMenuItem procedure ToggleMenuItem(Sender: TObject); -


Source

1025  procedure TfrmDrawers.SetFindNext(const Value: boolean);
1026  begin
1027    if(FFindNext <> Value) then
1028    begin
1029      FFindNext := Value;
1030      if(FFindNext) then btnFind.Caption := FindNextText
1031      else btnFind.Caption := 'Find';
1032    end;
1033  end;