Paintbox Zeichnung löschen

[Muetze1]

Zitat von ferby:

Delphi-Quellcode:

bm.Canvas.Brush.Color:=clblue;
bm.Canvas.Fillrect(bm.Canvas.ClipRect);

Das ist nicht ok - weil ClipRect den neu zu zeichnenden Bereich des Canvas angibt und dieses ist auch öfters kleiner als die Paintbox selber. Z.b. wenn du nur eine Ecke eines Fensters auf deine PaintBox schiebst und dann wieder wegbewegst oder minimierst. Nutze lieber bm.BoundsRect.

[beastofchaos]

Das Thema ist vll sehr alt, aber das Problem ist das selbe.
Ich arbeite mit Delphi 7 und will für mein MSA-Referat in Informatik (bin Schüler) mit meinem Freund ein Minigolfprogramm bauen.

Mein Ziel ist es, zur Richtung- und Geschwindigkeitsberechnung eine Linie von der Maus zur Kugel zu erzeugen. Bisher hab ich immer mit einem image gearbeitet. Jetzt versuch ich es, wegen besserer Handhabung mit Bitmap und Paintbox. Bei image gab es den Befehl "image.picture:=Nil;". Gibnt es wirklich keinen Befehl heutzutage, der das auch mit einer Bitmap/Paintbos macht?
Hier mal der Quelltext:

Delphi-Quellcode:

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if not Timer1.Enabled then begin
bmp.Canvas.Pen.Color:=ClWhite;
bmp.Canvas.brush.Color:=ClWhite;
bmp.Canvas.MoveTo(trunc(d-PaintBox1.Left),trunc(e-PaintBox1.top));
bmp.Canvas.LineTo(Maus.x,Maus.y);
PaintBox1.Repaint;
bmp.Canvas.Brush.Color:=clBlue;
bmp.Canvas.Pen.Color:=ClBlack;
Maus:=PaintBox1.ScreentoClient(Mouse.CursorPos);
d:=(x1+x2)/2;
e:=(y1+y2)/2;
bmp.Canvas.MoveTo(trunc(d-PaintBox1.Left),trunc(e-PaintBox1.top));
bmp.Canvas.LineTo(Maus.x,Maus.y);
bmp.Canvas.Ellipse(x1,y1,x2,y2);
PaintBox1.Repaint;
end;
end;

Wie ihr seht, übermalt er mit Weiß die alte Linie und berechnet die neue. Leider blinkt die Linie imemr wieder und auch ein kleiner Teil in der Kugel (auch in Paintbox gezeichnet). Die Kugel ist innen Blau und dauernd geht halt ein weißer Strich über eine bestimmte Stelle. Könnt euch das auch mal selbst anschauen, hier eine Zip-Satei mit allen Dateien: http://rapidshare.com/files/439357797/Test.zip

[Bummi]

Ales was in einer Paintbox gemalt wir wird im OnPaint gemalt, dies ist im Idealfall ein Offscreenbitmap.
Das Malen kann mit Paintbox1.invalidate ausgelöst werden.

[beastofchaos]

Ich male mit Paintbox1.Repaint statt invalidate und funktioniert Frage ist ja eher, ob es einen Befehl gibt, der vll so aussieht: PaintBox1.Clear;
Wenn ich Paintbox1:=Nil mache, kommt während dem Programm (gleich wenn eine MouseMove-prozedur erzeugt wird) eine Fehlermeldung.

Vll gibt es statt Löschen oder Überzeichnen noch eine Lösung, mit der ich eine einzige akkutalisierende Linie zwischen Linie und Kugel habe.

[Bummi]

wenn Du invalidate aufrufst und im OnPaint nichts gemalt wird, ist die Paintbox doch leer

[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;

[himitsu]

TCanvas.FillRect oder TCanvas.Rectangle

[beastofchaos]

Zitat von Bummi:

wenn Du invalidate aufrufst und im OnPaint nichts gemalt wird, ist die Paintbox doch leer

Mein Problem liegt wirklich zwischen/in den Ohren(hier wohl eher in den Augen) xD Ich dachte invalidate ist ein andere Befehl für Repaint... Hab mal bei leo.org invalidate nachgeguckt und versteh, dass es es annulliert



edit1: So Leute, saß heute 5 Stunden dran und habs nicht hinbekommen. War den ganzen Abend weg, komm wieder und es funktioniert. Weiß auch wie jetzt :p
In meinem MouseMove-Ereignis hat er ja erst die alte Linie übermalt "Repaint" ausgeführt. die neue gezeichnet und nochmal "Repaint" gemacht. Wenn ich das erste weglasse, ist auch das Blinken weg. Ich brauche nämlich einfach nur in der Bitmap die alte Linie übermalen ( nicht in der Paintbox zusätzlich, da die sowieso jedesmal die Bitmap neuzeichnet ).