Browse Source

Branch to save Enhanced video buffer or Legacy video buffer (Unix).

Margers 11 months ago
parent
commit
d1e239f3c4
1 changed files with 8 additions and 2 deletions
  1. 8 2
      packages/rtl-console/src/unix/video.pp

+ 8 - 2
packages/rtl-console/src/unix/video.pp

@@ -1233,8 +1233,14 @@ begin
   else
 {$endif}
     updateTTY(force);
-  for I := Low(EnhancedVideoBuf) to High(EnhancedVideoBuf) do
-    OldEnhancedVideoBuf[I] := EnhancedVideoBuf[I];
+  if VideoInitialized then
+  begin
+    move(VideoBuf^,OldVideoBuf^,VideoBufSize);
+  end else
+  begin
+    for I := Low(EnhancedVideoBuf) to High(EnhancedVideoBuf) do
+      OldEnhancedVideoBuf[I] := EnhancedVideoBuf[I];
+  end;
 end;