anchor.diff:            MyProps.SetPropertyDefaults([BorderBottomStyle, BorderRightStyle, BorderTopStyle, BorderLeftStyle], bssNone);
       end;
   
  -    inherited Create(OwnerCell, Attr, Prop);
  +    inherited Create(OwnerCell, Attr, TheProps);
     finally
       MyProps.Free;
     end;
  
positive.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)
  
negative.code:   I, AutoCount: Integer;
    BorderWidth: Integer;
    Percent: Boolean;
    TheProps, MyProps: TProperties;
  begin
     {$IFDEF JPM_DEBUGGING}
    CodeSite.EnterMethod(Self,'TTableBlock.Create');
  