[DelphiX] Animation bewegt sich nicht bzw B. wird nicht ang.

[Die Muhkuh]

Hi,

Delphi-Quellcode:

TAnimation = class(TImageSprite);

var
  Form1: TForm1;
  Animation : TAnimation;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Animation := TAnimation.Create(DXSpriteEngine1.Engine);
  Animation.Image := Form1.DXImageList1.Items.Find('1');
  Animation.X := 0;
  Animation.Y := 0;
  Animation.Width := Animation.Image.Width;
  Animation.Height := Animation.Image.Height;
  Animation.AnimCount := 5;
  Animation.AnimLooped := true;
  Animation.AnimSpeed := 20/1000;
  Animation.AnimStart := 0;
end;

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

So steht der Code im Tutorial drinne, aber bei mir tut sich nix. Ich hab alles richtig zugewießen, etc. Es kommt keine Fehlermeldung oder so. Das DXDraw bleibt einfach schwarz.

[elloco15]

Das problem hab ich auch, konnte es aber auch noch nicht lösen. kann hier niemand helfen?


Hab gerade in nem anderen tread gelesen woran es liegen könnte

http://www.delphipraxis.net/internal...ight=animation

du hast warscheinlich auch nur die imagelist auf dxdraw zugewiesen und nicht die engine, steht auch nicht im tut.

im OI der engine musst du bei DXDraw, DXDraw1 eintragen.

ich hoffe dass es das war.

[Bowler]

Hi,

hast du auch die PatternHeight und PatternWidth der Grafiken richtig eingestellt? Das Sind Eigenschaften der Elemente der ImageList und können per Code oder im OI eingestellt werden.

Gruß

[Die Muhkuh]

Hi Bowler,

das problem hab ich schon lange nimmer ;). Ich weiß leider nicht mehr an was es gelegen hatte.