Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Kleines Pferdespiel

    Delphi
    by Blup, 18. Jan 2010
  TObjectList ist eine fertige Klasse die Delphi in der Unit "Contnrs" zur Verfügung stellt.
  
  Bitte selbständig weiterlesen.
  
  Erstellen in diesem Fall:
  
  Hindernisse := TObjectList.Create;
  Hindernisse.OwnsObjects := False; // da die Hindernisse vermutlich dem Formular gehören
• Forum: Multimedia

  Re: Kleines Pferdespiel

    Delphi
    by Blup, 7. Jan 2010
  Wenn eine Liste der Hinderniss vorliegt, brauchst du nur die Rechtecke auf Überschneidung zu prüfen.
  z.B. so:
  
  var
  Hindernisse: TObjectList;
  
  {...}
  Hindernisse := TObjectList.Create;
  Hindernisse.OwnsObjects := False;
  Hindernisse.Add(ImageHindernis1);
• Forum: Multimedia

  Re: Kleines Pferdespiel

    Delphi
    by Blup, 5. Jan 2010
  Wahrscheinlich handelt es sich um eine andere Version von TGIFImage die auch einen anderen Dateinamen "GIFImage" hat.
  Natürlich muss die tatsächlich verwendete Unit angegeben werden, bzw. stand bei dir schon drin.
  
  Versuchs dann so:
  
  var
  Options: TGIFDrawOptions;
  
  with ImagePferd.Picture do
  begin
• Forum: Multimedia

  Re: Kleines Pferdespiel

    Delphi
    by Blup, 5. Jan 2010
  Wie oft eine Gif-Animation abgespielt wird, steht in der Gif-Datei.
  Viele Einstellungen lassen sich aber nachträglich ändern.
  
  uses
  // im Abschnitt "uses" hinzufügen
  GIFImg;
  
  // nach dem Laden des Bildes einmal ausführen z.B. im FormCreate
  with ImagePferd.Picture do
  begin
• Forum: Multimedia

  Re: Kleines Pferdespiel

    Delphi
    by Blup, 4. Jan 2010
  Bitte benutze den Code-Tag, damit dein Quelltext lesbar bleibt.
  Die Position -1025 wird wahrscheinlich nie genau erreicht, da sich das Image in 10er-Schritten bewegt.
  
  procedure TForm1.Timer22Timer(Sender: TObject); --> Der Timer hat natürlich das gleiche Interval, wie die Sprünge
  begin
  // --> Der gleiche Abstand, indem auch die Sprünge bewegt werden.
  Image3.Left := Image3.Left - 10;...