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

    question img

Ответы 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.
    • Автор:

      skyeo1yd
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years