eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

PutScreenImage now resets the window to max and pops it back after placing the image

This commit is contained in:
mysticbbs 2012-08-06 01:55:51 -04:00
parent 90552c453e
commit ab789bc8af
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
mdl/m_output_linux.pas
View File

@ -580,7 +580,13 @@ Procedure TOutputLinux.PutScreenImage (Image: TConsoleImageRec);
Var Var
CountX : Byte; CountX : Byte;
CountY : Byte; CountY : Byte;
OT, OB : Byte;
Begin Begin
OT := FWinTop;
OB := FWinBot;
SetWindow (1, 1, 80, ScreenSize, False);
For CountY := Image.Y1 to Image.Y2 Do Begin For CountY := Image.Y1 to Image.Y2 Do Begin
CursorXY (Image.X1, CountY); CursorXY (Image.X1, CountY);
@ -594,7 +600,8 @@ Begin
End; End;
SetTextAttr (Image.CursorA); SetTextAttr (Image.CursorA);
CursorXY (Image.CursorX, Image.CursorY); CursorXY (Image.CursorX, Image.CursorY);
SetWindow (1, OT, 80, OB, False);
BufFlush; BufFlush;
End; End;