correctly detect full line for cleaner log

corneliusdavid · Jul 19, 2024 · 2cbae8b · 2cbae8b
1 parent f2351cc
commit 2cbae8b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/ufrmInstallLog.pas b/ufrmInstallLog.pas
@@ -72,7 +72,8 @@ procedure TfrmInstallLog.Initialize;
 procedure TfrmInstallLog.DosCmdGetItInstallNewLine(ASender: TObject;
   const ANewLine: string; AOutputType: TOutputType);
 begin
-  AddLog(ANewLine);
+  if AOutputType = otEntireLine then
+    AddLog(ANewLine);
 end;
 
 procedure TfrmInstallLog.DosCmdGetItInstallTerminated(Sender: TObject);