freepascal.ru

имеем: дефолтные характеристики терминала (Linux Mint): черный фон и серый шрифт. После запуска программы под fpc (+ модуль crt) с использованием TextColor(Red) и TextBackground (White) и выхода из программы, терминал имеет красный шрифт и белый фон. Что сделать, чтобы восстановить характеристики терминала (черный фон и серый шрифт) перед выходом из программы? Спасибо.

Код: Выделить всё

TextColor(White);
TextBackground(Black);

?

Вы хотели сказать TextColor(Grey)? Дело в том, что такое решение мне не нравится, т.к. не учитывает характеристики терминала пользователя (ведь это может быть любой другой цвет фона и текста).

anchar
В таком случае Вы можете запомнить в какой-нибудь переменной предыдущую расцветку терминала:

Код: Выделить всё

Var
  OldStyle: Byte;
Begin
  OldStyle:=TextAttr;
// Полёт программистской мысли
  ...
// Закончили работу
  TextAttr:=OldStyle;
End;

Добавлено спустя 14 минут 28 секунд:
Хотя нет, эта переменная при инициализации не считывает настройки цвета терминала. Видимо придётся подключать ncurses и через него считывать настройки терминала.

Добавлено спустя 21 минуту 10 секунд:
anchar
Или, если пользоваться внешними средствами, можно так:

Код: Выделить всё

FpExecL('tput', ['reset']);
FpExecL('tput', ['clear']);

Vadim писал(а):Хотя нет, эта переменная при инициализации не считывает настройки цвета терминала.

А если так?

Код: Выделить всё

program test;
{$mode objfpc}
uses
  crt;
var
  Attr: Byte;
begin
  Attr := TextAttr;
  WriteLn('TextAttr = ', TextAttr);
  TextColor(Red);
  TextBackground(White);
  WriteLn('TextAttr = ', TextAttr);
  TextAttr := Attr;
  WriteLn('TextAttr = ', TextAttr);
end. 


iskander
TextAttr работает только внутри собственной программы, цвета терминала, которые были до её запуска, она не берёт.
Вот, к примеру, у меня ностальгический зелёный цвет текста на чёрном фоне, однако TextAttr показывает то, что внутри программы, а не то, что было до него:

Ага, дошло.

решение не очень красивое, но рабочее. найдено здесь:https://wiki.freepascal.org/Executing_External_Programs#TProcess
в соответствующие места программы следует вставить:

Код: Выделить всё

uses
    process;
var
    reset_process: TProcess;
begin
    reset_process := TProcess.Create(nil);
    reset_process.Executable := 'reset';
    reset_process.Options := reset_process.Options + [poWaitOnExit];
    reset_process.Execute;
    reset_process.Free
end.