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: 
    function GetDefaultStyle( const Settings: TRichTextSettings ): TTextDrawStyle;
  
  //Exports
  //  TRichTextSettings,'User','';
  
  Implementation
  
  uses
    SysUtils,
    ACLStringUtility
    ,nvUtilities
    ,SettingsUnit
  //  , ACLProfile
    ;
  
  Procedure ApplyStyle(var Style: TTextDrawStyle; FontManager: TCanvasFontManager);
  var
  
negative.code:     property Margin_Top: longint read GetMargin_Top write SetMargin_Top;
    end;
  
  
    Procedure ApplyStyle( var Style: TTextDrawStyle;
                          FontManager: TCanvasFontManager );
  
  