anchor.diff:      FLegend: TBlockCell;
     protected
       procedure ConvMargArray(BaseWidth: Integer; BaseHeight: Integer; out AutoCount: Integer); override;
  -    procedure DrawBlockBorder(Canvas: TCanvas; ORect: TRect; IRect: TRect); override;
       procedure ContentMinMaxWidth(Canvas: TCanvas; out Min, Max: Integer); override;
     public
       constructor Create(Master: TSectionList; Prop: TProperties; AnOwnerCell: TCellBasic; Attributes: TAttributeList);
  
positive.code: function TTableBlock.FindWidth(Canvas: TCanvas; AWidth, AHeight, AutoCount: Integer): Integer;
  var
    LeftSide, RightSide: Integer;
    Min, Max, Allow: Integer;
  begin
    if not HasCaption then
    begin
  
negative.code:   end;
  end;
  
  procedure TBlock.DrawBlockBorder(Canvas: TCanvas; const ORect, IRect: TRect);
  begin
    if BorderStyle <> bssNone then
      if (ORect.Left <> IRect.Left) or (ORect.Top <> IRect.Top) or (ORect.Right <> IRect.Right) or (ORect.Bottom <> IRect.Bottom) then
        DrawBorder(Canvas, ORect, IRect,
          htColors(MargArray[BorderLeftColor], MargArray[BorderTopColor], MargArray[BorderRightColor], MargArray[BorderBottomColor]),
          htStyles(BorderStyleType(MargArray[BorderLeftStyle]), BorderStyleType(MargArray[BorderTopStyle]), BorderStyleType(MargArray[BorderRightStyle]), BorderStyleType(MargArray[BorderBottomStyle])),
          MargArray[BackgroundColor], ParentSectionList.Printing)
  end;
  
  procedure TBlock.DrawTheList(Canvas: TCanvas; const ARect: TRect; ClipWidth, X, XRef, YRef: Integer);
  