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