canvas line löschen?

sauerkraut · Beiträge: 70

das wird per timer immer wieder aufgerufen, aber es bleiben immer rückstände der linien da, was ja eigentlich nicht sein kann! oO

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

canvas.MoveTo(oldxm, oldym);

Canvas.Pen.Mode := pmNotXor;

canvas.LineTo(oldx,oldy);

oldxm := Mouse.CursorPos.X-form1.Left;
oldym := Mouse.CursorPos.Y-form1.Top;

vertspeed := vertspeed+(oldym-ball.Top)/15;
sidespeed := sidespeed+(oldxm-ball.Left)/15;

canvas.MoveTo(oldxm, oldym);

oldx := ball.Left;
oldy := ball.Top;

canvas.LineTo(oldx, oldy);

Moderiert von Tino: Topic aus VCL (Visual Component Library) verschoben am Do 11.11.2004 um 17:02

bms · Verfasst: Do 11.11.04 18:40

Auf die Schnelle sehe ich keinen Fehler, auch wenn du viel unwichtiges in das Beispiel gepackt hast und so einem das Aussortieren unwichtiger Details aufgehalst hast.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Canvas.Pen.Mode := pmNotXor;
  
canvas.MoveTo(oldxm, oldym); canvas.LineTo(oldx,oldy);  
 
oldxm := Mouse.CursorPos.X-form1.Left;  
oldym := Mouse.CursorPos.Y-form1.Top;  
oldx := ball.Left;  
oldy := ball.Top;  

canvas.MoveTo(oldxm, oldym); canvas.LineTo(oldx, oldy);

_________________
VORSICHT: Ich behersche seit heute die Fünf-Finger-Handflächen-Herz-Explodier-Schlag-Kampf-Technik >

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme