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!