Bei beiden Proceduren muss etwas fehlen. Mein Program hat Problem mit dieser procedure zum Beispiel: "procedure Rectangle(X1, Y1, X2, Y2: Integer); override;". Da fehlt schon noch irgendetwas, oder?
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;
Ist die Farbe 0 = Durchsichtig oder weiß? weil Übermalen hatten wir schon und statt der for-Schleife und Linienerzeugen, kann man auch einfach ein Rectangle zeichnen von oben links bis unten rechts
