anchor.diff:      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;
  
positive.code:     property Margin_Top: longint read GetMargin_Top write SetMargin_Top;
    end;
  
  //  pRichTextSettings = ^TRichTextSettings;
    Procedure ApplyStyle( var Style: TTextDrawStyle;
                          FontManager: TCanvasFontManager );
  
  
negative.code:   Inherited Destroy;
  end;
  
  Procedure TRichTextSettings.Change;
  begin
    if FUpdateCount > 0 then
  