GFX GetPixel Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Liefert die Farbe des Bildpunkts an den Koordinaten X und Y zurück.

vgl. - PutPixel

Deklaration

FUNCTION GetPixel(X, Y : Integer) : LongInt;

Beispiel

PROGRAM Test;
USES GFX, Crt;
VAR  Col : LongInt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  PutPixel(GetMaxX DIV 2, GetMaxY DIV 2, $12FCD3); { mintgrünen Punkt in die Bildschirmmitte malen }
  Col := GetPixel(GetMaxX DIV 2, GetMaxY DIV 2); { Col hat nun den Wert $12FCD3 }
  ReadKey;
END.

---