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'));
  +  FDefaultFont      := fpgGetFont(fpgGetNamedFontDesc('Label1'));
  +  FFixedFont        := fpgGetFont(fpgGetNamedFontDesc('Edit2'));
  +  FMenuFont         := fpgGetFont(fpgGetNamedFontDesc('Menu'));
  +  FMenuAccelFont    := fpgGetFont(fpgGetNamedFontDesc('MenuAccel'));
  +  FMenuDisabledFont := fpgGetFont(fpgGetNamedFontDesc('MenuDisabled'));
   end;
   
   destructor TfpgStyle.Destroy;
   begin
  -  DefaultFont.Free;
  -  FixedFont.Free;
  -  MenuFont.Free;
  -  MenuAccelFont.Free;
  -  MenuDisabledFont.Free;
  +  FDefaultFont.Free;
  +  FFixedFont.Free;
  +  FMenuFont.Free;
  +  FMenuAccelFont.Free;
  +  FMenuDisabledFont.Free;
     inherited Destroy;
   end;
   
  
positive.code: 
  
  { TfpgStyle }
  
  constructor TfpgStyle.Create;
  begin
  
negative.code:   end;
  
  
    TNamedFontItem = class(TObject)
    public
      FontID: string;
      FontDesc: string;
  