Canvas Color-Collision

[raysto]

Hallo,
ich habe grade ein neues Projekt erstellt und habe mir ein Image erstellt (Player) und wollte direkt mal eine Kollision ausprobieren die ich woanders schonmal genauso gesehen habe:

Delphi-Quellcode:

  if (Player.Canvas.Pixels[Player.Left,Player.Top] = clblack) then
  begin
    showmessage('Bla');
  end;

Diese Abfrage ist in einem Timer und nebenbei lasse ich den Player immer 2 Pixel runterbewegen. Wenn mein Bild dann in ein riesiges schwarzes Feld kommt, passiert einfach nichts... :| Kann mir da jemand sagen warum?

[DeddyH]

Du fragst ab, ob die Zeichenfläche des Players an seinen eigenen Koordinaten weiß ist. Solange Du seine Farbe nicht während der Bewegung änderst, dürfte diese Bedingung niemals zutreffen.

[raysto]

Meinte in der Bedinung eigentlich clblack :roll: sorry :D Aber ich weiß nicht ganz was du meinst...

[DeddyH]

Ich meine, Du greifst auf den falschen Canvas zu, für Deine Logik müsste man ja den der Komponente, auf der der Player bewegt wird, abfragen. Evtl. wäre es ohnehin besser, keine Pixel mit einer Farbe zu vergleichen, sondern sich Rechtecke oder andere Formen zu merken und auf Überschneidung zu prüfen (z.B. mit IntersectRect).

[raysto]

Oh ja, hab jetzt meinen Fehler entdeckt :) Und ja, wahrscheinlich werde ich die Kollision eh nochmal komplett umbauen, aber danke für die Hilfe :)