anchor.diff:  var
     i: integer;
     Font: TLogicalFont;
  +  face: TFontFace;
   begin
     // select default font so none of our logical fonts are in use
     FCanvas.Font := fpgApplication.DefaultFont;
  
positive.code:   Point.x := Point.X + Canvas.Font.TextWidth(t);
  end;
  
  end.
  
negative.code: procedure TCanvasFontManager.SelectFont( Font: TLogicalFont;
                                           Scale: longint );
  var
    f: TfpgFont;
    s: string;
  begin
    // Select the logical font
    if Font.FontType = ftOutline then
    begin
      s := Font.FaceName + '-' + IntToStr(Font.PointSize);
  