anchor.diff:      procedure Forward();
       procedure Up();
       procedure Right();
  +
  +    function Equals(aVector: TelVector3i): Boolean;
       {$ENDIF}
     end;
   
  
positive.code:     function ToVector3i(): PelVector3i;
      function ToVector2f(): PelVector2f;
      function ToVector2i(): PelVector2i;
  
      // Operators (has to compliant to earlier Delphi versions)
      procedure Add(Vector: TelVector3f);
  
negative.code:      (aRect.Y <= (Self.Y + Self.H)) then Result := true else Result := false;
  end;
  
  function TelRect.GetAspectRatio(): Single;
  begin
    Result := W / H;
  end;
  
  function TelRect.IsWide(): Boolean;
  begin
    if GetAspectRatio > (4 / 3) then Result := true
    else Result := false;
  end;
  
  function TelRect.Equals(aRect: TelRect): Boolean;
  begin
    if (aRect.X = Self.X) and
       (aRect.Y = Self.Y) and
       (aRect.W = Self.W) and
       (aRect.H = Self.H) then Result := true else Result := false;
  end;
  
  function TelRect.IsEmpty(): Boolean;
  begin
    if ((X <> 0) and
        (Y <> 0) and
        (W > 0) and
        (H > 0)) then Result := false else Result := true;
  end;
  
  {$ELSE}
  
  function RectContainsVector(aRect: TelRect; aVector: TelVector2i): Boolean; {$IFDEF CAN_INLINE} inline; {$ENDIF}
  