Hallo,
vorab: Wenn ich richtig informiert bin, kann ich, wenn ich den XOR-Zeichenmodus verwende, auf ein ständiges Löschen (z.B. eines Objekts durch Einfärben mit der Hintergrundfarbe) verzichten. Auf dieser Basis möchte ich nun einen Kreis über ein Formular wandern lassen, aber es klappt nicht so richtig. Hier mal ein wenig Code:
Delphi-Quellcode:
procedure TForm1.DrawCircle;
begin
Canvas.Ellipse(x-Radius, 100-Radius, x+Radius, 100+Radius);
Inc(x, 10)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Canvas.Brush.Style := bsClear;
Canvas.Pen.Mode := pmXOR;
Canvas.Pen.Color := clBlack or clBtnFace
end;
procedure TForm1.TimerTimer(Sender: TObject);
begin
DrawCircle
end;
Die Variablen
x und
Radius werden global deklariert und gleich initialisiert.
Ich weiß nicht, woran es liegt und ob es so überhaupt funktioniert, aber ich brauche eine Alternative zu dem konventionellen Löschen, welches ich oben erklärt habe.
mfg.