Du kannst einfach mittels FillRect die ganze Bitmap "ausmalen":
Delphi-Quellcode:
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.Width := Image1.Width;
Bmp.Height := Image1.Height;
Bmp.Canvas.FillRect(Image1.ClientRect); //oder Bmp.Canvas.FillRect(Rect(0, 0, Bmp.Width, Bmp.Height));
Image1.Picture.Bitmap.Assign(Bmp);
finally
Bmp.Free;
end;
end;
[Edit]Schutzblock hinzugefügt