Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: PingPong

    Delphi
    by Khabarakh, 6. Mai 2005
  Schau dir doch noch einmal die Codestelle an:
  //Abprallen player1 und 2
  if
  (posx > (button2.left-30 ) + Button2.Width -40 )
  or
  (posx < Button1.Left + Button1.Width - 40)
  then
  begin
  if
  (posy < Button1.Top + Button1.Height )
• Forum: Multimedia

  Re: PingPong

    Delphi
    by Khabarakh, 6. Mai 2005
  Naja :wink: .
• Forum: Multimedia

  Re: PingPong

    Delphi
    by Khabarakh, 6. Mai 2005
  Nagut, aber bei so etwas verliert man doch den Überblick :wink: :
  //Ballkollision
  if (Abs(ball.Left - enemy.left) <= 5) and (Abs(ball.Top - enemy.Top) <= 5) then xspeed:= -xspeed;
  if (ball.top > player1.top -1-toleranz) and (ball.top < player1.top + player1.height +1+toleranz) and (ball.left = player1.left+player1.width) then xspeed := -xspeed;
  
  //Ballkollisions Ton
  if (Abs(ball.Left -...
• Forum: Multimedia

  Re: PingPong

    Delphi
    by Khabarakh, 6. Mai 2005
  Das meiste davon hat er doch schon, seine aktuelle Frage ist gar nicht enthalten, der Code ist unvollständig und über globale Variablen und Codeeinrückung will ich gar nichts sagen.
  
  :roll:
• Forum: Multimedia

  Re: PingPong

    Delphi
    by Khabarakh, 6. Mai 2005
  @Phobeus: ich denke auch, dass OpenGL für den Anfang etwas "overpowered" ist.
  
  @NoRiX:
  Die TBitmap-Variable muss zuerst einmal global (am besten im private-Teil der Form) deklariert sein, da wir sie ja nicht nur in einer Funktion brauchen:
  type
  TForm1 = ...
  private
  Bit: TBitmap;
  Da TBitmap keine Komponente ist, müssen wir die Instanz selbst erstellen und wieder freigeben. Im...
• Forum: Multimedia

  Re: PingPong

    Delphi
    by Khabarakh, 5. Mai 2005
  Nach etwas Einarbeiten mit TBitmap am besten nur noch auf Bitmaps zeichnen und diese im OnPaint in die Paintbox kopieren, dann ist der Sprung zur GR32-Lib auch nicht mehr weit :wink: .