Зарисовать BitMap одним цветом

[Kronos913]

Как зарисовать BitMap одним цветом? Есть ли для этого специальная команда? Или надо рисовать прямоугольник соразмерный изображению?

[macomics]

{ Способ встроенный в Delphi }
  with bmp do Canvas.FillRect(0, 0, Width, Height);
{ или через WinAPI}
  with bmp do PatBlt(Canvas.Handle, 0, 0, Width, Height, PATCOPY);

[macomics]

Кстати PatBlt при использовании PatternBrush может залить bitmap не только одним цветом, но и заданным узором/рисунком.