View Issue Details

IDProjectCategoryView StatusLast Update
0004430JEDI VCL00 JVCL Componentspublic2008-10-26 05:16
ReporteraducomAssigned ToAHUser 
Status resolvedResolutionfixed 
Product Version3.33 
Target VersionFixed in Version3.36 
Summary0004430: Addition to TJVRichEdit (and sample)
DescriptionThe sample has the autorecognize hyperlinks on. But if you want to add a hyperlink w.o. showing the link (hidden hyperlink) then that's not possible. If next procedure is added then a button on the panel creating the hyperlink will be possible. Of course the sample need to have a popup to enter a hyperlink, but that's trivial.

procedure TJvCustomRichEdit.SetSelectionLink;
    CF: TCharFormatA;
    FillChar(CF, SizeOf(CF), 0);
    CF.cbSize := SizeOf(CF);
    CF.dwMask := CFM_LINK;
    CF.dwEffects := CFE_LINK;
    SendMessage(Handle, EM_SETCHARFORMAT, SCF_SELECTION, Integer(addr(CF)));

Just add a space before the word and the hyperlink is deleted.
TagsNo tags attached.



2008-09-03 09:20

administrator   ~0014530

So what is the request or question here?
What do you want?


2008-09-03 09:40

reporter   ~0014533

Two things:
To add the mentioned procedure into the jvcl source to enhance the component. With this function it is possible to add a hyperlink under a word, in stead of showing the full hyperlink.
Second, to add a button in the sample which call this function. Just select a word and click on the button. This will make the word a hyperlink which will fire the appropiate event on the jvcl component. I'll do that last one if you want... Can't change the official code. Just let me know.



2008-10-10 05:06

administrator   ~0014812

Ok, thanks for the comment.
Issue available for anyone to look at.


2008-10-26 05:16

developer   ~0014908

Added to SVN head.

Issue History

Date Modified Username Field Change
2008-08-21 07:53 aducom New Issue
2008-09-03 09:20 obones Note Added: 0014530
2008-09-03 09:20 obones Status new => feedback
2008-09-03 09:40 aducom Note Added: 0014533
2008-10-10 05:06 obones Note Added: 0014812
2008-10-10 05:06 obones Status feedback => acknowledged
2008-10-26 05:16 AHUser Status acknowledged => resolved
2008-10-26 05:16 AHUser Fixed in Version => Daily / SVN
2008-10-26 05:16 AHUser Resolution open => fixed
2008-10-26 05:16 AHUser Assigned To => AHUser
2008-10-26 05:16 AHUser Note Added: 0014908