Forum: Multimedia
by turboPASCAL,
7. Dez 2008
Japp.
a)
procedure TForm1.FormCreate(Sender: TObject);
var
col, col2: tglbcollision;
begin
col := tglbcollision.Create(GLCube1.Behaviours);
col.BoundingMode := cbmCube;
Forum: Multimedia
by turboPASCAL,
7. Dez 2008
Entschuldige, ich hatte nur die Unit1.pas im Explorer stehen. Warum auch immer... alle Dateien sind da und es kann los gehen.
:wall:
Forum: Multimedia
by turboPASCAL,
7. Dez 2008
Hätte gern die *.dpr und die Form dazu, die Bilder's brauch ich nicht.
Ich kann sonst nicht den Debugger anwerfen denn ich werde nicht di efehlenden Teile dazubauen. ;)
Zur Not auch per PN.
Forum: Multimedia
by turboPASCAL,
7. Dez 2008
Kann man alles bekommen, sonst mag ich nicht debuggen. ;)
Forum: Multimedia
by turboPASCAL,
7. Dez 2008
Häng es mal an, nun will ichs wissen was fehlt...
Forum: Multimedia
by turboPASCAL,
7. Dez 2008
Man kann auch seine Beiträge editieren! ;)
Ich habe es mal gemacht, siehe Post #4.
Forum: Multimedia
by turboPASCAL,
7. Dez 2008
Nein, den hatte ich. ;)
Das OR nicht falsch wie von mir Behaupted.
Hast du den CollisionManager in OnProgress vom GLCadencer eingetragen ?
procedure TFormX.GLCadencerXProgress(Sender: TObject; const deltaTime,
newTime: Double);
begin
Forum: Multimedia
by turboPASCAL,
7. Dez 2008
Was mir sofort ins Auge fällt:
if ((Object1.Name='GLCube1') or (Object2.Name='GLCube1')) then
GLCube1 collidiiert mit sich selbet ? Und dann auch noch als "or" ?
Man würde doch sagen, collidiieren Objekt1 und Objekt2 ?
Also:
if ((Object1.Name='GLCube1') and (Object2.Name='GLCube2')) then