anchor.diff:    finally
       Document.FirstLineHtPtr := nil;
     end;
  +end;
  +
  +//-- BG ---------------------------------------------------------- 31.01.2012 --
  +procedure TBlockLI.SetListFont(const Value: TFont);
  +begin
  +  FListFont.Assign(Value);
   end;
   
   ////-- BG ---------------------------------------------------------- 16.09.2009 --
  
positive.code:     function FreeMe: Boolean; override;
    public
      constructor Create(MasterList: ThtDocument; Pos: Integer);
      property ChPos: Integer read FChPos;
      property MasterList: ThtDocument read FDocument;
    end;
  
  
negative.code:     function DrawLogic(Canvas: TCanvas; X, Y, XRef, YRef, AWidth, AHeight, BlHt: Integer; IMgr: TIndentManager;
        var MaxWidth, Curs: Integer): Integer; override;
      function Draw1(Canvas: TCanvas; const ARect: TRect; IMgr: TIndentManager; X, XRef, YRef: Integer): Integer; override;
      property ListNumb: Integer read FListNumb write FListNumb;
      property ListStyleType: ListBulletType read FListStyleType write FListStyleType;
      property ListType: ListTypeType read FListType write FListType;
      property ListFont: TFont read FListFont write SetListFont;
    end;
  
    TFieldsetBlock = class(TBlock)
  