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

* tune new variable TerminalSupportsBold and TerminalSupportsHighIntensityColors

Browse Source 
for BeOS and Haiku.
  * BeOS : the terminal is very limited. Disabling both give best result.
  * Haiku : Haiku's terminal claims to be xterm but has it's own problems.

git-svn-id: trunk@13741 -
This commit is contained in:
olivier 2009-09-19 16:10:36 +00:00
parent 5c64c75dd7
commit 2e8a93da16
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/unix/video.pp
View File

@ -1116,14 +1116,24 @@ begin
cur_term_strings:=terminal_data[i]; cur_term_strings:=terminal_data[i];
if cur_term_strings=@term_codes_xterm then if cur_term_strings=@term_codes_xterm then
begin begin
{$ifdef haiku}
TerminalSupportsBold := true;
TerminalSupportsHighIntensityColors := false;
{$else}
TerminalSupportsBold := false; TerminalSupportsBold := false;
TerminalSupportsHighIntensityColors := true; TerminalSupportsHighIntensityColors := true;
{$endif}
end end
else else
begin begin
TerminalSupportsBold := true; TerminalSupportsBold := true;
TerminalSupportsHighIntensityColors := false; TerminalSupportsHighIntensityColors := false;
end; end;
if cur_term_strings=@term_codes_beos then
begin
TerminalSupportsBold := false;
TerminalSupportsHighIntensityColors := false;
end;
if cur_term_strings=@term_codes_freebsd then if cur_term_strings=@term_codes_freebsd then
console:=ttyFreeBSD; console:=ttyFreeBSD;
{$ifdef linux} {$ifdef linux}