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

* changed the video unit initialization sequence, so that the startup cursor

Browse Source 
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.)
This commit is contained in:
Nikolay Nikolov 2022-03-16 08:28:29 +02:00
parent 28732fffa2
commit 0d9298f01a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-console/src/unix/video.pp
View File

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