find in files: directory options only enabled if where is directories

git-svn-id: trunk@9317 -
This commit is contained in:
mattias 2006-05-20 20:05:17 +00:00
parent aa20edd467
commit cb8e2a21f3

View File

@ -136,6 +136,7 @@ begin
ReplaceCheckBox.Enabled:=true;
UpdateReplaceCheck;
DirectoryOptionsGroupBox.Enabled:=WhereRadioGroup.ItemIndex=2;
end;
procedure TLazFindInFilesDialog.ReplaceCheckBoxChange(Sender: TObject);
@ -155,6 +156,7 @@ begin
if fifSearchProject in NewOptions then WhereRadioGroup.ItemIndex := 0;
if fifSearchOpen in NewOptions then WhereRadioGroup.ItemIndex := 1;
if fifSearchDirectories in NewOptions then WhereRadioGroup.ItemIndex := 2;
DirectoryOptionsGroupBox.Enabled:=WhereRadioGroup.ItemIndex=2;
UpdateReplaceCheck;
end;