Fixed a small output bug

This commit is contained in:
Christian Hammacher
2005-11-05 11:20:52 +00:00
parent 6ea52a9a08
commit 1cb99082e2
6 changed files with 17 additions and 17 deletions

View File

@ -145,7 +145,6 @@ var i, eIndex: integer;
begin
if Output.Count > 1 then begin
eIndex := frmMain.lstOutput.ItemIndex;
frmMain.lstOutput.Items.BeginUpdate;
frmMain.lstOutput.Items.Clear;
if Finished then begin
for i := 0 to Output.Count -1 do
@ -155,7 +154,6 @@ begin
for i := 0 to Output.Count -2 do
ProcessItem(Output[i]);
end;
frmMain.lstOutput.Items.EndUpdate;
frmMain.lstOutput.ItemIndex := eIndex;
frmMain.Repaint;
Application.ProcessMessages;