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: