Browse Source

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

Margers 11 months ago
parent
commit
bc7c288703
1 changed files with 6 additions and 3 deletions
  1. 6 3
      packages/ide/fpusrscr.pas

+ 6 - 3
packages/ide/fpusrscr.pas

@@ -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