Fix scrolling bug

Kagamma · Aug 3, 2023 · 37e63e8 · 37e63e8
1 parent 5a59a47
commit 37e63e8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/screen.pas b/src/screen.pas
@@ -219,7 +219,7 @@ procedure RenderEditScrollUp;
   Src := ScreenPointer + ScreenWidth;
   Dst := ScreenPointer + ScreenWidth * 2;
   Size := ScreenWidth * 2;
-  Move(Src[0], Dst[0], Size * (ScreenHeight - 3));
+  Move(Src[0], Dst[0], Size * (ScreenHeight - 2));
   RenderEdit(True, False, False);
 end;