anchor.diff:      DrawHeight: Integer;    // floating image may overhang. = Max(ContentBot, DrawBot) - YDraw
       // X coordinates calculated in DrawLogic() may be shifted in Draw1(), if section is centered or right aligned
       DrawRect: TDrawRect;    //>-- DZ where the section starts (calculated in DrawLogic or Draw1)
  -    TagClass: ThtString; {debugging aid} //BG, 10.03.2011: see also TCellBasic.OwnersTag
  +    TagClass: ThtString; {debugging aid}
   
       constructor Create(OwnerCell: TCellBasic; Attributes: TAttributeList; AProp: TProperties);
       constructor CreateCopy(OwnerCell: TCellBasic; T: TSectionBase); virtual;
       function CursorToXY(Canvas: TCanvas; Cursor: Integer; var X, Y: Integer): boolean; virtual;
       function Draw1(Canvas: TCanvas; const ARect: TRect; IMgr: TIndentManager; X, XRef, YRef: Integer): Integer; virtual;
  -    function DrawLogic(Canvas: TCanvas; X, Y, XRef, YRef, AWidth, AHeight, BlHt: Integer; IMgr: TIndentManager;
  -      var MaxWidth, Curs: Integer): Integer; virtual;
  +    function DrawLogic(Canvas: TCanvas; X, Y, XRef, YRef, AWidth, AHeight, BlHt: Integer; IMgr: TIndentManager; var MaxWidth, Curs: Integer): Integer; virtual;
       function FindCursor(Canvas: TCanvas; X, Y: Integer; out XR, YR, CaretHt: Integer; out Intext: boolean): Integer; virtual;
       function FindDocPos(SourcePos: Integer; Prev: boolean): Integer; virtual;
       function FindSourcePos(DocPos: Integer): Integer; virtual;
  
positive.code:   inherited Create;
    FOwnerBlock := OwnerBlock;
    FDocument := MasterList;
    OwnersTag := T.OwnersTag;
    for I := 0 to T.Count - 1 do
    begin
      Tmp := T.Items[I];
  
negative.code:   TopAuto: boolean;
    TB: TSectionBase;
    LastMargin, Negs, I: Integer;
    Tag: TElemSymb;
  begin
    ConvVertMargins(MargArrayO, 400, {height not known at this point}
      EmSize, ExSize, MargArray, TopAuto, BottomAuto);
  