anchor.diff:    TBlock = class(TBlockBase)
     protected
       procedure ConvMargArray(BaseWidth, BaseHeight: Integer; out AutoCount: Integer); virtual;
  -    procedure DrawBlockBorder(Canvas: TCanvas; ORect, IRect: TRect); virtual;
  +    procedure DrawBlockBorder(Canvas: TCanvas; const ORect, IRect: TRect); virtual;
       function getBorderWidth: Integer; virtual;
       property BorderWidth: Integer read getBorderWidth;
       procedure ContentMinMaxWidth(Canvas: TCanvas; out Min, Max: Integer); virtual;
  
positive.code: 
  var
    YOffset: Integer;
    XR, YB, BL, BT, BR, BB, PL, PT, PR, PB, RefX, RefY, TmpHt: Integer;
    SaveID: TObject;
    ImgOK, HasBackgroundColor: boolean;
    IT, IH, FT: Integer;
    Rgn, SaveRgn, SaveRgn1: HRgn;
    OpenRgn: Boolean;
    XOffset: Integer;
  begin
    YOffset := ParentSectionList.YOff;
    XOffset := MargArray[MarginLeft] + MargArray[PaddingLeft] + MargArray[BorderLeftWidth];
  
    case FLoatLR of
      ALeft, ARight:
  
negative.code:   Result := inherited Draw1(Canvas, ARect, IMgr, X, XRef, YRef);
  end;
  
  procedure TTableBlock.DrawBlockBorder(Canvas: TCanvas; const ORect, IRect: TRect);
  var
    Light, Dark: TColor;
    C: PropIndices;
  