anchor.diff:    end;
   
   
  -  TNamedFontItem = class
  +  TNamedFontItem = class(TObject)
     public
       FontID: string;
       FontDesc: string;
  
positive.code: 
  
  { TfpgStyle }
  
  constructor TfpgStyle.Create;
  begin
  
negative.code:     will rework this to use a Style Manager like the previous fpGUI.
      Also support Bitmap based styles for easier theme implementations. }
    TfpgStyle = class(TObject)
    protected
      FDefaultFont: TfpgFont;
      FFixedFont: TfpgFont;
      FMenuAccelFont: TfpgFont;
      FMenuDisabledFont: TfpgFont;
      FMenuFont: TfpgFont;
      procedure   SetDefaultFont(AValue: TfpgFont);
      procedure   SetFixedFont(AValue: TfpgFont);
      procedure   SetMenuAccelFont(AValue: TfpgFont);
      procedure   SetMenuDisabledFont(AValue: TfpgFont);
      procedure   SetMenuFont(AValue: TfpgFont);
    public
      constructor Create; virtual;
      destructor  Destroy; override;
      { font objects }
      property    DefaultFont: TfpgFont read FDefaultFont write SetDefaultFont;
      property    FixedFont: TfpgFont read FFixedFont write SetFixedFont;
      property    MenuFont: TfpgFont read FMenuFont write SetMenuFont;
      property    MenuAccelFont: TfpgFont read FMenuAccelFont write SetMenuAccelFont;
      property    MenuDisabledFont: TfpgFont read FMenuDisabledFont write SetMenuDisabledFont;
      { General }
      procedure   DrawControlFrame(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord); virtual; overload;
      procedure   DrawControlFrame(ACanvas: TfpgCanvas; r: TfpgRect); overload;
  