paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:47:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support conversion between legancy and enhanced console in UpdateScreenArea

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-02-12 10:09:17 +02:00
parent 2d5f0fbde0
commit 0b8a0fb495
1 changed files with 73 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
packages/rtl-console/src/inc/video.inc
View File

@ -377,6 +377,37 @@ begin
end;
end;
procedure Enhanced2Legacy_Area(X1, Y1, X2, Y2: Word);
var
I, IY, X, Y: Integer;
CodePage: TSystemCodePage;
begin
if (X1>=ScreenWidth) or (Y1>=ScreenHeight) then
exit;
if X2>=ScreenWidth then
X2:=ScreenWidth-1;
if Y2>=ScreenHeight then
Y2:=ScreenHeight-1;
if (X1>X2) or (Y1>Y2) then
exit;
CodePage:=GetActiveCodePage();
{ todo: optimize this }
IY := Y1*ScreenWidth+X1;
for Y := Y1 to Y2 do
begin
I := IY;
for X := X1 to X2 do
begin
with EnhancedVideoBuf[I] do
VideoBuf^[I]:=(Attribute shl 8) or Ord(ExtendedGraphemeCluster2LegacyChar(ExtendedGraphemeCluster,CodePage));
with OldEnhancedVideoBuf[I] do
OldVideoBuf^[I]:=(Attribute shl 8) or Ord(ExtendedGraphemeCluster2LegacyChar(ExtendedGraphemeCluster,CodePage));
Inc(I);
end;
Inc(IY, ScreenWidth);
end;
end;
procedure Legacy2Enhanced;
var
I: Integer;
@ -397,6 +428,41 @@ begin
end;
end;
procedure Legacy2Enhanced_Area(X1, Y1, X2, Y2: Word);
var
I, IY, X, Y: Integer;
begin
if (X1>=ScreenWidth) or (Y1>=ScreenHeight) then
exit;
if X2>=ScreenWidth then
X2:=ScreenWidth-1;
if Y2>=ScreenHeight then
Y2:=ScreenHeight-1;
if (X1>X2) or (Y1>Y2) then
exit;
{ todo: optimize this }
IY := Y1*ScreenWidth+X1;
for Y := Y1 to Y2 do
begin
I := IY;
for X := X1 to X2 do
begin
with EnhancedVideoBuf[I] do
begin
Attribute:=Byte(VideoBuf^[I] shr 8);
ExtendedGraphemeCluster:=LegacyChar2ExtendedGraphemeCluster(Chr(Byte(VideoBuf^[I])));
end;
with OldEnhancedVideoBuf[I] do
begin
Attribute:=Byte(OldVideoBuf^[I] shr 8);
ExtendedGraphemeCluster:=LegacyChar2ExtendedGraphemeCluster(Chr(Byte(OldVideoBuf^[I])));
end;
Inc(I);
end;
Inc(IY, ScreenWidth);
end;
end;
Procedure UpdateScreen (Force : Boolean);
begin
@ -416,7 +482,13 @@ 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)
begin
if EnhancedVideoInitialized and Assigned(CurrentVideoDriver.InitDriver) then
Enhanced2Legacy_Area(X1,Y1,X2,Y2)
else if VideoInitialized and Assigned(CurrentVideoDriver.InitEnhancedDriver) then
Legacy2Enhanced_Area(X1,Y1,X2,Y2);
CurrentVideoDriver.UpdateScreenArea(X1,Y1,X2,Y2,Force);
end
else
UpdateScreen(Force);
end;