mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Load search template without duplicate name option

Browse source
This commit is contained in:
Alexander Koblov 2019-12-07 08:50:57 +00:00
commit f1227408a0
2 changed files with 6 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/fFindDlg.lfm
View file

@ -942,7 +942,6 @@ object frmFindDlg: TfrmFindDlg
Top = 0
Width = 81
Caption = 'same name'
OnChange = chkDuplicateNameChange
TabOrder = 0
end
object chkDuplicateSize: TCheckBox

16
src/fFindDlg.pas
View file

@ -220,7 +220,6 @@ type
procedure cbSelectedFilesChange(Sender: TObject);
procedure chkDuplicateContentChange(Sender: TObject);
procedure chkDuplicateHashChange(Sender: TObject);
procedure chkDuplicateNameChange(Sender: TObject);
procedure chkDuplicatesChange(Sender: TObject);
procedure chkDuplicateSizeChange(Sender: TObject);
procedure chkHexChange(Sender: TObject);
@ -874,6 +873,9 @@ begin
cmbEncoding.ItemIndex := 0;
cmbEncodingSelect(nil);
// duplicates
chkDuplicates.Checked:= False;
// plugins
cmbPlugin.Text := '';
@ -1037,7 +1039,6 @@ begin
chkDuplicateSize.Checked:= True;
chkDuplicateHash.Checked:= False;
end;
chkDuplicateNameChange(chkDuplicateName);
end;
procedure TfrmFindDlg.chkDuplicateHashChange(Sender: TObject);
@ -1047,13 +1048,6 @@ begin
chkDuplicateSize.Checked:= True;
chkDuplicateContent.Checked:= False;
end;
chkDuplicateNameChange(chkDuplicateName);
end;
procedure TfrmFindDlg.chkDuplicateNameChange(Sender: TObject);
begin
if not (chkDuplicateName.Checked or chkDuplicateSize.Checked) then
chkDuplicates.Checked:= False;
end;
procedure TfrmFindDlg.chkDuplicatesChange(Sender: TObject);
@ -1073,7 +1067,6 @@ begin
chkDuplicateHash.Checked:= False;
chkDuplicateContent.Checked:= False;
end;
chkDuplicateNameChange(chkDuplicateName);
end;
procedure TfrmFindDlg.chkHexChange(Sender: TObject);
@ -1531,6 +1524,9 @@ begin
Exit;
end;
if not (chkDuplicateName.Checked or chkDuplicateSize.Checked) then
chkDuplicates.Checked:= False;
// Show search results page
pgcSearch.ActivePage := tsResults;