anchor.diff:      //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 Border: TRect read FBrd write FBrd; //was: BrdTop, BrdRight, BrdBottom, BrdLeft: Integer;
  +    property BrdBottom: Integer read getBorderBottom write setBorderBottom;
  +    property BrdLeft: Integer read getBorderLeft write setBorderLeft;
  +    property BrdRight: Integer read getBorderRight write setBorderRight;
  +    property BrdTop: Integer read getBorderTop write setBorderTop;
       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;
  
positive.code:       SelectClipRgn(Canvas.Handle, Rgn);
        try
          Cell.Draw(Canvas, ARect, Wd - HzSpace - CellSpacing,
            X + PadLeft + BrdLeft + CellSpacing,
            Y + PadTop + BrdTop + YIndent, ARect.Left, 0); {possibly should be IRgn.LfEdge}
        finally
          if Rslt = 1 then {restore any previous clip region}
            SelectClipRgn(Canvas.Handle, SaveRgn)
  
negative.code:         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}
  