Property TWPTextFinder.FoundAttr : TWPFoundTextAttrInterface
Unit: WPRTEDefs
Class: WPRTEDefs.TWPTextFinder
Description
This property can be used to modify the attributes of the found text:
WPRichText1.Finder.EndAtSpace:=TRUE;
WPRichText1.Finder.EndAtWord:=TRUE;
while WPRichText1.Finder.Next ( 'http://*' ) do
begin
WPRichText1.Finder.FoundAttr.SetColor(clRed);
end;
WPRichText1.Finder.EndAtSpace:=FALSE;
WPRichText1.Finder.EndAtWord:=FALSE;