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.

[hedie]

Cool

Danke

werd ich mir mal ansehen :D

[PaddyL]

Ich glaub in Hex wäre es einfacher:

Code:

FF
 ||
 |+-> Vordergrund-Farbe
 +--> Hintergrund-Farbe

So ist das zumindest im Lowlevel Bereich, wenn man den Textpuffer des BIOS direkt anspricht.

[Muetze1]

Zitat:

Zitat von PaddyL

Ich glaub in Hex wäre es einfacher:

Code:

FF
 ||
 |+-> Vordergrund-Farbe
 +--> Hintergrund-Farbe

So ist das zumindest im Lowlevel Bereich, wenn man den Textpuffer des BIOS direkt anspricht.

Die WinAPI Funktion hälts genauso...

[turboPASCAL]

Zitat:

Zitat von hedie

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

Jupp. 19XX by tP ;)

[dominikkv]

Zitat:

Zitat von turboPASCAL

Zitat:

Zitat von hedie

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

Jupp. 19XX by tP ;)

Zitat:

---------------------------
Nicht unterstützte 16 Bit-Anwendung
---------------------------
Das Programm bzw. die Funktion "\??\C:\Users\Dominik\AppData\Roaming\Opera\Opera\ profile\cache4\temporary_download\FARBTAB.EXE" kann aufgrund einer Inkompatibilität mit 64 Bit-Versionen von Windows nicht gestartet bzw. ausgeführt werden. Wenden Sie sich an den Softwarehersteller, um zu erfahren, ob eine mit 64 Bit-Windows kompatible Version verfügbar ist.


---------------------------
OK
---------------------------

[turboPASCAL]

@dominikkv, tja, eine echte 16-Bit Anwendung mit Turbo Pascal 5.0 ala tP. ;)

[hedie]

Und wie genau kann ich nun deine Crt32.pas anwenden?

Hab die mal bei den Uses reingetan

[turboPASCAL]

Methode 1:
Die Delphipraxis Suche nutzen. crt32

Methode 2:
Nach Lust und Laune "Googln".

Methode 3:
Programme angucken die diese Unit verwenden.

Methode 4:
Diese Proceduren mal genauer ansehen:
procedure TextColor(Color: Byte);
procedure TextBackground(Color: Byte);

oder:

function _TextAttr(const Color: Smallint = -1): Byte;

(falls vorhanden)


Tipp:
Das Programm ist mit der Unit Crt32.pas gemacht ->
http://www.delphipraxis.net/internal...=622351#622351

@dominikkv, extra für Dir:

[Namenloser]

Delphi-Quellcode:

TextColor(Green);
TextBackground(Red);
Write{Ln}('Grün auf Rot beißt sich');

Die Farbkonstanten stehen in der Unit.

[hedie]

Ja Danke...

Hab ich bereits

Aber ich wollte den Hintergrund der Konsole ändern....

Hab inzwischen die Lösung

Delphi-Quellcode:

  repeat
  GotoXY(1,i);
  Insline;
  i:=i+1;
  until i=25;

Is zwar nicht perfekt aber besser als nix :D

[Namenloser]

Setze doch einach eine Hintergrundfarbe und führe dann ClrScr aus.

[hedie]

Gibts auch noch ne möglichkeit, die Konsole in Fullscreen zu setzen?

[Namenloser]

Kanns zufällig sein, dass du nen Bluescreen nachbauen willst? -.-

Wenn ja, kannste auch eifnach die Bildschirmauflösung auf 640*480 heruntersetzen und eins der vielen Bluescreen-Screenshots von Google auf den Bildschirm zeichnen... :roll:

[PaddyL]

Zitat:

Zitat von hedie

Gibts auch noch ne möglichkeit, die Konsole in Fullscreen zu setzen?

Rechtsklick auf die Titelbar -> Properties -> unter "Display Options" -> [x] "Fullscreen"
Ob das auch per Command geht weiß ich allerdings nicht.

[hedie]

Danke...

Nee Bluescreen Solls nicht werden.. :D Aber danke für den Tipp