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: Disable unavailable options

Browse source
This commit is contained in:
Alexander Koblov 2024-03-20 20:38:04 +03:00
commit 09238c8615
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/fselectduplicates.lfm
View file

@ -186,6 +186,7 @@ object frmSelectDuplicates: TfrmSelectDuplicates
Checked = True
State = cbChecked
TabOrder = 2
OnChange = chkLeaveUnselectedChange
end
object pnlMethods: TPanel
AnchorSideLeft.Control = Owner

7
src/fselectduplicates.pas
View file

@ -31,6 +31,7 @@ type
pnlButtons: TKASButtonPanel;
procedure btnApplyClick(Sender: TObject);
procedure btnIncludeMaskClick(Sender: TObject);
procedure chkLeaveUnselectedChange(Sender: TObject);
procedure cmbFirstMethodChange(Sender: TObject);
private
FFileView: TFileView;
@ -223,5 +224,11 @@ begin
end;
end;
procedure TfrmSelectDuplicates.chkLeaveUnselectedChange(Sender: TObject);
begin
cmbFirstMethod.Enabled:= chkLeaveUnselected.Checked;
cmbSecondMethod.Enabled:= chkLeaveUnselected.Checked;
end;
end.