Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Arbeiten mit einem Canvas (https://www.delphipraxis.net/145981-arbeiten-mit-einem-canvas.html)

R4c0N 11. Jan 2010 20:35


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?

Luckie 11. Jan 2010 20:38

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.

R4c0N 11. Jan 2010 20:42

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;

Luckie 11. Jan 2010 20:44

Re: Arbeiten mit einem Canvas
 
Dann setze sie wieder auf die ursprüngliche Position.

R4c0N 11. Jan 2010 20:45

Re: Arbeiten mit einem Canvas
 
Ja,aber mit welchem Befehl oder wie setzt man das wieder auf die ursprüngliche Position?

Luckie 11. Jan 2010 20:49

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.

Matze 11. Jan 2010 21:07

Re: Arbeiten mit einem Canvas
 
OT:
Zitat:

Zitat von Luckie
Kann es sein, dass du deinen eigenen Quellcode nicht verstanden hast? [...]

Zitat:

Zitat von R4c0N
Delphi-Quellcode:
[21:41:24] Jonas: procedure TForm2.Timer1Timer(Sender: TObject);
[...]

Das ist wohl nicht sein eigener Quelltext sondern - ich vermute es - 1:1 ohne zu Überlegen kopiert.

s.h.a.r.k 11. Jan 2010 21:12

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:

alleinherrscher 11. Jan 2010 21:13

Re: Arbeiten mit einem Canvas
 
Zitat:

Zitat von R4c0N
[21:41:24] Jonas:

OT: Also da gehört schon was zu, sooo blind zu kopieren, dass man noch den Chatlog mit ins Delphi Programm kopiert - Der Compiler- und sein Lehrer werden sich freuen ;-)

R4c0N 11. Jan 2010 21:13

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 02:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz