Changeset 112 for trunk/Forms/UFormOutput.pas

Timestamp:

May 17, 2019, 10:06:59 PM (5 years ago)

Author:

chronos

Message:

• Modified: Redraw output form content only if output instruction was used in interpretter mode.
• Modified: Redraw memory form content only if memory was written in interpretter mode.
• Fixed: Replace windows newlines by unix newlines in interpretter output under Linux.

File:

• trunk/Forms/UFormOutput.pas (modified) (1 diff)

trunk/Forms/UFormOutput.pas

@@ -37 +37 @@
   if Core.CurrentTarget is TTargetInterpretter then
   with TTargetInterpretter(Core.CurrentTarget) do begin
-    MemoOutput.Lines.Text := Output;
+    if OutputChanged then begin
+      OutputChanged := False;
+      {$IFDEF LINUX}
+      MemoOutput.Lines.Text := StringReplace(Output, #10#13, LineEnding, [rfReplaceAll])
+      {$ELSE}
+      MemoOutput.Lines.Text := Output;
+      {$ENDIF}
+    end;
   end;
 end;