[Andorra2D] - DrawAlpha => keine Transparenz

[xZise]

Hi DP,

Ich will das Bild eines Sprites transparent darstellen, also habe ich die "Draw"-Peozedur von TImagesprite überschrieben und folgenden Code eingesetzt:

Delphi-Quellcode:

procedure .....Draw;
begin
  if (FVisible) and (Image <> nil) then
  begin
    if OverlapRect(Engine.SurfaceRect, BoundsRect) then
    begin
      Image.DrawAlpha(Engine.Surface, BoundsRect, Round(AnimPos), FTransparency);
    end;
    DoDraw;
  end;
end;

Ich habe ein Breakpoint reingesetzt und er führt es aus, zeichnet es aber immer Opac, egal ob ich 255 oder 0 angebe.
Immerhin zeichnet er, aber nicht richtig.

MfG
xZise

[xZise]

Kennt keiner eine Möglichkeit, warum das so ist?

[Neutral General]

TImageSpriteEx.Alpha?

[xZise]

Super, so funktionierts
Nur warum es nicht so funktioniert hat