TextColor für Delphi

[Neutral General]

Zitat:

Zitat von sakura

P.S.: Alles mit 2 Minuten Googeln erledigt. (VB Source nach Delphi portiert und fertig!)

...:cat:...

:oops:

Aber vielen vielen Dank :)
Du hast mir sehr geholfen (und meinen Mit-Informatikern in der Schule^^) ;)

EDIT: Ich war die Farbwerte grad mühsam am ausprobieren^^

Noch ein kleines Problem:

Delphi-Quellcode:

procedure TextBackground(Color: Byte);
begin
 SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), Color shr 4);
end;

Das funktioniert irgendwie nicht. Es wird keine Hintergrundfarbe angezeigt.. Naja außer schwarz vielleicht :mrgreen:

Gruß
Michael

[Ultimator]

Du sollst ja auch shl und nicht shr verwenden ;)

[Neutral General]

Zitat:

Zitat von Ultimator

Du sollst ja auch shl und nicht shr verwenden ;)

eh ups das war nur ein Kopier-Fehler.. :oops:
Habs zuerst mit shl probiert und als das nicht ging mit shr und als das nicht ging hab ich mein Problem gepostet und da war noch shr im Quelltext :mrgreen: