GFX GetColor Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Liefert die aktuell gesetzte Zeichenfarbe zurück. Der Farbwert ist ein LongInt.

vgl. - SetColor - SetBkColor - GetBkColor

Deklaration

FUNCTION GetColor : LongInt;

Beispiel

PROGRAM Test;
USES GFX, Crt;
VAR Col : LongInt;
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 }
  Col := GetColor;              { wie war die gesetzte Farbe nochmal? }
  ReadKey;
END.

---