paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

- get rid of internal_codepage. Set CurrentLegacy2EnhancedTranslationCodePage instead.

Browse Source 
git-svn-id: branches/unicodekvm@48919 -
This commit is contained in:
nickysn 2021-03-08 18:21:31 +00:00
parent ed0ec94680
commit ce9e1e8466
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/rtl-console/src/unix/video.pp
View File

@ -37,7 +37,7 @@ const
CP_ISO02 = 28592; {ISO 8859-2}
CP_ISO05 = 28595; {ISO 8859-5}
var internal_codepage,external_codepage:TSystemCodePage;
var external_codepage:TSystemCodePage;
{$i video.inc}
{$i convert.inc}
@ -983,25 +983,25 @@ begin
case external_codepage of
CP_ISO01: {West Europe}
begin
internal_codepage:=850;
CurrentLegacy2EnhancedTranslationCodePage:=850;
convert:=cv_cp850_to_iso01;
end;
CP_ISO02: {East Europe}
internal_codepage:=852;
CurrentLegacy2EnhancedTranslationCodePage:=852;
CP_ISO05: {Cyrillic}
internal_codepage:=866;
CurrentLegacy2EnhancedTranslationCodePage:=866;
CP_UTF8:
begin
internal_codepage:=437;
CurrentLegacy2EnhancedTranslationCodePage:=437;
convert:=cv_cp437_to_UTF8;
end;
else
if is_vga_code_page(external_codepage) then
internal_codepage:=external_codepage
CurrentLegacy2EnhancedTranslationCodePage:=external_codepage
else
{We don't know how to convert to the external codepage. Use codepage
437 in the hope that the actual font has similarity to codepage 437.}
internal_codepage:=437;
CurrentLegacy2EnhancedTranslationCodePage:=437;
end;
end;