FIX: Bug [0002173] combine files sorting improvement

This commit is contained in:
cordylus 2018-11-05 01:11:03 +00:00
commit 5fa625fb03

View file

@ -76,13 +76,11 @@ begin
begin
try
// Fill file list box
lstFile.Sorted:=TRUE;
for I:= 0 to aFiles.Count - 1 do
with lstFile.Items do
begin
AddObject(aFiles[I].Name, aFiles[I]);
end;
lstFile.Sorted:=FALSE;
// Use first file name without extension as target file name
edSave.Text:= TargetPath + aFiles[0].NameNoExt;