Wenn zwei Images "aufeinandertreffen" -> Timer ausschalten

Ehemaliges Mitglied Erhaltene Danke: 1

Ich werfe dann mal IntersectRect in den Raum.

Delphi-Quelltext

1:
2:
3:
4:
5:

function RectsTouching(const Rect1, Rect2: TRect): Boolean;
var dummy: TRect;
begin
  Result := IntersectRect(dummy,Rect1,Rect2);
end;

Waldkauz · Beiträge: 102

SvenAbeln hat folgendes geschrieben :

markieren

Delphi-Quelltext

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

function CheckCollision(FirstImage, SecondImage: TImage): boolean;
var
  FirstImgRect, SecondImgRect: TRect;
begin
  FirstImgRect := FirstImage.BoundsRect;
  SecondImgRect := SecondImage.BoundsRect;

  Result := (FirstImgRect.Left <= [b]SecondImageRect[/b].Right) and (FirstImgRect.Right>= SecondImageRect.Left)
        and (FirstImgRect.Top) <= [b]SecondImageRect[/b].Bottom) and (FirstImgRect.Bottom >= SecondImageRect.Top);
end;

Dies erkennt auch, wenn ein Bild komplett in dem Anderen liegt.

danke, aber irgendwo ist da ein Fehler. Mit dem End oder mit den Klammern stimmt was nicht, aber ich komm nicht drauf...(den Fehler, dass du "SecondImageRect" statt "SecondImgRect" geschrieben hast, hab ich schon verbessert)

---Moderiert von Narses: Beiträge zusammengefasst---

War nur ein kleiner Klammerfehler.
Kann man diese Funktion auch für ein Image und ein Shape verwenden?

Ehemaliges Mitglied Erhaltene Danke: 1

Wenn man die Parameter etwas ändert und gleich die Rects übergibt, wieso nicht?

Waldkauz · Beiträge: 102

DeddyH hat folgendes geschrieben :

Wenn man die Parameter etwas ändert und gleich die Rects übergibt, wieso nicht?

wie denn?

Ehemaliges Mitglied Erhaltene Danke: 1

Ich nehm jetzt mal meine Funktion von oben, weil die kürzer ist:

markieren

Delphi-Quelltext

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

function RectsTouching(const Rect1, Rect2: TRect): Boolean;
var dummy: TRect;
begin
  Result := IntersectRect(dummy,Rect1,Rect2);
end;

procedure TFormMain.Irgendwas;
begin
  if RectsTouching(MyShape.BoundsRect, MyImage.BoundsRect) then
    ShowMessage('Kollision');
end;

Analog würde das natürlich auch mit der anderen Funktion funktionieren, wenn man die entsprechend umstellt.

Waldkauz · Beiträge: 102

Super, thx!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme