Hi,
hier gehts nun weiter mit meinem Aquariumproblem ("Timer procedure zur Laufzeit zuweisen").
Es Funktioniert alles soweit, bis auf das erkennen eines Hindernisses vom Fisch.
Ich habe ein TImage mit einem Bild eines Aquariums.
Es ist blau mit einigen braunen hindernissen, an denen der Fisch seine RIchtung ändern soll.
Gibt es eine Möglichkeit an die Untergrundfarbe des FIsches ranzukommen?
Weil dann könnte ich ja den Fisch solange geradeausschwimmen lassen, bis sich der Untergrund ändert?

Danke schon einmal im vorraus...

LG


Moderiert von Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Fr 06.06.2008 um 19:04

du könntest entweder:

Form3.Canvas.Pixels(Fisch.Left+1,Fisch.Top-1)nehmen

oder du nutzt als Aquarium einfach verschiedene Bilder als Hindernisse, die dann aber zufällig im Aquarium verteilt werden.

dankeschön, mit canvas funktionierts so wie ich wollte
Inwiefern würde es denn mit funktionieren, wenn ich mir das Aquarium selbst neu bastel aus Shapes z.B.?

naja du suchst dir shapes aus die in dein Konzept passen. Dann kannst du immer mit
über Shape.Left und Shape.Top, SHape.Height und Shape.Width die Ränder abfragen, und die Position des Fischs auf die Shapes prüfen.

FinnO hat folgendes geschrieben:

naja du suchst dir shapes aus die in dein Konzept passen. Dann kannst du immer mit über Shape.Left und Shape.Top, SHape.Height und Shape.Width die Ränder abfragen, und die Position des Fischs auf die Shapes prüfen.

Dann hat er aber komplett rechteckige Hindernisse. Wenn du viel Zeit rein investieren willst, such mal nach KOLLISIONSABFRAGE PER PIXEL.

Dann checkst du, ob die umrandenden Rechtecke sich berühren und wenn ja, musst du genauer hinschauen(Kollisionsabfrage per Pixelmaske).

mfG,