anchor.diff:  
     // Global Font Objects
     DefaultFont      := fpgGetFont(fpgGetNamedFontDesc('Label1'));
  +  FixedFont        := fpgGetFont(fpgGetNamedFontDesc('Edit2'));
     MenuFont         := fpgGetFont(fpgGetNamedFontDesc('Menu'));
     MenuAccelFont    := fpgGetFont(fpgGetNamedFontDesc('MenuAccel'));
     MenuDisabledFont := fpgGetFont(fpgGetNamedFontDesc('MenuDisabled'));
  
positive.code:   TfpgStyle = class
    public
      DefaultFont: TfpgFont;
      MenuFont: TfpgFont;
      MenuAccelFont: TfpgFont;
      MenuDisabledFont: TfpgFont;
  
negative.code: begin
    if TfpgFontResource(FFontRes).DecRefCount <= 0 then
      fpgApplication.FreeFontRes(TfpgFontResource(FFontRes));
    inherited Destroy;
  end;
  
  { TfpgFontResource }
  