anchor.diff:    protected
       FFontDesc: string;
       FFontRes: TfpgFontResourceBase;
  +    function    GetIsFixedWidth: boolean; virtual;
     public
       function    TextWidth(const txt: string): integer;
       function    Ascent: integer;
  
positive.code: 
  { TfpgFontBase }
  
  function TfpgFontBase.TextWidth(const txt: string): integer;
  begin
    if Length(txt) = 0 then
  
negative.code:     property    FontDesc: string read FFontDesc;
      property    FontRes: TfpgFontResourceBase read FFontRes;
      property    Handle: TfpgFontResourceBase read FFontRes;
      property    IsFixedWidth: boolean read GetIsFixedWidth;
    end;
  
  
  