Re: Insert Object at the end of cell

Return to index

Author

Message

Sergey Tkachenko

Posted: 07/09/2004 19:06:53

table.EditCell(r,c);

// now RichViewEdit1.TopLevelEditor is

//  an inplace editor of table.Cells[r,c]

with RichViewEdit1.TopLevelEditor do

  SetSelectionBounds(ItemCount-1,

    GetOffsAfterItem(ItemCount-1),

   ItemCount-1,

    GetOffsAfterItem(ItemCount-1));

// now caret is at the end of cell

RichViewEdit1.InsertControl(...)

> Dear Sergey,

>

> I want to insert objects in a table cell (the caret may be elsewhere).

When

> there are objects and the to be inserted object must not placed at the

end,

> I can make use of the cell's SetSelectionBounds(DropPosition, 0,

> DropPosition, 0) and then calling Edit and RichViewEdit1.InsertControl.

>

> But I didn't succeed in inserting at the end (you recommended not to use

the

> Addxxx). I tried the suggestion from the helptext (ItemNo := ItemCount-1;

> Offs := GetOffsAfterItem(ItemNo); .SetSelectionBounds(ItemNo, Offs,

ItemNo,

> Offs);) However no luck.

>

> Suggestions?

>

> Thanks,

>

> Frank

>

>