소스 검색

FIX: Packer name lost

Alexander Koblov 3 년 전
부모
커밋
d3547ad222
2개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  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;