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