anchor.diff:        Row.Initialize;
         for Cl := Row.Count - 1 downto 0 do
         begin
  -        CellObj := Row[Cl];
  +        CellObjBase := Row[Cl];
           CellObj.Initialize(CellPadding, Row.BkImage, Row.APRec, Self.BorderWidth > 0);
           if BkGnd and not CellObj.Cell.BkGnd then {transfer bgcolor to cells if no Table image}
           begin
  
positive.code:       out FormControl: TIDObject {TImageFormControlObj}; out ATitle: ThtString): guResultType; override;
    end;
  
    TCellObj = class(TObject)
    {holds one cell of the table and some other information}
    private
      // BEGIN: this area is copied by move() in CreateCopy() - NO string types allowed!
      FColSpan, FRowSpan: Integer; {column and row spans for this cell}
      FWd: Integer; {total width (may cover more than one column)}
      FHt: Integer; {total height (may cover more than one row)}
      FVSize: Integer; {Actual vertical size of contents}
      FSpecWd: TSpecWidth; {Width attribute (percentage or absolute)}
      FSpecHt: TSpecWidth; {Height as specified}
      FYIndent: Integer; {Vertical indent}
      FVAlign: AlignmentType; {Top, Middle, or Bottom}
      FEmSize, FExSize: Integer;
      FPRec: PtPositionRec; // background image position info
      FPad: TRect;
      FBrd: TRect;
      FHzSpace, FVrSpace: Integer;
      FHasBorderStyle: Boolean;
      FShowEmptyCells: Boolean;
      // END: this area is copied by move() in CreateCopy()
      FCell: TCellObjCell;
      procedure Initialize(TablePadding: Integer; const BkImageName: ThtString; const APRec: PtPositionRec; Border: Boolean);
      procedure Draw(Canvas: TCanvas; const ARect: TRect; X, Y, CellSpacing: Integer; Border: Boolean; Light, Dark: TColor);
      procedure DrawLogic2(Canvas: TCanvas; Y, CellSpacing: Integer; var Curs: Integer);
  
      // BG, 08.01.2012: Issue 109: C++Builder cannot handle properties that reference record members.
      // - added for legacy support only, will be removed in a near future release.
  
negative.code:  {$endif}
  end;
  
  //-- BG ---------------------------------------------------------- 19.02.2013 --
  constructor TCellObj.CreateCopy(Master: ThtDocument; T: TCellObj);
  begin
    inherited Create;
    FCell := TCellObjCell.CreateCopy(Master, T.Cell);
    T.AssignTo(Self);
  end;
  
  destructor TCellObj.Destroy;
  