Table and AddNLTag?

Return to index

Author

Message

Zavada Andrey

Posted: 11/18/2004 13:54:56

Good afternoon.

I use method AddNLTag inside the table.

-------

  var

     table: TRVTableItemInfo;

begin

  table: = TRVTableItemInfo. CreateEx (3, 3, RichView1. RVData);

  table. Cells [0,0] .Clear;

  table. Cells [0,0] .AddNLTag ('XXX', 1, 0, integer (StrNew ('123'));

  RichView1. AddItem (", table);

  RichView1. Format;

end;

-------

and:

( rvoTagsArePChars in Options)

and StyleNo= 1 as Jump: = True

In event procedure RichView1Jump I write:

-------

ItemNo: = RichView1. GetJumpPointItemNo (id);

N: = RichView1. GetItemTag (ItemNo);

TagPChar: = PChar (N);

-------

Always N = 0, TagPChar = nil

If to use AddNLTag not in the table that all OK.

Help please there are no more my forces :(

Zavada Andrey

zavada@vitolab.com