Re: Create hyperlink

Return to index

Author

Message

Sergey Tkachenko

Posted: 05/30/2005 20:30:49

The original code in the updated demo:

  if Target<>'' then

    for i := StartNo to EndNo do

      rve.SetItemTagEd(i, Integer(StrNew(PChar(Target))))

  else

    for i := StartNo to EndNo do

      rve.SetItemTagEd(i, 0);

new code:

  if Target<>'' then

    for i := StartNo to EndNo do

    begin

      if (rve.GetItemStyle(i)=rvsPicture) then

        rve.ConvertToHotPicture(i);

      if (rve.GetItemStyle(i)>=0) or (rve.GetItemStyle(i)=rvsHotPicture)

then

        rve.SetItemTagEd(i, Integer(StrNew(PChar(Target))));

      end;

  else

    for i := StartNo to EndNo do

    begin

      if (rve.GetItemStyle(i)=rvsHotPicture) then

        rve.ConvertToPicture(i);

      if (rve.GetItemStyle(i)>=0) or (rve.GetItemStyle(i)=rvsPicture) then

        rve.SetItemTagEd(i, 0);

    end;

Or do you need C++ code?