DelphiX DrawAlpha ruckelt

[Ricane]

Ja, klar... das ist sie auch... denn in einer anderen Prozedur...

Delphi-Quellcode:

  If Hendrik.X < 10 Then
  Begin
    Alpha[1] := Alpha[1] + 2;
(*
    DXImageList1.Items.Find('Hendrik').DrawAlpha(DXDraw.Surface, Bounds(Round(
      Hendrik.X), Round(Hendrik.Y), Hendrik.Width, Hendrik.Height), 0,
        Alpha[1]);
*)
    Application.ProcessMessages;
    If Alpha[1] > 257 Then
      Alpha[1] := 0
  End;

wird sie es auch... klappt leider trotzdem nicht... langsam gehen mir auch die Ideen aus, was man noch testen könnte an diesem Code...

[Ricane]

Ich habe eben ne interessante Entdeckung gemacht... Wenn ich die SpriteEngine kommplett aus dem Programm entferne, klappt das ganze... Versteh ich aber gerade mal überhupt nicht!!

Wieso sollte die SpriteEngine den Effekt verhindern?! Bin total verwirrt!

[Flogo]

Zitat von Ricane:

muss es eigentlich so sein, das man die DoDraw Prozedur "von Hand" aufruft?

Nein! Dafür ist die Sprite Engine zuständig. Wenn du in einem Timer SpriteEngine.Draw aufrufst, musst du dich nicht mehr um das Zeichnen der Sprites kümmern. So wie du es oben gelöst hast wird doppelt gezeichnet.

[Ricane]

Aber wenn ich das so progge

Delphi-Quellcode:

Procedure TTiles.DoDraw();
Begin

  Image.DrawAlpha(Engine.Surface, Bounds(Round(
    Hendrik.X), Round(Hendrik.Y), Hendrik.Width, Hendrik.Height), 0,
    Alpha[1]);

End;

und dann so aufrufe...

Delphi-Quellcode:

  DXDraw.Surface.Fill(0);
  Bewegen;
  DXSpriteEngine1.Dead;
  DXSpriteEngine1.Draw;
  DXSpriteEngine1.Move(1);

  With DXDraw.Surface.Canvas Do
  Begin
    Brush.Color := clWhite;
    Font.Name := 'Tahoma';
    Font.Size := 8;
    Font.Color := clBlack;
    TextOut(5, 2, 'Alpha 1: ' + IntTOStr(Alpha[1]));
    Release;
  End;

  DXDraw.Flip;

Dann wird der DoDraw Block NIE erreicht!

[Flogo]

Wie sieht denn die Zeile aus, in der du dein Sprite erstellst?

[Ricane]

Kann man oben sehen, aber awrte ich poste es noch mal...

Delphi-Quellcode:

Procedure TfrmMain.FormCreate(Sender: TObject); 
Begin 

  TilesErst; 

End; 


Procedure TfrmMain.TilesErst(); 
Begin 

  Hendrik := TTiles.Create(frmMain.DXSpriteEngine1.Engine); 
  With Hendrik Do 
  Begin 
    X := 780; 
    Y := 82; 
    Z := 10; 
    Image := frmMain.DXImageList1.Items.Find('Hendrik'); 
    Width := Image.Width; 
    Height := Image.Height; 
    Visible := True; 
  End; 

End;

Denkst du der Fehler hängt da irgendwo mit drin?

[Flogo]

Sieht eigentlich richtig aus...
Kannst du dein ganzes Projekt mal raufladen?

[Ruppi]

überschreiben. also mit override.
DelphiX hab ich auch mal verwendet.
ist einfach viel zu langsam da es die
meisten Parameter nicht als const
übergibt, kaum mit pointern arbeitet
und DirectDraw (DirectX 7!!) verwendet.

DirectX Header von Ampaze nehmen
und selber SpriteEngine Programmieren
oder gleich mit Canvas ist BitBlt arbeiten
ist viel schneller als DelphiX

mfg Ruppi