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

* hide the (currently broken, to be fixed) unix internal/external code page

Browse Source 
stuff to the implementation part of the unit

git-svn-id: branches/unicodekvm@48916 -
This commit is contained in:
nickysn 2021-03-08 17:56:06 +00:00
parent 77279fb5ef
commit 62f8899c1b
2 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fv/src/views.inc
View File

@ -2826,11 +2826,8 @@ begin
{$else FV_UNICODE}
ColorMask:=Color shl 8;
p:=framechars_437;
{$ifdef unix}
{Codepage variables are currently Unix only.}
if internal_codepage<>cp437 then
if GetActiveCodePage<>437 then
p:=framechars_850;
{$endif}
for i:=0 to Size.X-1 do
TVideoBuf(FrameBuf)[i]:=ord(p[FrameMask[i]]) or ColorMask;
{$endif FV_UNICODE}

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

@ -24,6 +24,14 @@ unit video;
{$i videoh.inc}
{*****************************************************************************}
implementation
{*****************************************************************************}
uses baseunix,termio,strings,unixkvmbase,graphemebreakproperty,eastasianwidth
,charset
{$ifdef linux},linuxvcs{$endif};
type Tencoding=(cp437, {Codepage 437}
cp850, {Codepage 850}
cp852, {Codepage 852}
@ -53,15 +61,6 @@ const {Contains all code pages that can be considered a normal vga font.
var internal_codepage,external_codepage:Tencoding;
{*****************************************************************************}
implementation
{*****************************************************************************}
uses baseunix,termio,strings,unixkvmbase,graphemebreakproperty,eastasianwidth
,charset
{$ifdef linux},linuxvcs{$endif};
{$i video.inc}
{$i convert.inc}