Complex document problem

[hypercube]

Hi.

We used SRichViewEdit component as editor. When document http://www.oganer.info/u.rvf opens it raise an exception. Problem is reproduced in ActionTest demo.

In demo application of TRichView problem is absent.

Have you any idea how to solve this problem?

Thanx.

[proxy3d]

replace:

Code: Select all

    function getHeaderTable : Integer;
    var
         r, c : Integer;
    begin
      Result := 0;
      if Item.HeadingRowCount > 0 then
        begin
          Item.Rows.GetMainCell(Item.HeadingRowCount-1, 0, r, c);
          Result := Item.Cells[r, c].Top + Item.Cells[r, c].Height;
          Result := Result + Item.CellBorderWidth shl 1;
          if Item.HeadingRowCount < Item.Rows.Count then
            Result := Result + Item.CellVSpacing;
        end;
    end;

[hypercube]

Thank you, Ilya.