Re: GetCurrentItemEx List Index out of bounds

Return to index

Author

Message

Jonas Bilinkevicius

Posted: 02/05/2004 13:30:52

Your solution is working fine.  Thanks.

"shmp" <[email protected]> wrote in message news:[email protected]...

> I had a similar problem. What I did was to create a boolean say "skipmove"

> and set to false. Just before clear, set the boolean to true. After format

> then

> set the boolean to false again. This will solve your problem.

>

> >

> > How to avoid this? Maybe I should move the code into other event?

> >

> >

> > procedure.....rvEditCaretMove(Sender: TObject);

> > var

> >   item: TCustomRVItemInfo;

> >   table: TRVTableItemInfo;

> >   rve: TCustomRichViewEdit;

> > begin

>

>    if skipmove then Exit;  // ADD THE TRAP EVENT HERE.

>

> >   if not vEditor.CanChange or  not

> > vEditor.GetCurrentItemEx(TRVTableItemInfo, rve, item) then

> >     exit;

> >   table := TRVTableItemInfo(item);

> >   ItemNo := rve.GetItemNo(table);

> >

> > //Reading table properties

> >

>

> Regards.

> Henry.

>

>