Как быстро очистить канву 2

Delphi , Графика и Игры , Canvas

  Canvas.Brush.Color := ClWhite;
  Canvas.FillRect(Canvas.ClipRect);

Here's the translation of the text into Russian:

Программный код, представленный ниже, является простым способом очистки холста в Delphi, заполнив его белым цветом (или любым другим цветом, указанным ClWhite). Вот разбивка каждого из строк кода:

1. Canvas.Brush.Color := ClWhite;
   • Устанавливает цвет кисти в белый (ClWhite - константа, определенная в модуле cl, представляющая собой цвет белый).
2. Canvas.FillRect(Canvas.ClipRect);
   • Заполняет холст текущим цветом кисти (в этом случае, белым) с помощью метода FillRect.
   • Свойство ClipRect возвращает прямоугольник, определяющий область рисования для холста.

Выполнение этих двух строк кода заполняет весь холст белым, эффективно очищая его.

Если вам нужно очистить холст другим цветом или заливкой, просто измените цвет кисти и/или используйте другие методы заливки, доступные в классе Canvas Delphi.

Например, если вы хотите очистить холст синим цветом:

Canvas.Brush.Color  := clBlue;
Canvas.FillRect(Canvas.ClipRect);

Или, если вы хотите заполнить холст заливкой:

var
  Gradient: TGradientBrush;

Gradient  := TGradientBrush.Create;
Gradient.ColorFrom  := clRed;  // начальный цвет
Gradient.ColorTo  := clBlue;  // конечный цвет
Gradient.SpreadMethod  := gmLinear;  // линейная заливка

Canvas.Brush  := Gradient;
Canvas.FillRect(Canvas.ClipRect);

Вот несколько примеров, как можно модифицировать код очистки холста для достижения различных визуальных эффектов.

Для быстрого очищения канвы в Delphi необходимо установить цвет кисти в белый и выполнить заполнение прямоугольника с помощью метода FillRect.

Комментарии и вопросы

:: Главная :: Canvas ::