mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-15 05:39:17 +02:00
find in files: directory options only enabled if where is directories
git-svn-id: trunk@9317 -
This commit is contained in:
parent
aa20edd467
commit
cb8e2a21f3
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user