Terminal wie mehr als 15 Farben verwenden?

[Dragon]

Frage steht ja schon oben drin gibs einen weg mehr als 15 farben im Terminal darzustellen?

Hab zwar schon versucht

Textcolor($FFFFFF) statt zb white zu verwenden der kompiler nimmt es auch an nur es kommt jede Farbe raus auser die die ich einstelle aber auch immer nur eine der 15 normalen farben hat jeman einen rat

[Dragon]

Hat den niemand eine idee wie ds gehn könnte

[MacWomble]

Nach meinem Kenntnisstand kann die Konsole nur 16 Farben in jeweils zwei Helligkeitsstufen - also 32 Farben.

https://wiki.ubuntuusers.de/dircolors

[Dragon]

Aber wenn man sich z.b. dieses screen mal ansieht

http://weechat.org/about/screenshots/we ... eavor.png/

läuft in der konsole hat aber ne menge farben mehr ist halt nur nicht in pascal geschrieben so weit ich weis

[Mathias]

Ich nehme mal an, du willst eine Konsolen-Anwendung mit der uses Crt schreiben.
Mit folgendem Code siehst du alle Kombinationen, die möglich sind.
Normalerweise 16 Textfarben und 8 Hintergrundfarben.

Code: Alles auswählen

program Project1;
uses
  Crt;
var
  i: Integer;
begin
  for i := 0 to 255 do begin
    TextAttr := i;
    Write('X');
  end;
end.

[Dragon]

Danke Mathias

Wenn es einen anderen weg als crt gibt würde ich diesen verwenden mir fehlen halt ein paar farben es ist nicht zwingend notwendig aber es wäre schöner noch andere farben zur auswahl zu haben

[Mathias]

... crt gibt würde ich diesen verwenden mir fehlen halt ein paar farben

Wieso nimmst du nicht den Grafikmodus ?

[Dragon]

wollte mal schauen was man alles mit der konsole so layout und styletechnisch alles hinbekommen kann als machbarkeitsstudie quasi und weil konsole only auch irg style hat wo grafik nicht unbedingt notwendig ist

[Mathias]

wollte mal schauen was man alles mit der konsole so layout und styletechnisch alles hinbekommen kann als machbarkeitsstudie quasi

Vielleicht interessiert es dir, wie man alle 256 ASCII-Zeichen ausgeben kann (Nur Windows-Konsole).

[Dragon]

Ich nutze ein linux system deswegen würde mir windows(cmd) ausgabe nichts bringen trotzdem danke

[Dragon]

Hab heute per zufall was gefunden

https://github.com/tangentstorm/xpl

Da ist ein beispiel programm mit drin und es funktionert es gibt 256 versch farben im CLI aus.

Habs getestet unter Linux klappt es wies unter anderen OS aussieht weiß ich net
denke aber es geht net weils xterm heißt das beispiel.

[af0815]

ANSI Escape Codes senden, je nach Terminal. Siehe auch https://en.m.wikipedia.org/wiki/ANSI_escape_code#Colors
Da sieht man auch in der Übersicht wo der Hund begraben liegt.

[BeniBela]

Vielleicht interessiert es jemanden, dass ich heute zufällig dies geschrieben habe:

Code: Alles auswählen

 
uses {$ifdef unix}termio{$endif};
type
     TMyConsoleColors = (ccNormal, ccRedBold, ccGreenBold, ccBlueBold, ccPurpleBold, ccYellowBold, ccCyanBold,
                                   ccRed, ccGreen, ccBlue, ccPurple, ccYellow
      );
var
    lastConsoleColor: TMyConsoleColors = ccNormal;
    isStderrTTY: boolean = false;
    isStdoutTTY: boolean = false;
 
procedure setTerminalColor(err: boolean; color: TMyConsoleColors);
{$ifdef unix}
const colorCodes: array[TMyConsoleColors] of string = (
   #27'[0m', #27'[1;31m', #27'[1;32m', #27'[1;34m', #27'[1;35m', #27'[1;33m', #27'[1;36m',
             #27'[0;31m', #27'[0;32m', #27'[0;34m', #27'[0;35m', #27'[0;33m'
   );
var
  f: TextFile;
{$endif}
{$ifdef windows}
const colorCodes: array[TMyConsoleColors] of integer = (
   FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_BLUE,
     FOREGROUND_RED or FOREGROUND_INTENSITY, FOREGROUND_GREEN or FOREGROUND_INTENSITY, FOREGROUND_BLUE or FOREGROUND_INTENSITY, FOREGROUND_RED or FOREGROUND_BLUE or FOREGROUND_INTENSITY, FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_INTENSITY, FOREGROUND_BLUE or FOREGROUND_GREEN or FOREGROUND_INTENSITY,
     FOREGROUND_RED, FOREGROUND_GREEN, FOREGROUND_BLUE, FOREGROUND_RED or FOREGROUND_BLUE, FOREGROUND_RED or FOREGROUND_GREEN
   );
var handle: Integer;
{$endif}
begin
  if err and not isStderrTTY then exit;
  if not err and not isStdoutTTY then exit;
  if color <> lastConsoleColor then begin
    if err then Flush(stderr) else flush(StdOut);
    {$ifdef unix}
    if err then f := stderr else f := stdout;
    write(f, colorCodes[color]);
    {$endif}
    {$ifdef windows}
    if err then handle := StdErrorHandle else handle := StdOutputHandle;
    SetConsoleTextAttribute(handle, colorCodes[color]);
    {$endif}
    lastConsoleColor := color;
  end;
end;
 
      {$ifdef unix}
      isStdoutTTY := IsATTY(stdout) <> 0;
      isStderrTTY := IsATTY(StdErr) <> 0;
      {$endif}
      {$ifdef windows}
      isStdoutTTY := getfiletype(StdOutputHandle) = FILE_TYPE_CHAR;
      isStderrTTY := getfiletype(StdErrorHandle) = FILE_TYPE_CHAR;
      {$endif}
 
 

auch wenn es nicht zum Titel passt (nicht mal 16 Farben)

[Achtzig]

Bin gerade dabei, etwas Farbe ins Terminal zu bringen und dabei auch über dieses Thema hier gestolpert.

Wie man mehr als 16 Farben verwenden kann, findet man dort:
http://misc.flogisoft.com/bash/tip_colors_and_formatting#colors1

Wird zwar nicht von allen Terminals unterstützt, aber zumindest von denen, die ich nutze

Code: Alles auswählen

WriteLn(#27'[38;5;82mHello '#27'[38;5;198mWorld'#27'[0m');