GFX Bar Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Zeichnet einen gefülltes Rechteck mit der linken, oberen Ecke X1,Y1 und der rechten unteren Ecke X2,Y2 in der aktuell gesetzten Zeichenfarbe

vgl. - SetColor - Rectangle

Deklaration

PROCEDURE Bar(X1, Y1, X2, Y2 : Integer);

Beispiel

PROGRAM Test;
USES GFX, Crt;
VAR Col : LongInt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  SetColor($12FCD3);            { setze Zeichenfarbe auf mintgrün }
  Bar(200, 100, 400, 500);         
  ReadKey;
END.

---