Introduction Class TWPCustomRTFControl Class TWPRichText Class TWPCustomRichText Class TDBWPRichText Class TWPCustomRtfEdit Class TWPPreview Class TWPRichTextLabel
Class TWPToolbar Class TWPToolButton Class TWPToolPanel Class TWPVertRuler Class TWPRuler Class TWPGutter
Class TTextHeader Class TWPRTFSectionProps Class TWPOwnedCharAttrInterface Class TWPStoredCharAttrInterface Class TWPAbstractCharAttrInterface Class TWPAbstractCharParAttrInterface Class TWPCursorCharAttrInterface Class TWPFoundTextAttrInterface Class TWPCurrentWritingmodeAttrInterface
Class TWPRTFReaderEx Class TWPRTFReader Class TWPRTFWriter Class TWPRTFWriterEx Class TWPToolsReaderWriter Class TWPTextWriter Class TWPHTMLWriter Class TWPTOOLSWriter Class TWPUNITextWriter Class TWPCustomTextWriter Class TWPTextReader Class TWPHTMLReader Class TWPTOOLSReader Class TWPUNITextReader Class TWPCustomTextReader
Class TWPRTFDataCollectionBase Class TWPRTFDataCollection Class TWPRTFDataBlock Class TWPRTFDataBlockEd Class TParagraph Class TWPTextStyle Class TWPORTFTextBox Class TWPObjectField Class TWPObject Class TWPRTFEngineBasis Class TWPRTFEngineEdit
Class TWPManageHeaderFooterDlg Class TWPPagePropDlg Class TWPParagraphBorderDlgEx Class TWPParagraphBorderDlg Class TWPTabDlgPrp Class TWPOneStyleDlg Class TWPBulletDlg Class TWPSymbolDlg Class TWPSymbolDlgEx Class TWPSpellCheckDlg Class TWPStringDlg Class TWPStyleDlg Class TWPCustomAttrDlg Class TWPSearchReplaceDlg Class TWPParagraphPropDlg Class TWPPreviewDlg Class TWPReportBandsDialog Class TWPTableDlg
Class TWPSuperMerge Class TDBWPEvalEngine Class TWPEvalEngine Class TWPTableProducer Class TWPBand Class TWPDataSetAbstractAdapter
Class TWPSvgXMLNode Class TWPXMLOneLevel Class TWPCustomXMLInterface Class TWPXMLInterface Class TWPLanguageControl Class TWPXMLTree Class TWPSVGXMLTree Class TWPCustomXMLTree
Main Website Buy WPCubed VCL Components Contact/License

Function TWPCustomRtfEdit.HyperlinkConvertOldWPT3Links(OnlyIfHiddenTextWasFound:Boolean) : Integer

Unit: WPCTRMemo
Class: WPCTRMemo.TWPCustomRtfEdit

Parameters

  • OnlyIfHiddenTextWasFound:Boolean

Returns

The type of the result value is Integer.

Description

This function can be used to convert the old hyperlink syntax: double underlined text + hidden text into the new WPTools 6 Hyperlinks. Optionally, if OnlyIfHiddenTextWasFound=TRUE this procedure will leave text alone which was not followed by hidden text. This function returns the count of the converted hyperlinks.Implementation: function TWPCustomRtfEdit.HyperlinkConvertOldWPT3Links(OnlyIfHiddenTextWasFound : Boolean = FALSE):Integer; var DoubleStart, DoubleEnd, HiddenEnd, mode : Integer; Yes : Boolean; url : string; begin DoubleStart := 0; DoubleEnd := 0; HiddenEnd := 0; Result := 0; with TextCursor do begin Position := 0; SelectText := FALSE; repeat if (CurrentCharAttr.GetUnderlineMode(mode)) and (mode=WPUND_Double) then begin DoubleStart := DropMarker; repeat CurrentCharAttr.HasStyle(afsHidden,Yes); if CurrentCharAttr.HasAStyle(afsHidden) or not CurrentCharAttr.GetUnderlineMode(mode) or (modeWPUND_Double) then break; until not CPMoveNext; DoubleEnd := DropMarker; if not CurrentCharAttr.HasAStyle(afsHidden) then begin HiddenEnd := 0; url := ''; end else begin repeat if not CurrentCharAttr.HasAStyle(afsHidden) then break; until not CPMoveNext; HiddenEnd := DropMarker; SelectMarker(DoubleEnd,HiddenEnd); url := SelText; ClearSelection(true,true); end; if not OnlyIfHiddenTextWasFound or (url'') then begin SelectMarker(DoubleStart,DoubleEnd); InputCode(wpobjHyperlink, '', url, [wpinpWrapSelectedText]); end; GotoMarker(DoubleEnd); CollectAllMarker; end; until not CPMoveNext; end; if Result>0 then ReformatAll; end;