anchor.diff:    PointSize := 10;
     Attributes := [];
     FixedWidth := False;
  +  UseFaceName := '';
  +  FaceName := '';
   end;
   
   // frees allocated memory, if any.
  
positive.code:   // delete each logical font and our record of it
    for i := 0 to FLogicalFonts.Count - 1 do
    begin
      Font := TLogicalFont(FLogicalFonts[ i ]);
      Font.Free;
    end;
    FLogicalFonts.Clear;
    FLogicalFonts.Free;
  
negative.code: destructor TCanvasFontManager.Destroy;
  var
    i: integer;
    lFont: TLogicalFont;
    lface: TFontFace;
  begin
    // select default font so none of our logical fonts are in use
    FCanvas.Font := fpgApplication.DefaultFont;
  