anchor.diff:          MargArray[BackgroundColor], Cell.MasterList.Printing);
       except
       end;
  +end;
  +
  +//-- BG ---------------------------------------------------------- 08.01.2012 --
  +procedure TCellObj.setBorderBottom(const Value: Integer);
  +begin
  +  FBrd.Bottom := Value;
  +end;
  +
  +//-- BG ---------------------------------------------------------- 08.01.2012 --
  +procedure TCellObj.setBorderLeft(const Value: Integer);
  +begin
  +  FBrd.Left := Value;
  +end;
  +
  +//-- BG ---------------------------------------------------------- 08.01.2012 --
  +procedure TCellObj.setBorderRight(const Value: Integer);
  +begin
  +  FBrd.Right := Value;
  +end;
  +
  +//-- BG ---------------------------------------------------------- 08.01.2012 --
  +procedure TCellObj.setBorderTop(const Value: Integer);
  +begin
  +  FBrd.Top := Value;
  +end;
  +
  +//-- BG ---------------------------------------------------------- 08.01.2012 --
  +procedure TCellObj.setPaddingBottom(const Value: Integer);
  +begin
  +  FPad.Bottom := Value;
  +end;
  +
  +//-- BG ---------------------------------------------------------- 08.01.2012 --
  +procedure TCellObj.setPaddingLeft(const Value: Integer);
  +begin
  +  FPad.Left := Value;
  +end;
  +
  +//-- BG ---------------------------------------------------------- 08.01.2012 --
  +procedure TCellObj.setPaddingRight(const Value: Integer);
  +begin
  +  FPad.Right := Value;
  +end;
  +
  +//-- BG ---------------------------------------------------------- 08.01.2012 --
  +procedure TCellObj.setPaddingTop(const Value: Integer);
  +begin
  +  FPad.Top := Value;
   end;
   
   {----------------TCellList.Create}
  
positive.code:     //property AsPercent: TWidthType read  write ; {it's a percent}
      //property SpecHtPercent: Integer read  write ;
      //property WidthAttr: Integer read  write ; {Width attribute (percentage or absolute)}
      property Brd: TRect read FBrd write FBrd; //Top, BrdRight, BrdBottom, BrdLeft: Integer;
      property BrdBottom: Integer read FBrd.Bottom write FBrd.Bottom;
      property BrdLeft: Integer read FBrd.Left write FBrd.Left;
      property BrdRight: Integer read FBrd.Right write FBrd.Right;
      property BrdTop: Integer read FBrd.Top write FBrd.Top;
      property Cell: TCellObjCell read FCell;
      property ColSpan: Integer read FColSpan write FColSpan; {column and row spans for this cell}
      property EmSize: Integer read FEmSize write FEmSize;
  
negative.code: 
    BL := X + CellSpacing; {Border left and right}
    BR := X + Wd;
    PL := BL + FBrd.Left; {Padding left and right}
    PR := BR - FBrd.Right;
  
    BT := YO + CellSpacing; {Border Top and Bottom}
    BB := YO + Ht;
    PT := BT + FBrd.Top; {Padding Top and Bottom}
    PB := BB - FBrd.Bottom;
  
    IT := Max(0, Arect.Top - 2 - PT);
    FT := Max(PT, ARect.Top - 2); {top of area drawn, screen coordinates}
  