paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 03:26:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use the current legacy console code page in Enhanced2Legacy

Browse Source 
git-svn-id: branches/unicodekvm@48915 -
This commit is contained in:
nickysn 2021-03-08 17:34:36 +00:00
parent c6bce8915f
commit 77279fb5ef
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -306,14 +306,14 @@ begin
end;
end;
function ExtendedGraphemeCluster2LegacyChar(const EGC: UnicodeString): Char;
function ExtendedGraphemeCluster2LegacyChar(const EGC: UnicodeString; CodePage: TSystemCodePage): Char;
function GenConvert: Char;
var
tmpS: RawByteString;
begin
tmpS:=UTF8Encode(EGC);
System.SetCodePage(tmpS,CP_OEMCP,True);
System.SetCodePage(tmpS,CodePage,True);
if Length(tmpS)=1 then
Result:=tmpS[1]
else
@ -364,14 +364,16 @@ end;
procedure Enhanced2Legacy;
var
I: Integer;
CodePage: TSystemCodePage;
begin
CodePage:=GetActiveCodePage();
{ todo: optimize this }
for I := 0 to Length(EnhancedVideoBuf)-1 do
begin
with EnhancedVideoBuf[I] do
VideoBuf^[I]:=(Attribute shl 8) or Ord(ExtendedGraphemeCluster2LegacyChar(ExtendedGraphemeCluster));
VideoBuf^[I]:=(Attribute shl 8) or Ord(ExtendedGraphemeCluster2LegacyChar(ExtendedGraphemeCluster,CodePage));
with OldEnhancedVideoBuf[I] do
OldVideoBuf^[I]:=(Attribute shl 8) or Ord(ExtendedGraphemeCluster2LegacyChar(ExtendedGraphemeCluster));
OldVideoBuf^[I]:=(Attribute shl 8) or Ord(ExtendedGraphemeCluster2LegacyChar(ExtendedGraphemeCluster,CodePage));
end;
end;