TextColor für Delphi

[Neutral General]

Zitat von sakura:

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

......

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

Gruß
Michael

[Ultimator]

Du sollst ja auch shl und nicht shr verwenden

[Neutral General]

Zitat von Ultimator:

Du sollst ja auch shl und nicht shr verwenden

eh ups das war nur ein Kopier-Fehler..
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