Ребят, тут Паскаль АВС Как закрасить эту фигуру градиентом от черного до белого?

Question

Ребят, тут Паскаль АВС
Как закрасить эту фигуру градиентом от черного до белого?

---

Comments

Добавьте код к вопросу.

---

+1 код в студию

Answer 1

Uses
    GraphABC;
begin
    Window.Init(0, 0, 300, 300, clWhite);
    window.CenterOnScreen();
    Pen.Color := clSilver;
    Pen.Width := 3;
    Brush.Style := bsGradient;
    Brush.Color := clBlack;
    Brush.GradientSecondColor := clWhite;
    Rectangle(50, 50, 250, 250);
end.