Forum: Multimedia
Delphi
by arne99,
17. Mär 2005
Wollte es jetzt so machen:
procedure TForm1.Timer2Timer(Sender: TObject);
var schnittmenge, image1, image2: TRect;
begin
image1 := Rect(Image1.left,Image1.Top,
Image1.left+Image1.Width,Image1.Top+Image1.Height);
image2 := Rect(Image2.Left, Image2.Top,
Image2.Left+Image2.Width,Image2.Top+Image2.Height);
if intersectrect(Schnittmenge, image1, image2)...
Forum: Multimedia
Delphi
by arne99,
17. Mär 2005
Tut mir leid hab mich falsch ausgedrückt, es sind 2 Images, 2 Rechtecke also! Tut mir leid, wie gehts damit?
Edit: Habs gesehen...InsectRect...ich schau mal, danke sehr!
Forum: Multimedia
Delphi
by arne99,
17. Mär 2005
Naja Problem ist, dass der 2. Gegenstand (IMage2) sich ja waagerecht bewegt.
Und das andere Image bewegt sich ja nur nach unten. Somit muss er auftreffen, aber evtl. ja auch nicht 100% direkt auf die Eckpunkte sondern nur überschneidend...ein wenig verschoben, aber noch drauf.
Forum: Multimedia
Delphi
by arne99,
17. Mär 2005
Hallo, ich suche ganz dringend eine Abfrage (Befehl/Code) um herauszufinden, ob sich 2 Images verschiedener Größe überschneiden/treffen.
Beispiel: Ein Ball(Image1) trifft von oben herunter auf einen sich bewegenden Gegenstand (Image2)
Ich kann schlecht alle Koordinaten abfragen, gibt es dafür eine allg. Befehlsstruktur o.Ä.?
Bzw: Wie mach ich solch eine Abfrage?
Bitte schnell...