Paintbox Zeichnung löschen

[hathor]

Nicht optimiert, aber geht:

Delphi-Quellcode:

Procedure Bmp1Clear;
var i : Integer;
BEGIN
for i:= 0 to bmp1.Width do
BEGIN
 with Bmp1.Canvas  do
 Begin
 pen.color:= 0;
 moveto(i,bmp1.Height);  lineto(i,0);
 end;
END;
END;