* rtl-console: generalized the partial screen update feature which was added to Amiga. the function was renamed to UpdateScreenArea(). it's still an empty call on other platforms, that falls back to UpdateScreen() but the infrastructure is now there to support it.

packages/rtl-console/src/amicommon/video.pp

@@ -49,7 +49,6 @@ procedure GotInactiveWindow;
 function HasInactiveWindow: boolean;
 procedure SetWindowTitle(const winTitle: AnsiString; const screenTitle: AnsiString);
 procedure TranslateToCharXY(const X,Y: LongInt; var CX,CY: LongInt);
-procedure UpdateScreenPart(const X1,Y1,X2,Y2: Longint; Force: Boolean);
 
 var
   VideoWindow: PWindow;
@@ -564,7 +563,7 @@ begin
 end;
 
 
-procedure UpdateScreenPart(const X1,Y1,X2,Y2: Longint; Force: Boolean);
+procedure SysUpdateScreenArea(const X1,Y1,X2,Y2: Word; Force: Boolean);
 var
   SmallForce: Boolean;
   CounterX, CounterY: LongInt;
@@ -668,7 +667,7 @@ end;
 
 procedure SysUpdateScreen(Force: Boolean);
 begin
-  UpdateScreenPart(0,0,ScreenWidth-1,ScreenHeight-1,Force);
+  SysUpdateScreenArea(0,0,ScreenWidth-1,ScreenHeight-1,Force);
 end;
 
 procedure SysSetCursorPos(NewCursorX, NewCursorY: Word);
@@ -874,6 +873,7 @@ const
     InitDriver : @SysInitVideo;
     DoneDriver : @SysDoneVideo;
     UpdateScreen : @SysUpdateScreen;
+    UpdateScreenArea : @SysUpdateScreenArea;
     ClearScreen : @SysClearScreen;
     SetVideoMode : @SysSetVideoMode;
     GetVideoModeCount : @SysGetVideoModeCount;

packages/rtl-console/src/go32v2/video.pp

@@ -308,6 +308,7 @@ Const
     InitDriver      : @SysInitVideo;
     DoneDriver      : @SysDoneVideo;
     UpdateScreen    : @SysUpdateScreen;
+    UpdateScreenArea : Nil;
     ClearScreen     : Nil;
     SetVideoMode    : @SysSetVideoMode;
     GetVideoModeCount : @SysGetVideoModeCount;

packages/rtl-console/src/inc/video.inc

@@ -186,6 +186,17 @@ begin
       CurrentVideoDriver.UpdateScreen(Force);
 end;
 
+Procedure UpdateScreenArea (const X1, Y1, X2, Y2: Word; Force: Boolean);
+
+begin
+  if (LockUpdateScreen<=0) then
+    if Assigned(CurrentVideoDriver.UpdateScreenArea) then
+      CurrentVideoDriver.UpdateScreenArea(X1,Y1,X2,Y2,Force);
+    else
+      UpdateScreen(Force);
+end;
+
+
 Procedure ClearScreen;
 
 begin

packages/rtl-console/src/inc/videoh.inc

@@ -29,6 +29,7 @@ type
     InitDriver        : Procedure;
     DoneDriver        : Procedure;
     UpdateScreen      : Procedure(Force : Boolean);
+    UpdateScreenArea  : Procedure(const X1, Y1, X2, Y2: Word; Force : Boolean);
     ClearScreen       : Procedure;
     SetVideoMode      : Function (Const Mode : TVideoMode) : Boolean;
     GetVideoModeCount : Function : Word;
@@ -133,7 +134,13 @@ procedure ClearScreen;
 { Clears the screen }
 procedure UpdateScreen(Force: Boolean);
 { Force specifies whether the whole screen has to be redrawn, or (if target
-  platform supports it) its parts only }
+  platform supports it) only the changed parts }
+procedure UpdateScreenArea(const X1, Y1, X2, Y2: Word; Force: Boolean);
+{ Updates the screen in the area marked by coordinates X1, Y1 (top left) and
+  X2, Y2 (bottom right), coordinates inclusive. Force specifies whether the
+  whole area has to be redrawn, or (if target platform supports it) its changed
+  parts only. If the target doesn't implement it, UpdateScreen() will be called
+  instead. }
 procedure SetCursorPos(NewCursorX, NewCursorY: Word);
 { Position the cursor to the given position }
 function GetCursorType: Word;

packages/rtl-console/src/msdos/video.pp

@@ -281,6 +281,7 @@ Const
     InitDriver      : @SysInitVideo;
     DoneDriver      : @SysDoneVideo;
     UpdateScreen    : @SysUpdateScreen;
+    UpdateScreenArea : Nil;
     ClearScreen     : Nil;
     SetVideoMode    : @SysSetVideoMode;
     GetVideoModeCount : @SysGetVideoModeCount;

packages/rtl-console/src/netware/video.pp

@@ -176,6 +176,7 @@ Const
   InitDriver        : @SysInitVideo;
   DoneDriver        : @SysDoneVideo;
   UpdateScreen      : @SysUpdateScreen;
+  UpdateScreenArea  : Nil;
   ClearScreen       : Nil;
   SetVideoMode      : @SysSetVideoMode;
   GetVideoModeCount : @SysGetVideoModeCount;

packages/rtl-console/src/netwlibc/video.pp

@@ -165,6 +165,7 @@ Const
   InitDriver        : @SysInitVideo;
   DoneDriver        : @SysDoneVideo;
   UpdateScreen      : @SysUpdateScreen;
+  UpdateScreenArea  : Nil;
   ClearScreen       : Nil;
   SetVideoMode      : @SysSetVideoMode;
   GetVideoModeCount : @SysGetVideoModeCount;

packages/rtl-console/src/os2commn/video.pp

@@ -430,6 +430,7 @@ Const
     InitDriver        : @SysInitVideo;
     DoneDriver        : @SysDoneVideo;
     UpdateScreen      : @SysUpdateScreen;
+    UpdateScreenArea  : nil;
     ClearScreen       : @SysClearScreen;
     SetVideoMode      : @SysSetVideoMode;
     GetVideoModeCount : @SysGetVideoModeCount;

packages/rtl-console/src/unix/video.pp

@@ -1367,6 +1367,7 @@ Const
     InitDriver : @SysInitVideo;
     DoneDriver : @SysDoneVideo;
     UpdateScreen : @SysUpdateScreen;
+    UpdateScreenArea : Nil;
     ClearScreen : @SysClearScreen;
     SetVideoMode : @SysSetVideoMode;
     GetVideoModeCount : Nil;

packages/rtl-console/src/win/video.pp

@@ -756,6 +756,7 @@ Const
     InitDriver : @SysInitVideo;
     DoneDriver : @SysDoneVideo;
     UpdateScreen : @SysUpdateScreen;
+    UpdateScreenArea: nil;
     ClearScreen : @SysClearScreen;
     SetVideoMode : @SysSetVideoMode;
     GetVideoModeCount : @SysGetVideoModeCount;

packages/rtl-console/src/win16/video.pp

@@ -258,6 +258,7 @@ const
     InitDriver: @SysInitVideo;
     DoneDriver: @SysDoneVideo;
     UpdateScreen: @SysUpdateScreen;
+    UpdateScreenArea: nil;
     ClearScreen: nil;
     SetVideoMode: @SysSetVideoMode;
     GetVideoModeCount: nil;