Image wieder blank machen

[Bastler]

einfach das Image wieder mit nem Recheck überzeichnen...

Also:

Delphi-Quellcode:

procedure image_blank;
var bc,pc:Tcolor;
begin
with Form1.Image1.canvas do
  begin
  pc:=Pen.Color;                               //alte Farben speichern
  bc:=Brush.Color;
  Pen.Color:=clwhite;
  Brush.Color:=clwhite;
  Rectangle(0,0,image1.Width, image1.Height);  //übermalen
  Pen.Color:=pc;                               //alte Farben wieder zuweisen
  Brush.Color:=bc;  
end;
end;

so würd ich's machen...