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

* write tab background correctly

Browse Source
This commit is contained in:
pierre 2002-05-20 21:04:08 +00:00
parent d75603c2ed
commit cc7f19e30e
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fv/tabs.pas
View File

@ -362,7 +362,9 @@ begin
{ --- marad‚k sor --- }
ClearBuf; MoveChar(B[0],'³',C1,1); MoveChar(B[Size.X-1],'³',C1,1);
SWriteBuf(0,3,Size.X,Size.Y-4,B);
{SWriteBuf(0,3,Size.X,Size.Y-4,B);}
for i:=3 to Size.Y-1 do
SWriteBuf(0,i,Size.X,1,B);
{ --- Size.X . sor --- }
MoveChar(B[0],'À',C1,1); MoveChar(B[1],'Ä',C1,Max(Size.X-2,0)); MoveChar(B[Size.X-1],'Ù',C1,1);

4
fvision/tabs.pas
View File

@ -362,7 +362,9 @@ begin
{ --- marad‚k sor --- }
ClearBuf; MoveChar(B[0],'³',C1,1); MoveChar(B[Size.X-1],'³',C1,1);
SWriteBuf(0,3,Size.X,Size.Y-4,B);
{SWriteBuf(0,3,Size.X,Size.Y-4,B);}
for i:=3 to Size.Y-1 do
SWriteBuf(0,i,Size.X,1,B);
{ --- Size.X . sor --- }
MoveChar(B[0],'À',C1,1); MoveChar(B[1],'Ä',C1,Max(Size.X-2,0)); MoveChar(B[Size.X-1],'Ù',C1,1);