anchor.diff:  
     function GetDefaultStyle( const Settings: TRichTextSettings ): TTextDrawStyle;
   
  -//Exports
  -//  TRichTextSettings,'User','';
  +
   
   Implementation
   
   uses
     SysUtils,
  -  ACLStringUtility
  -  ,nvUtilities
  -  ,SettingsUnit
  -//  , ACLProfile
  -  ;
  +  ACLStringUtility,
  +  nvUtilities,
  +  SettingsUnit;
  +
   
   Procedure ApplyStyle(var Style: TTextDrawStyle; FontManager: TCanvasFontManager);
   var
  
positive.code:   Inherited Destroy;
  end;
  
  // Font read/write from SCU. I have NO IDEA why I have to do this manually. But
  // this way works and everything else I tried doesn't
  //Procedure TRichTextSettings.ReadSCUResource( Const ResName: TResourceName;
  //                                             Var Data;
  //                                             DataLen: LongInt );
  //Begin
  //  If ResName = 'Heading1Font' Then
  //  Begin
  //    If DataLen <> 0 Then
  //      FHeading1Font := ReadSCUFont( Data, DataLen );
  //  End
  //  Else If ResName = 'Heading2Font' Then
  //  Begin
  //    If DataLen <> 0 Then
  //      FHeading2Font := ReadSCUFont( Data, DataLen );
  //  End
  //  Else If ResName = 'Heading3Font' Then
  //  Begin
  //    If DataLen <> 0 Then
  //      FHeading3Font := ReadSCUFont( Data, DataLen );
  //  End
  //  Else If ResName = 'FixedFont' Then
  //  Begin
  //    If DataLen <> 0 Then
  //      FFixedFont := ReadSCUFont( Data, DataLen );
  //  End
  //  Else if ResName = 'NormalFont' then
  //  Begin
  //    If DataLen <> 0 Then
  //      FNormalFont := ReadSCUFont( Data, DataLen );
  //  End
  //  Else
  //    Inherited ReadSCUResource( ResName, Data, DataLen );
  //End;
  
  //Function TRichTextSettings.WriteSCUResource( Stream: TResourceStream ): boolean;
  //begin
  //  Result := Inherited WriteSCUResource( Stream );
  //  If Not Result Then
  //    Exit;
  //
  //  If FHeading1Font <> Nil then
  //    Result := FHeading1Font.WriteSCUResourceName( Stream, 'Heading1Font' );
  //  If FHeading2Font <> Nil then
  //    Result := FHeading2Font.WriteSCUResourceName( Stream, 'Heading2Font' );
  //  If FHeading3Font <> Nil then
  //    Result := FHeading3Font.WriteSCUResourceName( Stream, 'Heading3Font' );
  //  If FFixedFont <> Nil then
  //    Result := FFixedFont.WriteSCUResourceName( Stream, 'FixedFont' );
  //  If FNormalFont <> Nil then
  //    Result := FNormalFont.WriteSCUResourceName( Stream, 'NormalFont' );
  //
  //end;
  
  Procedure TRichTextSettings.Change;
  begin
    if FUpdateCount > 0 then
  
negative.code:     property Margin_Top: longint read GetMargin_Top write SetMargin_Top;
    end;
  
  
    Procedure ApplyStyle( var Style: TTextDrawStyle;
                          FontManager: TCanvasFontManager );
  
  