anchor.diff:      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;
  
positive.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;
      property ListStyleType: ListBulletType read FListStyleType;
      property ListType: ListTypeType read FListType;
      property ListFont: TFont read FListFont;
    end;
  
    TFieldsetBlock = class(TBlock)
  
negative.code:     function FreeMe: Boolean; override;
    public
      constructor Create(MasterList: ThtDocument; Pos: Integer);
      property ChPos: Integer read FChPos write FChPos;
      property MasterList: ThtDocument read FDocument;
    end;
  
  