14 lines
369 B
ObjectPascal
14 lines
369 B
ObjectPascal
// Ăđŕôčęŕ. Ńâîéńňâŕ ęčńňč č ďĺđŕ
|
|
uses GraphABC;
|
|
|
|
begin
|
|
Window.Title := 'Ńâîéńňâŕ ęčńňč č ďĺđŕ';
|
|
Pen.Color := Color.Red;
|
|
Pen.Width := 3;
|
|
Pen.Style := psDashDot;
|
|
Brush.Style := bsHatch;
|
|
Brush.Color := Color.Green;
|
|
Brush.Hatch := bhDiagonalBrick;
|
|
Brush.HatchBackgroundColor := Color.Bisque;
|
|
Rectangle(20, 20, Window.Width - 20, Window.Height - 20);
|
|
end. |