From 53f0b4cc307d563c7ac7f5c1cba73cea0181f709 Mon Sep 17 00:00:00 2001 From: marco Date: Mon, 30 Jul 2001 15:01:12 +0000 Subject: [PATCH] * Fixed wchar=word to widechar conversion --- rtl/win32/video.pp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/rtl/win32/video.pp b/rtl/win32/video.pp index c38f9ba28d..9e111e290e 100644 --- a/rtl/win32/video.pp +++ b/rtl/win32/video.pp @@ -224,7 +224,7 @@ begin begin for ColCounter := 1 to ScreenWidth do begin - LineBuf^[BufCounter].UniCodeChar := WordRec(VideoBuf^[BufCounter]).One; + LineBuf^[BufCounter].UniCodeChar := Widechar(WordRec(VideoBuf^[BufCounter]).One); LineBuf^[BufCounter].Attributes := WordRec(VideoBuf^[BufCounter]).Two; Inc(BufCounter); @@ -297,7 +297,7 @@ begin if LineCounter>y2 then y2:=LineCounter; end; - LineBuf^[BufCounter].UniCodeChar := WordRec(VideoBuf^[BufCounter]).One; + LineBuf^[BufCounter].UniCodeChar := Widechar(WordRec(VideoBuf^[BufCounter]).One); { If (WordRec(VideoBuf^[BufCounter]).Two and $80)<>0 then LineBuf^[BufCounter].Attributes := $100+WordRec(VideoBuf^[BufCounter]).Two else } @@ -358,7 +358,10 @@ finalization end. { $Log$ - Revision 1.3 2001-06-13 18:32:55 peter + Revision 1.4 2001-07-30 15:01:12 marco + * Fixed wchar=word to widechar conversion + + Revision 1.3 2001/06/13 18:32:55 peter * fixed crash within donevideo (merged) Revision 1.2 2001/04/10 21:28:36 peter