View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0004430 | JEDI VCL | 00 JVCL Components | public | 2008-08-21 07:53 | 2008-10-26 05:16 |
| Reporter | aducom | Assigned To | AHUser | ||
| Priority | normal | Severity | minor | Reproducibility | always |
| Status | resolved | Resolution | fixed | ||
| Product Version | 3.33 | ||||
| Target Version | Fixed in Version | 3.36 | |||
| Summary | 0004430: Addition to TJVRichEdit (and sample) | ||||
| Description | The 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; var CF: TCharFormatA; begin 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))); end; Just add a space before the word and the hyperlink is deleted. | ||||
| Tags | No tags attached. | ||||
|
|
So what is the request or question here? What do you want? |
|
|
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. albert |
|
|
Ok, thanks for the comment. Issue available for anyone to look at. |
|
|
Added to SVN head. |
| 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 |
