anchor.diff:      Exit;
     End;
   
  -  I := StringCharPosReverse(Ord('@'), Name);
  -  If (I>0) Then
  -  Begin
  -    FontName := Copy(Name, 1, Pred(I));
  -    S := Copy(Name, Succ(I), MaxInt);
  -    Size := StringToInt(S);
  -    If Size<=0 Then
  -    Begin
  -      FontName := Name;
  -      Size := DefaultFontSize;
  -    End;
  -  End Else
  -  Begin
  -    FontName := Name;
  -    Size := DefaultFontSize;
  -  End;
  +  FontName := Name;
   
     Name := GetFileName(Name, True);
   
  
positive.code:   If S<>'' Then
    Begin
      Result := TERRAFont.Create(rtLoaded, S);
      Result._TextSize := Size;
      Result.Priority := 90;
      Self.AddResource(Result);
    End Else
  
negative.code:       Class Function GetManager:Pointer; Override;
  
        Procedure AddGlyphFactory(Factory:FontGlyphFactory; Scale:Single = 1.0);
  
        Property Atlas:TextureAtlas Read _Atlas;
  
  