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: destructor TfpgStyle.Destroy;
  begin
    DefaultFont.Free;
    FixedFont.Free;
    MenuFont.Free;
    MenuAccelFont.Free;
    MenuDisabledFont.Free;
  