In Konsole Farbe haben

[A-M-X]

Huhu!!

Hab 2 fragen:

1. Wie schreibe ich eine Line (WriteLN) und mache den TEXT Farbig?
2. Wie schreibe ich eine Line (WriteLN) und mache die LINIE farbig (Also den Hintergrund des Textes)?

[Union]

Du könntest ANSI.SYS laden und dann den Text mit Esc Sequencen entsprechend steuern.

[A-M-X]

äh geht das auch einfacher ? ^^"

[turboPASCAL]

Delphi-Quellcode:

// Textfarbe in Konsolenanwendung setzen
SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), TextAttr);

Beispiel:

TextAttr = Werte von 1 .. 15, Werte über 15 setzen die Hintergr.-Farbe + Textfarbe

[ripper8472]

mit winapi funktionen

[A-M-X]

Zitat:

Zitat von turboPASCAL

Delphi-Quellcode:

SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), TextAttr);

TextAttr = Werte von 1 .. 15

das hab ich gesucht! und wie geht der hintergrund? ^^

[turboPASCAL]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, windows;

begin
   //Textfarbe
   SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 1);
   writeln('Hallo');

   //Hintergrundfarbe  ( Hintergr.Farbe  +  Textfarbe )
   SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 64  +   15);
   writeln('Hallo');

   readln;
end.

[A-M-X]

Cool Danke! Hab alles gefunden bzw hab alle tipps und tricks bekommen , die ich suchte. thx!! :thumb: :thumb:

[hedie]

Wie kann man da die Hintergrundfarbe der Konsole Selbst ändern?

Und gibt es auch irgendwo eine Tabelle, wo man sieht welche zahl welche Farbe is?

Danke schomla :D

[Namenloser]

Hallo,
dafür hatte ich mal eine Unit *grab* :gruebel: . Jep, das ist sie. Hoffe, das hilft.