![]() |
Arbeiten mit einem Canvas
Hi, ich habe ein Canvas auf meiner Form, wie kann ich einstellen, dass per Buttonclick, das Canvas wieder an die Ursprungsposition zurückgeht?
|
Re: Arbeiten mit einem Timer
Was für einen Canvas? Canvas bezeichnet eine allgemeine Zeichenfläche. Das kan ein TImage, ein Bitmap oder die Form selber sein. Aber mal abgesehen davon gibt es da keine entsprechende Eigenschaft. Du musst die Koordinaten selber zurücksetzen.
Aber was hat das jetzt mit einem Timer zu tun? Ich bin leider kein Hellseher. |
Re: Arbeiten mit einem Canvas
So habe ich die Kugel programmiert, die soll wieder an den Anfang:
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
begin x:=20;y:=100; v_x:=20; v_y:=15; [21:41:24] Jonas: procedure TForm2.Timer1Timer(Sender: TObject); begin with image3.Canvas do begin brush.Color:=clwhite; pen.Color:=clwhite; image3.Width:=1057; image3.Height:=553; rectangle(0,0,image3.Width,image3.Height); brush.Color:=clred; pen.Color:=clred; [21:42:02] Jonas: x:=x+v_x; y:=y+v_y ; ellipse(x,y,x+10,y+10); end; |
Re: Arbeiten mit einem Canvas
Dann setze sie wieder auf die ursprüngliche Position.
|
Re: Arbeiten mit einem Canvas
Ja,aber mit welchem Befehl oder wie setzt man das wieder auf die ursprüngliche Position?
|
Re: Arbeiten mit einem Canvas
Kann es sein, dass du deinen eigenen Quellcode nicht verstanden hast? Du verschiebst die Ellipse auf dem Image. Die musst du nur auf die Ausgangsposition zurück setzen.
|
Re: Arbeiten mit einem Canvas
OT:
Zitat:
Zitat:
|
Re: Arbeiten mit einem Canvas
... zumal der obigen Quellcode nicht annährend funktionieren würde und sehr fragmenthaft vorliegt :roll: ein wenig mehr Anstrengungen sind erwünscht :zwinker:
|
Re: Arbeiten mit einem Canvas
Zitat:
|
Re: Arbeiten mit einem Canvas
Ja, das is nich mein Quelltext, ich hab die Frage für nen Klassenkameraden gestellt der hier nich angemeldet is, wollte hier aber nich die ganze Story erzählen :D
edit: ach ja, er hats nun hinbekommen, er dankt für die Hilfe. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:22 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz