GFX GetBkColor Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

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

vgl. - SetBkColor - SetColor - GetColor

Deklaration

FUNCTION GetBkColor : LongInt;

Beispiel

PROGRAM Test;
USES GFX, Crt;
VAR Col : LongInt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  SetBkColor($12FCD3);          { setze Hintergrundfarbe auf mintgrün }
  ClearActivePage;              { löscht Bildschirm mit aktueller Hintergrundfarbe }
  Col := GetBkColor;            { wie ist die Hintergrundfarbe? }
  ReadKey;
END.

---