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

Save and restore user screen original cursor position for every unix terminal not only xterm

Browse Source
This commit is contained in:
Margers 2024-09-11 01:14:10 +00:00 committed by Michael Van Canneyt
parent 9c3a66930c
commit bc7c288703
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/ide/fpusrscr.pas
View File

@ -873,8 +873,9 @@ procedure TLinuxScreen.SaveConsoleScreen;
var
NewSize : longint;
begin
write(#27'7'#27'[?47h');
if IsXTerm then
write(#27'7'#27'[?47h')
{write(#27'7'#27'[?47h')}
else if (TTYfd<>-1) then
begin
fpLSeek(TTYFd, 0, Seek_Set);
@ -908,10 +909,12 @@ end;
procedure TLinuxScreen.SwitchToConsoleScreen;
begin
write(#27'[0m');
write(#27'[?47l'#27'8'#27'[m');
if IsXterm then
begin
write(#27'[0m');
write(#27'[?47l'#27'8'#27'[m');
{write(#27'[0m');
write(#27'[?47l'#27'8'#27'[m');}
end
else if (TTyfd<>-1) then
begin