Question

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

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.