Предмет: Информатика,
автор: GreenIdiot99
Ребят, тут Паскаль АВС
Как закрасить эту фигуру градиентом от черного до белого?
Приложения:
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Биология,
автор: gerbakosta971
Предмет: История,
автор: masutenkokkirra
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: saprilana
Предмет: Алгебра,
автор: bushyak64