anchor.diff:    end;
   
   
  -  TNamedFontItem = class
  +  TNamedFontItem = class(TObject)
     public
       FontID: string;
       FontDesc: string;
  
positive.code: 
  
  { TfpgStyle }
  
  constructor TfpgStyle.Create;
  begin
  
negative.code: 
  
    // Global Font Objects
    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
    FDefaultFont.Free;
    FFixedFont.Free;
    FMenuFont.Free;
    FMenuAccelFont.Free;
    FMenuDisabledFont.Free;
    inherited Destroy;
  end;
  
  