Andorra 2D Border

[XXcD]

Ich hab jetzt ne Lösung gefunden:

Delphi-Quellcode:

procedure TTexture.DoDraw;
begin
  if (Selected <> nil) and (Selected is TTexture) then
   begin
     with Engine.Surface.Canvas do
     begin
       Rectangle(BoundsRect);
       Release;
     end;
  end;
 inherited DoDraw;
end;

Das Problem ist der Rahmen wird nicht richtig gezeichnet.
Z.b. wird nur am linken rand ne weiße Linie gezeichnet und wenn ich dann das ganze bild ein wenig bewege dann wird es kommplett angezeigt.
Und noch nen Stückchen bewegen und es wird nur am rechten rand ne Linie angezeigt.

Ich bewege mich durch die Welt so:

Delphi-Quellcode:

var
  p:TAdPoint;
begin
  if ssLeft in Shift then
  begin
begin
    p := AdSpriteEngine.ScreenPointToSpriteCoords(AdPoint(X,Y));
    AdSpriteEngine.X := AdSpriteEngine.X + p.x - lx;
    AdSpriteEngine.Y := AdSpriteEngine.Y + p.y - ly;
    Edit1.Text:=inttostr(round(AdSpriteEngine.X));
    Edit2.Text:=inttostr(round(AdSpriteEngine.Y));
    Lx := p.x;
    Ly := p.y;
end;
end;