Thema: Delphi Andorra 2D Border

Einzelnen Beitrag anzeigen

Benutzerbild von XXcD
XXcD

Registriert seit: 19. Sep 2006
581 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Andorra 2D Border

  Alt 5. Aug 2008, 18:01
Hmm ich habs jetzt so:

Delphi-Quellcode:
    with Selected.Engine.Surface.Canvas do
begin
//Zeichnet eine weiße Linie von (0;0) zu (100;100).
Pen.Color := Ad_ARGB(255,255,255,255);
MoveTo(Selected.BoundsRect.Left,Selected.BoundsRect.Top);
LineTo(Selected.BoundsRect.Left,Selected.BoundsRect.Top+round(Selected.Height));
LineTo(Selected.BoundsRect.Left+round(Selected.width),Selected.BoundsRect.Top+round(Selected.Height));
LineTo(Selected.BoundsRect.Left+round(Selected.width),Selected.BoundsRect.Top);
LineTo(Selected.BoundsRect.Left,Selected.BoundsRect.Top);
end;
Aber wenn ich näher ran Zoome dann funktioniert das nicht mehr, dann ist das Rechteck zu groß.
Gibt keine Funktion die so einen Rahmen automatisch macht?

Edit:
Und wenn ich mein Sprite zu weit nach links ziehe dann sitzt das rechteck auch nicht mehr genau drauf sondern ein wenig nach rechts verschoben.
  Mit Zitat antworten Zitat