소스 검색

* changed the video unit initialization sequence, so that the startup cursor
position is preserved at exit (or when switching to the user screen in the
IDE), when running in xterm or compatible (gnome-terminal, konsole, etc.)

Nikolay Nikolov 3 년 전
부모
커밋
0d9298f01a
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      packages/rtl-console/src/unix/video.pp

+ 2 - 2
packages/rtl-console/src/unix/video.pp

@@ -975,10 +975,10 @@ begin
      if Console<>ttylinux then
       begin
    {$endif}
+        SendEscapeSeqNdx(enter_ca_mode);
         SendEscapeSeqNdx(cursor_home);
         SendEscapeSeqNdx(cursor_normal);
         SendEscapeSeqNdx(cursor_visible_underline);
-        SendEscapeSeqNdx(enter_ca_mode);
         SetCursorType(crUnderLine);
         If Console=ttyFreeBSD Then
           SendEscapeSeqNdx(exit_am_mode);
@@ -1026,11 +1026,11 @@ begin
   else
    begin
 {$endif}
-     SendEscapeSeqNdx(exit_ca_mode);
      SendEscapeSeqNdx(cursor_home);
      SendEscapeSeqNdx(cursor_normal);
      SendEscapeSeqNdx(cursor_visible_underline);
      SendEscapeSeq(#27'[H');
+     SendEscapeSeqNdx(exit_ca_mode);
      if cur_term_strings=@term_codes_linux then
        begin
          {Executed in case ttylinux is false (i.e. no vcsa), but