Re: Found myself

Return to index

Author

Message

Sergey Tkachenko

Posted: 09/29/2003 23:05:22

This code may be a bit more clear and safe:

p := richview1.curItemNo;

while (p+1<richview1.ItemCount) and not richview1.IsParaStart(p+1) do

  inc(p);

New item must be inserted after the p-th item.

>

> zet wrote:

> > I want to add an item (table) right after the current paragraph.

> > How could I move caret there?

> >

>    if richview1.curItemNo<>richview1.ItemCount-1 then p:=

> richview1.curItemNo+1

>                                                    else p:=

> richview1.curItemNo;

>    while not richview1.IsParaStart(p) do begin

>     if p<richview1.ItemCount then inc(p) else exit;

>    end;

>

> And p now holds the number of the item which isParaStart.

>