mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Don't show Pack Files dialog if no files selected.

Browse source
This commit is contained in:
cobines 2012-04-20 14:10:40 +00:00
commit 784c03731b
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/umaincommands.pas
View file

@ -770,16 +770,17 @@ begin
begin
SelectedFiles := ActiveFrame.CloneSelectedFiles;
try
ShowPackDlg(ActiveFrame.FileSource,
nil, // No specific target (create new)
SelectedFiles,
NotActiveFrame.CurrentPath,
PathDelim { Copy to root of archive } {NotActiveFrame.FileSource.GetRootString}
);
if SelectedFiles.Count > 0 then
ShowPackDlg(ActiveFrame.FileSource,
nil, // No specific target (create new)
SelectedFiles,
NotActiveFrame.CurrentPath,
PathDelim { Copy to root of archive } {NotActiveFrame.FileSource.GetRootString}
)
else
msgWarning(rsMsgNoFilesSelected);
finally
if Assigned(SelectedFiles) then
FreeAndNil(SelectedFiles);
FreeAndNil(SelectedFiles);
end;
end;
end;