TRichView.com

Code: Select all

function ReplicateRowsInCurrentTable(rve: TCustomRichViewEdit; Count: Integer): Boolean;
var Table: TRVTableItemInfo;
    StartRow, i, r, c, RowCount, Data, SourceRow, DestRow: Integer;
    DestCell, SourceCell: TRVTableCellData;
begin
  Result := rve.GetCurrentItemEx(TRVTableItemInfo, rve, TCustomRVItemInfo(Table));
  if not Result then
    exit;
  if table.CanUseHeadingRowCount then
    StartRow := Table.HeadingRowCount
  else
    StartRow := 0;
  RowCount := Table.RowCount-StartRow;
  Result := RowCount>0;
  if not Result then
    exit;
  Result := rve.CanChange;
  if not Result then
    exit;
  rve.BeginUndoGroup(rvutModifyItem);
  rve.SetUndoGroupMode(True);
  rve.BeginItemModify(Table.GetMyItemNo, Data);
  try
    table.InsertRows(table.RowCount, RowCount*Count, -1, False);
    for i := 0 to Count-1 do
      for r := 0 to RowCount-1 do begin
        SourceRow := StartRow+r;
        DestRow := StartRow+(i+1)*RowCount+r;
        for c := 0 to Table.ColCount-1 do begin
          SourceCell := Table.Cells[SourceRow,c];
          if (SourceCell<>nil) then begin
            if (SourceCell.ColSpan>1) or (SourceCell.RowSpan>1) then
              Table.MergeCells(DestRow,c, SourceCell.ColSpan, SourceCell.RowSpan, False);
            DestCell := Table.Cells[DestRow,c];
            DestCell.AssignAttributesFrom(SourceCell, True, 1, 1);
            DestCell.Clear;
            DestCell.AddNL('', SourceCell.GetFirstTextStyleNo(True), SourceCell.GetFirstParaStyleNo);
          end;
        end;
        table.Rows[DestRow].PageBreakBefore := table.Rows[SourceRow].PageBreakBefore;
        table.Rows[DestRow].KeepTogether := table.Rows[SourceRow].KeepTogether;
        table.Rows[DestRow].VAlign := table.Rows[SourceRow].VAlign;
      end;
     table.DeleteEmptyRows;
     table.DeleteEmptyCols;
  finally
    rve.SetUndoGroupMode(False);
    rve.EndItemModify(Table.GetMyItemNo, Data);
    rve.Change;
  end;
end;