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

* Make Tframe codepage aware

Browse Source 
git-svn-id: trunk@3435 -
This commit is contained in:
daniel 2006-05-06 18:40:21 +00:00
parent 111fc2ca42
commit 719b1b2724
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fv/views.pas
View File

@ -2697,13 +2697,16 @@ const
InitFrame: array[0..17] of Byte =
($06, $0A, $0C, $05, $00, $05, $03, $0A, $09,
$16, $1A, $1C, $15, $00, $15, $13, $1A, $19);
FrameChars: array[0..31] of Char =
' À ³Úà ÙÄÁ¿´ÂÅ È ºÉÇ ¼ÍÏ»¶Ñ ';
FrameChars_437: array[0..31] of Char =
' À ³Úà ÙÄÁ¿´ÂÅ È ºÉÇ ¼ÍÏ»¶ÑÎ';
FrameChars_850: array[0..31] of Char =
' À ³Úà ÙÄÁ¿´ÂÅ È ºÉº ¼ÍÍ»ºÍÎ';
var
FrameMask : array[0..MaxViewWidth-1] of Byte;
ColorMask : word;
i,j,k : {Sw_ lo and hi are used !! }integer;
CurrView : PView;
p : Pchar;
begin
FrameMask[0]:=InitFrame[n];
FillChar(FrameMask[1],Size.X-2,InitFrame[n+1]);
@ -2761,8 +2764,14 @@ begin
CurrView:=CurrView^.Next;
end;
ColorMask:=Color shl 8;
p:=framechars_437;
{$ifdef unix}
{Codepage variables are currently Unix only.}
if internal_codepage<>cp437 then
p:=framechars_850;
{$endif}
for i:=0 to Size.X-1 do
TVideoBuf(FrameBuf)[i]:=ord(FrameChars[FrameMask[i]]) or ColorMask;
TVideoBuf(FrameBuf)[i]:=ord(p[FrameMask[i]]) or ColorMask;
end;