Процедура Rectangle

Модуль Graph

Рисует прямоугольник.

Объявление:

  Procedure Rectangle(X1, Y1, X2, Y2 : Integer);
 

Режим: 

Замечания:
Точка с координатами (X1, Y1) - верхний левый, а точка с координатами (X2, Y2) - нижний правый угол прямоугольника. 0 <= X1 < X2 <= GetMaxX 0 <= Y1 < Y2 <= GetMaxY Рисует прямоугольник текущим типом и цветом линии, как было задано SetLineStyle и SetColor. Используйте процедуру SetWriteMode, чтобы определить, какую логическую операцию выполнять для каждой точки линий прямоугольника при их выводе на экран (MOV или XOR). Нужно быть в графическом режиме.

Пример:

 Uses Crt, Graph;
 
 Var GraphDriver, GraphMode : Integer;
     X0, Y0, X1, Y1, X2, Y2 : Integer;
 
 Begin
  GraphDriver:=Detect;
  InitGraph(GraphDriver, GraphMode, '');
  If GraphResult<> grOk Then Halt(1);
  X0:=GetMaxX;
  Y0:=GetMaxY;
  Randomize;
  Repeat
   X1:=Random(X0);
   Y1:=Random(Y0);
   X2:=Random(X0 - X1) + X1;
   Y2:=Random(Y0 - Y1) + Y1;
  Rectangle(X1, Y1, X2, Y2);
 Until KeyPressed;
 CloseGraph;
End.

См. также: