2 DXTimer mit DelphiX!??

[Elite]

Im Übrigen lässt sich die Geschwindigkeit einer Animation auch mit AnimSpeed bei jedem einzelnen Sprite individuell einstellen.
*hofft, dass das kein sinnloser Kommentar war*

[Die Muhkuh]

Hi,

hier mal meine korrigierte Version:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DXClass, DXDraws, DXSprite, ExtCtrls;

type
  TForm1 = class(TForm)
    DXDraw1: TDXDraw;
    DXSpriteEngine1: TDXSpriteEngine;
    DXImageList1: TDXImageList;
    DXTimer1: TDXTimer;
    procedure FormCreate(Sender: TObject);
    procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TAnimation = class(TImageSprite)
  private
    vx, vy: Double;
  public
    constructor Create(AParent: TSprite); override;

    procedure DoMove(MoveCount: Integer); override;
  end;


var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TAnimation.Create(DXSpriteEngine1.Engine) do
  begin
    X := 0;
    Y := 0;
  end;
end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
  DXSpriteEngine1.Move(1);
  DXDraw1.Surface.Fill(0);
  DXSpriteEngine1.Draw;
  DXDraw1.Flip;
end;

{ TAnimation }

constructor TAnimation.Create(AParent: TSprite);
begin
  inherited;

  vX := 2;
  vY := 2;

  Image := Form1.DXImageList1.Items.Find('1');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := 4;
  AnimLooped := True;
  AnimSpeed := 24/100;
  AnimStart := 0;
end;

procedure TAnimation.DoMove(MoveCount: Integer);
begin
  inherited;

  if X <= 0 then
    vX := 2;

  if X >= Form1.DXDraw1.Width - Width then
    vX := - 2;

  if Y <= 0 then
    vY := 2;

  if Y >= Form1.DXDraw1.Height - Height then
    vY := - 2;

  X := X + vX;
  Y := Y + vY;
end;

end.

[theCOW]

Zitat:

Zitat von Spider

Hi,

hier mal meine korrigierte Version:

Delphi-Quellcode:

unit Unit1;

[....] 

end.

Ja, da komm ich erst hin beim Tutorial (ja ich we3iss, bin blutigster Anfänger ^^) aber trotzdem thx..

Ach und: ich wusste garnet das die Koordinaten Floats sind, thx, damit wären meine Probleme gelöst.

Kann jemand vielleicht mal den Quelltext eines komplizierteren Programmes posten (man lernt nie aus).

Wäre nett, weil dann köntt ich mal schauen wie das so gemacht ist (und ich meine nicht nur von den Animationen her =) )

In Tutorials ist das zwar ganz nett erklärt, aber es geht nichts über ein echtes Beispiel ^^



Danke im vorraus xD


mfg
theCOW

[Die Muhkuh]

Hi,

ich könnte dir jetzt mein Autorennen posten (ist auch in der Freeware-Sparte), aber das mach ich nicht :P

Wie es der Zufall so will, hab ich hier was. Nicht wundern das da
"Moin Airblader" drinne steht. Das hab ich mal für jemanden gemacht ;) Ist aber hilfreich

[Flogo]

Ich kann leider grad nichts posten (Ist noch nicht fertig :wink: ) würd mir an deiner Stelle aber auf jeden Fall die Demos von DelphiX mal durchschauen. Da ist glaub ich auch ein Spiel dabei.

[Die Muhkuh]

Zitat:

Zitat von Flogo

Ich kann leider grad nichts posten (Ist noch nicht fertig :wink: ) würd mir an deiner Stelle aber auf jeden Fall die Demos von DelphiX mal durchschauen. Da ist glaub ich auch ein Spiel dabei.

Hi Flo,

ich glaube kaum das du denn QuellCode von Anyxist (wenn du das meinst) rausgibst oder?

[theCOW]

Zitat:

Zitat von Flogo

Ich kann leider grad nichts posten (Ist noch nicht fertig :wink: ) würd mir an deiner Stelle aber auf jeden Fall die Demos von DelphiX mal durchschauen. Da ist glaub ich auch ein Spiel dabei.

Könntest du mir auch noch den Link geben ^^

@spider: Thx ^^, werds mir gleich mal anschauen.


Postet nur weiter alles, was hilfreich sein könnte (ich bin ja ausserdem nicht der einzige, dem sowas hilfreich sein kann ^^ )



Danke an alle Poster und alle, die noch posten ^^


mfg
theCOW

[theCOW]

@Spider:

Hab mir mal das Auto-Prog angeschaut ^^

Also, hat es etwas damit auf sich, das du die Definitionen auf verschiedene Units verteilt hast?
Ich mein..man könnte ja auch alles in ein Unit machen.
Oder ist es nur der Übersicht wegen? =)



Danke im voraus

mfg
theCOW

[Flogo]

Zitat:

Zitat von Spider

Hi Flo,

ich glaube kaum das du denn QuellCode von Anyxist (wenn du das meinst) rausgibst oder?

:hi:
Auf jeden Fall nicht in dem Zustand in dem er jetzt ist :freak: Wenn alles fertig ist und ich das ganze noch 3-4 mal optimiert, neugeschrieben und verbessert habe denke ich nochmal drüber nach.

@dieKuh:
Wie Link? Du hast dir doch DelphiX gezogen oder? In dem Verzeichnis von DelphiX ist ein Unterverzeichnis \Samples da sind die Demos drin. Bei UnDelphiX sind glaub ich noch viel mehr dabei. Die meisten sind ziemlich klein und erklären eine spezielle Komponente/Problem. Ich denk da ist auf jeden Fall was für dich dabei.

[Die Muhkuh]

Hi,

ist einfach nur für ne gute Übersicht. Ist glaub ich nicht so gut, wenn du alles in einer Unit hast. Da blickst du irgendwann nicht mehr durch. Aber mache wie es dir beliebt.