Enter Key and URL Detection

Martian · Post by **Martian** » Fri May 31, 2013 7:34 pm

TRichView.UseStyleTemplates = False
Still can't find the problem

Post by **Sergey Tkachenko** » Mon Jun 03, 2013 3:54 pm

Ok, we found that TerminateHyperlink is called.
Next question - is GetNonHypertextStyleNo called?

Martian · Post by **Martian** » Mon Jun 03, 2013 7:06 pm

On the first VK_RETURN GetNonHypertextStyleNo doesn't call but on the second - calls but doesn't close URL.

How RVE processes VK_RETURN? Maybe it intercepts it somewhere else?

Post by **Sergey Tkachenko** » Tue Jun 04, 2013 6:25 am

Sorry, I do not understand your answer.
What is called and what is not called?

Martian · Post by **Martian** » Tue Jun 04, 2013 8:00 am

When I press Enter after some URL for the first time - GetNonHypertextStyleNo does NOT calls and text style stays blue underlined.

If I press Enter again (cursor is on the next line after the URL already) - GetNonHypertextStyleNo CALLS but does not close URL style and on the 3rd line I still have blue underlined font.

Only after TAB or SPACE it works fine.

Post by **Sergey Tkachenko** » Wed Jun 05, 2013 5:29 am

I am afraid I cannot help without a project reproducing the problem.

Martian · Post by **Martian** » Wed Jun 26, 2013 7:07 am

I have no idea why this happens. I didn't change my code - just updated to a new RVE and problem is here. Tried everything (maybe not). Problem persists. And I'm not alone here, I didn't create this topic.

Post by **Sergey Tkachenko** » Thu Jun 27, 2013 11:03 am

This topic was created almost 4 years ago. And, actually, the problem was in using OnKeyPress.
For Enter, you need to use OnKeyDown.

Martian · Post by **Martian** » Thu Jun 27, 2013 6:37 pm

Yeah I know and posted my code with OnKeyDown. Still investigating...

Martian · Post by **Martian** » Fri Aug 16, 2013 8:12 am

Still CANNOT fight this bug! RVE 14.7.1, Delphi XE4, Windows 7

Just try your Demos\DelphiUnicode\Assorted\Hypertext\CreateHyperlink demo - it has the same bug! Press ENTER after the "Hyperlink example".
Create new hyperlink and press ENTER.

Post by **Sergey Tkachenko** » Fri Aug 16, 2013 12:27 pm

I confirm the problem, URL termination does not work on Enter if StyleTemplates are not used (if they are used, the component terminates kinks on Enter automatically).

It will be fixed in the next update.
A quick fix:
RVERVData.pas, TRVEditRVData.GetNextStyleNo, add the red lines:

Code: Select all

    // if styles are not used
    if (StyleNo=FCurTextStyleNo) and (TextStyle.NextStyleNo>=0) then
      Result := TextStyle.NextStyleNo
    [color=red]else
       Result := FCurTextStyleNo[/color];
    exit;

Martian · Post by **Martian** » Fri Aug 16, 2013 6:50 pm

Finally! It works. Thanks.