anchor.diff:    end;
   
   
  -  TNamedFontItem = class
  +  TNamedFontItem = class(TObject)
     public
       FontID: string;
       FontDesc: string;
  
positive.code: 
  
    // Global Font Objects
    DefaultFont      := fpgGetFont(fpgGetNamedFontDesc('Label1'));
    FixedFont        := fpgGetFont(fpgGetNamedFontDesc('Edit2'));
    MenuFont         := fpgGetFont(fpgGetNamedFontDesc('Menu'));
    MenuAccelFont    := fpgGetFont(fpgGetNamedFontDesc('MenuAccel'));
    MenuDisabledFont := fpgGetFont(fpgGetNamedFontDesc('MenuDisabled'));
  end;
  
  destructor TfpgStyle.Destroy;
  begin
    DefaultFont.Free;
    FixedFont.Free;
    MenuFont.Free;
    MenuAccelFont.Free;
    MenuDisabledFont.Free;
    inherited Destroy;
  end;
  
  
negative.code: 
  
  { TfpgStyle }
  
  procedure TfpgStyle.SetDefaultFont(AValue: TfpgFont);
  begin
    if FDefaultFont = AValue then Exit;
    FDefaultFont.Free;
    FDefaultFont := AValue;
  end;
  
  procedure TfpgStyle.SetFixedFont(AValue: TfpgFont);
  begin
    if FFixedFont = AValue then Exit;
    FFixedFont.Free;
    FFixedFont := AValue;
  end;
  
  procedure TfpgStyle.SetMenuAccelFont(AValue: TfpgFont);
  begin
    if FMenuAccelFont = AValue then Exit;
    FMenuAccelFont.Free;
    FMenuAccelFont := AValue;
  end;
  
  procedure TfpgStyle.SetMenuDisabledFont(AValue: TfpgFont);
  begin
    if FMenuDisabledFont = AValue then Exit;
    FMenuDisabledFont.Free;
    FMenuDisabledFont := AValue;
  end;
  
  procedure TfpgStyle.SetMenuFont(AValue: TfpgFont);
  begin
    if FMenuFont = AValue then Exit;
    FMenuFont.Free;
    FMenuFont := AValue;
  end;
  
  constructor TfpgStyle.Create;
  begin
  