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

* reset LastCharWasDoubleWidth in the beginning of every line

Browse Source 
git-svn-id: branches/unicodekvm@48780 -
This commit is contained in:
nickysn 2021-02-22 03:48:38 +00:00
parent f9cfc0aeb4
commit ca1b315e27
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -745,7 +745,6 @@ begin
LastAttr:=7; LastAttr:=7;
LastX:=-1; LastX:=-1;
LastY:=-1; LastY:=-1;
LastCharWasDoubleWidth:=False;
for y:=1 to ScreenHeight do for y:=1 to ScreenHeight do
begin begin
SpaceAttr:=0; SpaceAttr:=0;
@ -753,6 +752,7 @@ begin
LastLineWidth:=ScreenWidth; LastLineWidth:=ScreenWidth;
If (y=ScreenHeight) And (Console=ttyFreeBSD) {And :am: is on} Then If (y=ScreenHeight) And (Console=ttyFreeBSD) {And :am: is on} Then
LastLineWidth:=ScreenWidth-2; LastLineWidth:=ScreenWidth-2;
LastCharWasDoubleWidth:=False;
for x:=1 to LastLineWidth do for x:=1 to LastLineWidth do
begin begin
if LastCharWasDoubleWidth then if LastCharWasDoubleWidth then