22 lines
539 B
ObjectPascal
22 lines
539 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. Draw <20> Fill - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
uses GraphABC;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
Window.Title := 'Draw <20> Fill - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
for var i := 1 to 100 do
|
|||
|
|
begin
|
|||
|
|
Pen.Color := clRandom;
|
|||
|
|
var x := Random(Window.Width-100);
|
|||
|
|
var y := Random(Window.Height-100);
|
|||
|
|
DrawRectangle(x,y,x+Random(100),y+Random(100));
|
|||
|
|
Sleep(30);
|
|||
|
|
end;
|
|||
|
|
for var i := 1 to 100 do
|
|||
|
|
begin
|
|||
|
|
Brush.Color := clRandom;
|
|||
|
|
var x := Random(Window.Width-100);
|
|||
|
|
var y := Random(Window.Height-100);
|
|||
|
|
FillRectangle(x,y,x+Random(100),y+Random(100));
|
|||
|
|
Sleep(30);
|
|||
|
|
end;
|
|||
|
|
end.
|