RE: Split cells/unmerge Cells

Return to index

Author

Message

tony

Posted: 11/06/2002 20:31:14

hi.

  TCustomRVItemInfo* item;

   TCustomRichViewEdit* rve;

   int r,c,cs,rs;

   RichEditView->GetCurrentItemEx(__classid(TRVTableItemInfo), rve, item);

   TRVTableItemInfo* table = (TRVTableItemInfo*)item;

   int ItemNo = rve->GetItemNo(table);

   int Data;

switch (operation){

case 0: //Merge

  rve->BeginItemModify(ItemNo, Data);

   rve->BeginUndoGroup(rvutModifyItem);

   rve->SetUndoGroupMode(true);

   table->MergeSelectedCells(true);

   table->DeleteEmptyRows();

   table->DeleteEmptyCols();

   rve->SetUndoGroupMode(false);

    break;

case 1:  //split

   AnsiString s = "2";

   if (InputQuery("Número de columnas por celda","Indique número",s))

      table->SplitSelectedCellsVertically(StrToIntDef(s,0));

   rve->EndItemModify(ItemNo, Data);

   rve->Change();

}

bye.