DelphiX DrawAlpha ruckelt

[Flogo]

Tach Leutz
Ich hab versucht mit DrawAlpha zu faden:
http://www.delphipraxis.net/internal...ight=drawalpha
Aber leider geht die Geschwindigkeit dabei stark runter. Gibt es irgentne Möglichkeit das zu umgehen oder anders zu lösen
oder mach ich da was falsch:

Delphi-Quellcode:

procedure TMaskeItem.DoDraw;
begin
  Image.DrawAlpha(Engine.Surface, Bounds(Round(x), Round(y), Image.Width, Image.Height), 0, Alpha);
end;

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]

[phlux]

Hi!
Das mag daran liegen dass das ganze vllt nicht im Fullscreen läuft, das zieht nämlich ordentlich an der Performance!

[Flogo]

Hab ich auch schon versucht es wird zwar ein bisschen schneller aber ruckelt immer noch ziemlich! Gibts noch andere möglichkeiten??

[mimi]

DxTimer1.Interval:=0 ?
schon versucht?

[Flogo]

wusste gar nicht dass das geht, hilft aber auch nicht viel weiter es ruckelt immer noch. Es sind eigentlich nur kleinere bilder(100x50) kann es vielleicht sein dass ich noch was anderes beachten muss wenn ich den fadde mache??

Oder gibts vielleicht noch ne andere Möglichkeit einzelne Biler/Sprites zu faden, die nicht so rechenaufwendig ist?
(Es geht darum das Inventory bei einem Point-and-Klick-Adventure einzufaden, wenn man mit der Maus in die Nähe kommt)

[mimi]

update doch mal deine grafikkarten treiber.... kannst mir das programm ja mal senden..

PS:
werde dir ne pm senden... weil ich verraten meine mail adressen ungehernen wegen der spam gefahr...

[Ricane]

Moin,

Bei mir läuft das alles überhaupt nicht! Also die Grafik wird schon angezeigt, aber es wird kein Alpha Effekt gemacht.

Ich poste mal den Code, bis auf die Sachen, die nutzlos sind...

Delphi-Quellcode:

Unit Main;

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, JvGIF, DXClass, DXSprite, DXDraws;

Type
  TfrmMain = Class(TForm)
    DXDraw: TDXDraw;
    DXImageList1: TDXImageList;
    DXSpriteEngine1: TDXSpriteEngine;
    DXTimer1: TDXTimer;
    Procedure FormCreate(Sender: TObject);

    Procedure TilesErst();
    Procedure Bewegen();
    Procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
  Private
    { Private-Deklarationen }
  Public
    { Public-Deklarationen }
  End;

  TTiles = Class(TImageSprite)
  End;

Var
  frmMain: TfrmMain;
  Hintergrund, Hendrik, Jordt: TTiles;
  Alpha: Array[1..2] Of Integer;

Implementation

{$R *.dfm}

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;

Procedure TfrmMain.Bewegen();
Begin

  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
  Else
    Hendrik.X := Hendrik.X - 2;

End;

Procedure TfrmMain.DXTimer1Timer(Sender: TObject; LagCount: Integer);
Begin

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

  DXDraw.Flip;

End;

End.

Bin Ratlos... :(

[Flogo]

Damit du den Effekt siehst, musst du DoDraw des Sprites überschreiben.
Ungefähr so:

Delphi-Quellcode:

procedure TDeinSprite.DoDraw; 
begin 
  Image.DrawAlpha(Engine.Surface, Bounds(Round(x), Round(y), Image.Width, Image.Height), 0, Alpha); 
end;

[Ricane]

Mmhhhhhh.......

also ich hab das mal so gemacht, wie du das da gepostedt hast, aber das klappt auch nicht... muss es eigentlich so sein, das man die DoDraw Prozedur "von Hand" aufruft?

Ich hab das jetzt mal so gemacht

Delphi-Quellcode:

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

  DXDraw.Flip;

aber das klappt auch nicht... auch nicht, wenn ich den DoDraw Aufruf nach dem Fill mache... könnte ja sein, das er den Effekt quasi schwarz übermalt. Bringt aber auch nix.

Die DoDraw Prozedur wird natürlich aufgerufen und der Alpha Wert, wird auch jeweils immer erhöht. Daran liegt es also schon mal nicht...

Die DoDraw Proc. sieht jetzt so aus.

Delphi-Quellcode:

Procedure THendrik.DoDraw();
Begin

  Image.DrawAlpha(Engine.Surface, Bounds(Round(x), Round(y), Image.Width, Image.Height), 0, Alpha[1]);

End;

Verdammt, dabei hatte ich das schon mal geschafft, aber ich hab den Quellcode nicht mehr :wall:

[Neutral General]

Delphi-Quellcode:

Procedure THendrik.DoDraw();
Begin
  Image.DrawAlpha(Engine.Surface, Bounds(Round(x), Round(y), Image.Width, Image.Height), 0, Alpha[1]);
End;

Sollte Alpha nicht eine Variable sein die dann hoch- oder runtergezählt wird ?
So bleibt der Alphawert doch immer gleich... :gruebel:

[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! :gruebel:

[Flogo]

Zitat:

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