In Konsole Farbe haben

[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