anchor.diff:    I, AutoCount: Integer;
     BorderWidth: Integer;
     Percent: Boolean;
  -  MyProps: TProperties;
  +  TheProps, MyProps: TProperties;
   begin
      {$IFDEF JPM_DEBUGGING}
     CodeSite.EnterMethod(Self,'TTableBlock.Create');
  
positive.code:           MyProps.SetPropertyDefaults([BorderBottomStyle, BorderRightStyle, BorderTopStyle, BorderLeftStyle], bssNone);
      end;
  
      inherited Create(OwnerCell, Attr, Prop);
    finally
      MyProps.Free;
    end;
  
negative.code: 
    // BG, 20.01.2013: translate table attributes to block property defaults:
    MyProps := TProperties.CreateCopy(Prop);
    TheProps := MyProps;
    try
      if ATable.BorderColor <> clNone then
        MyProps.SetPropertyDefaults([BorderBottomColor, BorderRightColor, BorderTopColor, BorderLeftColor], ATable.BorderColor)
  