Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[igel457]

Dazu musst du dir eine Klasse von der Spriteengine ableiten und das Property "SurfaceRect" überschreiben:

Delphi-Quellcode:

type
  TMySpriteEngine = class(TSpriteEngine)
    private
      function GetSurfaceRect:TRect;
    public
      property SurfaceRect read GetSurfaceRect;
  end;

  function TMySpriteEngine.GetSurfaceRect:TRect;
  var r:TRect;
      w,h:integer;
  begin
    r := inherited SurfaceRect;
    w := r.Right - r.Left;
    h := r.Bottom - r.Top;
    result := Rect(r.Left-w * ZoomFaktor, r.Top - h  * ZoomFaktor, r.Right + w * ZoomFaktor, r.Bottom + h * ZoomFaktor);
  end;