anchor.diff:      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;
  -    property ListStyleType: ListBulletType read FListStyleType;
  -    property ListType: ListTypeType read FListType;
  -    property ListFont: TFont read FListFont;
  +    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)
  
positive.code:   finally
      Document.FirstLineHtPtr := nil;
    end;
  end;
  
  ////-- BG ---------------------------------------------------------- 16.09.2009 --
  
negative.code:     FListFont: TFont;
      Image: TImageObj;
      FirstLineHt: Integer;
      procedure SetListFont(const Value: TFont);
    public
      constructor Create(Master: ThtDocument; Prop: TProperties; AnOwnerCell: TCellBasic;
        Sy: Symb; APlain: boolean; AIndexType: ThtChar;
  