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

UPD: Enable/Disable archiver without "Apply" button

Browse source
This commit is contained in:
Alexander Koblov 2010-03-28 11:08:42 +00:00
commit b9a7aa959e
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/foptions.lfm
View file

@ -4404,6 +4404,7 @@ object frmOptions: TfrmOptions
BorderSpacing.Left = 10
BorderSpacing.Right = 6
Caption = 'Enabled'
OnChange = chkMultiArcEnabledChange
TabOrder = 4
end
end

9
src/foptions.pas
View file

@ -398,6 +398,7 @@ type
procedure cbToolsUseExternalProgramChange(Sender: TObject);
procedure cbWatchExcludeDirsChange(Sender: TObject);
procedure chkIgnoreEnableChange(Sender: TObject);
procedure chkMultiArcEnabledChange(Sender: TObject);
procedure edtToolsParametersChange(Sender: TObject);
procedure fneToolsPathChange(Sender: TObject);
procedure lbxMultiArcSelectionChange(Sender: TObject; User: boolean);
@ -1249,7 +1250,6 @@ begin
FAddSelfExtract:= edtArchiveSelfExtract.Text;
FOutput:= chkMultiArcOutput.Checked;
FDebug:= chkMultiArcDebug.Checked;
FEnabled:= chkMultiArcEnabled.Checked;
end;
end;
@ -2029,6 +2029,13 @@ begin
btnAddSel.Enabled:= chkIgnoreEnable.Checked;
end;
procedure TfrmOptions.chkMultiArcEnabledChange(Sender: TObject);
begin
if lbxMultiArc.ItemIndex < 0 then Exit;
with TMultiArcItem(lbxMultiArc.Items.Objects[lbxMultiArc.ItemIndex]) do
FEnabled:= chkMultiArcEnabled.Checked;
end;
procedure TfrmOptions.edtToolsParametersChange(Sender: TObject);
var
aRow: Integer;