ConsoleApp: proc. DisplayTaggedText - strip color tags when FUseColor…

…s = False
jackdp · Aug 5, 2022 · 46e3053 · 46e3053
1 parent c466c13
commit 46e3053
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Base/JPL.ConsoleApp.pas b/Base/JPL.ConsoleApp.pas
@@ -386,9 +386,11 @@ procedure TJPConsoleApp.DisplayTaggedText(const TaggedText: string);
   i: integer;
   s: string;
 begin
+  if Trim(TaggedText) = '' then Exit;
+
   if not FUseColors then
   begin
-    Write(TaggedText); // ToDo: Dodać usuwanie znaczników <color>
+    Write(StripColorTags(TaggedText)); // Done: Dodać usuwanie znaczników <color>
     Exit;
   end;