paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:06:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed wchar=word to widechar conversion

Browse Source
This commit is contained in:
marco 2001-07-30 15:01:12 +00:00
parent 63548ec70f
commit 53f0b4cc30
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/win32/video.pp
View File

@ -224,7 +224,7 @@ begin
begin begin
for ColCounter := 1 to ScreenWidth do for ColCounter := 1 to ScreenWidth do
begin begin
LineBuf^[BufCounter].UniCodeChar := WordRec(VideoBuf^[BufCounter]).One; LineBuf^[BufCounter].UniCodeChar := Widechar(WordRec(VideoBuf^[BufCounter]).One);
LineBuf^[BufCounter].Attributes := WordRec(VideoBuf^[BufCounter]).Two; LineBuf^[BufCounter].Attributes := WordRec(VideoBuf^[BufCounter]).Two;
Inc(BufCounter); Inc(BufCounter);
@ -297,7 +297,7 @@ begin
if LineCounter>y2 then if LineCounter>y2 then
y2:=LineCounter; y2:=LineCounter;
end; 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 { If (WordRec(VideoBuf^[BufCounter]).Two and $80)<>0 then
LineBuf^[BufCounter].Attributes := $100+WordRec(VideoBuf^[BufCounter]).Two LineBuf^[BufCounter].Attributes := $100+WordRec(VideoBuf^[BufCounter]).Two
else } else }
@ -358,7 +358,10 @@ finalization
end. end.
{ {
$Log$ $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) * fixed crash within donevideo (merged)
Revision 1.2 2001/04/10 21:28:36 peter Revision 1.2 2001/04/10 21:28:36 peter