Some display cleanup
This commit is contained in:
parent
070e8b862b
commit
fec621d090
|
@ -79,7 +79,7 @@ Begin
|
|||
Console.CursorXY (3, 22);
|
||||
|
||||
Console.TextAttr := 15;
|
||||
Console.WriteLine('> Execution complete');
|
||||
Console.WriteLine('> Execution of ' + strI2S(ProcessTotal) + ' processes complete');
|
||||
Console.TextAttr := 7;
|
||||
End;
|
||||
|
||||
|
@ -99,7 +99,7 @@ Begin
|
|||
|
||||
If Console.Active Then DrawStatusScreen;
|
||||
|
||||
Console.SetWindow(5, 14, 76, 21, True);
|
||||
Console.SetWindow(5, 14, 76, 20, True);
|
||||
|
||||
If FileExist(ParamStr(1)) Then
|
||||
FN := ParamStr(1)
|
||||
|
|
|
@ -69,7 +69,7 @@ Begin
|
|||
End;
|
||||
|
||||
If Done Then Begin
|
||||
Console.WriteLine('');
|
||||
If ProcessPos < ProcessTotal Then Console.WriteLine('');
|
||||
|
||||
BarOne.Update (100, 100);
|
||||
BarAll.Update (ProcessPos, ProcessTotal);
|
||||
|
|
Loading…
Reference in New Issue