Kaynağa Gözat

FIX: Packer name lost

Alexander Koblov 3 yıl önce
ebeveyn
işleme
d3547ad222
2 değiştirilmiş dosya ile 2 ekleme ve 0 silme
  1. 1 0
      src/frames/foptionsarchivers.pas
  2. 1 0
      src/umultiarc.pas

+ 1 - 0
src/frames/foptionsarchivers.pas

@@ -508,6 +508,7 @@ begin
     Exit;
   with TMultiArcItem(lbxArchiver.Items.Objects[lbxArchiver.ItemIndex]) do
   begin
+    FPacker := lbxArchiver.Items[lbxArchiver.ItemIndex];
     FDescription := edtArchiverDescription.Text;
     FArchiver := edtArchiverArchiver.Text;
     FExtension := edtArchiverExtension.Text;

+ 1 - 0
src/umultiarc.pas

@@ -643,6 +643,7 @@ function TMultiArcItem.Clone: TMultiArcItem;
 begin
   Result := TMultiArcItem.Create;
   //Keep elements in some ordre a when loading them from the .ini, it will be simpler to validate if we are missing one.
+  Result.FPacker := Self.FPacker;
   Result.FArchiver := Self.FArchiver;
   Result.FDescription := Self.FDescription;
   Result.FID := Self.FID;