add PrettyMessage procedure

Author: freddycoder

erabliereapi/DynDialog.al

@@ -7,6 +7,7 @@ codeunit 50130 DynDialog
     begin
         for i := 1 to n do begin
             dialogTemplate += '#' + Format(i) + ' ';
+            Texts.Add('');
         end;
         Dialog.Open(dialogTemplate);
     end;
@@ -18,9 +19,21 @@ codeunit 50130 DynDialog
 
     procedure Update(number: Integer; text: Text)
     begin
+        Texts.Set(number, text);
         Dialog.Update(number, text);
     end;
 
+    procedure PrettyMessage(text: Text)
+    var
+        i: Integer;
+        template: Text;
+    begin
+        for i := 1 to Texts.Count do
+            template += Texts.Get(i) + '\';
+        Message(text + '\' + template, Texts);
+    end;
+
     var
         Dialog: Dialog;
+        Texts: List of [Text];
 }