Browse Source

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

Margers 1 năm trước cách đây
mục cha
commit
d1e239f3c4
1 tập tin đã thay đổi với 8 bổ sung2 xóa
  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;