Sfoglia il codice sorgente

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

Margers 1 anno fa
parent
commit
d1e239f3c4
1 ha cambiato i file con 8 aggiunte e 2 eliminazioni
  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;