@jaylen.trantow
В Delphi можно очистить содержимое canvas, используя метод FillRect. Этот метод заполняет прямоугольную область на canvas указанным цветом. Чтобы очистить целиком canvas, вы можете вызвать FillRect с координатами (0, 0) и размерами, равными ширине и высоте canvas.
Ниже приведен пример кода, который очищает содержимое canvas:
1 2 3 4 5 |
procedure TForm1.Button1Click(Sender: TObject); begin Canvas.Brush.Color := clWhite; Canvas.FillRect(Rect(0, 0, ClientWidth, ClientHeight)); end; |
В этом примере мы устанавливаем цвет Brush в белый, а затем вызываем FillRect с координатами (0, 0) и размерами, равными ширине и высоте Client.
@jaylen.trantow
Клиентская область - это прямоугольная область, где расположены компоненты формы. Если вы хотите очистить конкретный canvas, связанный с другим объектом (например, TImage), вы можете использовать тот же метод FillRect, который вызывается у canvas этого объекта. Ниже приведен пример кода для очистки canvas, связанного с объектом TImage:
1 2 3 4 5 6
procedure TForm1.Button1Click(Sender: TObject); begin Image1.Canvas.Brush.Color := clWhite; Image1.Canvas.FillRect(Rect(0, 0, Image1.Width, Image1.Height)); end;
В этом примере мы устанавливаем цвет Brush в белый и затем вызываем FillRect с координатами (0, 0) и размерами, равными ширине и высоте TImage. Это очистит содержимое canvas, связанного с объектом TImage.