GFX SetColor Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Setzt die aktuelle Zeichenfarbe. Der Farbwert ist ein LongInt.

vgl. - RGBtoLong - GetColor - SetBkColor - GetBkColor

Deklaration

PROCEDURE SetColor(Color : LongInt);

Beispiel

PROGRAM Test;
USES GFX, Crt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  SetColor($12FCD3);            { setze Zeichenfarbe auf mintgrün }
  Line(0, 0, GetMaxX, GetMaxY); { Diagonale auf den Bildschirm malen }
  ReadKey;
END.

---