Delphi Problem bei Pong Programmierung

Thema durchsuchen

Ansicht

Themen-Optionen

Problem bei Pong Programmierung

Ein Thema von Andi28 · begonnen am 6. Okt 2008 · letzter Beitrag vom 7. Okt 2008

Vorheriger Beitrag

Nächster Beitrag

Corpsman

Registriert seit: 8. Nov 2005
Ort: nähe Stuttgart
981 Beiträge

Delphi XE2 Professional

Re: Problem bei Pong Programmierung

7. Okt 2008, 06:06

Ho das

if PointInCircle(Point(0,0), Point(Shape1.left, Shape1.Top), 50) then ist sowieso falsch

richtig wäre

if PointInCircle(Point(0,0), Point(Shape1.left + shape1.width div 2, Shape1.Top+ shape1.height div 2), 50) then Du brauchst 2 Punkt als übergabe

1. Kollisionspunkt
2. Mittelpunkt des Kreises
die 50 ist der Radius also auch wieder shape1.width div 2 weil dein shape hoffentlich qaudratisch ist.

Uwe
My Site