anchor.diff:      property Margin_Top: longint read GetMargin_Top write SetMargin_Top;
     end;
   
  -//  pRichTextSettings = ^TRichTextSettings;
  +
     Procedure ApplyStyle( var Style: TTextDrawStyle;
                           FontManager: TCanvasFontManager );
   
  
positive.code:     Procedure SetMargin_Top( NewValue: longint );
      Procedure SetupComponent;
      Procedure AssignFont(var AFont: TfpgFont; NewFont: TfpgFont);
  
      // Hide properties...
      property Name;
  
    public
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
  
negative.code:   Inherited Destroy;
  end;
  
  Procedure TRichTextSettings.Change;
  begin
    if FUpdateCount > 0 then
  