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

* init window size to the size of the console instead of 80,25

Browse Source
This commit is contained in:
peter 1999-01-15 12:47:16 +00:00
parent b5075769be
commit e692c842b3
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/linux/crt.pp
View File

@ -1466,8 +1466,9 @@ Begin
TextRec(Input).Handle:=StdInputHandle; TextRec(Input).Handle:=StdInputHandle;
{ Are we redirected to a file ? } { Are we redirected to a file ? }
Redir:=not IsAtty(TextRec(Output).Handle); Redir:=not IsAtty(TextRec(Output).Handle);
{ Get Size of terminal } { Get Size of terminal and set WindMax to the window }
GetConsoleBuf; GetConsoleBuf;
WindMax:=((ScreenHeight-1) Shl 8)+(ScreenWidth-1);
{Get Current X&Y or Reset to Home} {Get Current X&Y or Reset to Home}
if Redir then if Redir then
begin begin
@ -1492,7 +1493,10 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.13 1998-11-16 10:21:27 peter Revision 1.14 1999-01-15 12:47:16 peter
* init window size to the size of the console instead of 80,25
Revision 1.13 1998/11/16 10:21:27 peter
* fixes for H+ * fixes for H+
Revision 1.12 1998/11/10 15:01:01 peter Revision 1.12 1998/11/10 15:01:01 peter