anchor.diff:    PL := BL + BrdLeft; {Padding left and right}
     PR := BR - BrdRight;
   
  -  BT := Y - Cell.MasterList.YOff + Cellspacing; {Border Top and Bottom}
  -  if CellSpacing >= 0 then
  -    BB := BT + Ht - CellSpacing
  -  else
  -    BB := BT + Ht;
  +  BT := YO + CellSpacing; {Border Top and Bottom}
  +  BB := YO + Ht;
     PT := BT + BrdTop; {Padding Top and Bottom}
     PB := BB - BrdBottom;
   
  
positive.code:   Rows := TFreeList.Create;
    CellPadding := 1;
    CellSpacing := 2;
    BorderColor := clWhite;
    BorderColorLight := clBtnHighLight;
    BorderColorDark := clBtnShadow;
    for I := 0 to Attr.Count - 1 do
  
negative.code:           else
              BorderWidth := Min(100, Max(0, Value)); {Border=0 is no border}
          CellSpacingSy:
            CellSpacing := Min(40, Max(-1, Value));
          CellPaddingSy:
            CellPadding := Min(50, Max(0, Value));
          BorderColorSy:
            ColorFromString(Name, False, BorderColor);
          BorderColorLightSy:
  