How to select from ... too ..

Anonymous

To select an area of text with a given (integer) start position and a certain length simply use SetSelPosLen.

But in many cases you will want to select from a certain position in the text to another position which is marked by some text or an object.

Here the property <TWPRichText>.TextCursor.SelectText comes in action.

If this property is set to true all the text which lies between the current cursor position and the new cursor position is selected. This works alsoso in reverse direction, when you move the cursor backwards.

Example:

Delete the hyperlink the cursor is located within and the enclosed text:

Zitat

var hyp : TWPTextObj;
begin
hyp := WPRichText1.HyperlinkAtCP;
if hyp<>nil then
begin
WPRichText1.TextObjects.AtCP := hyp;
WPRichText1.TextCursor.SelectText := TRUE;
WPRichText1.TextObjects.AtCP := hyp.EndTag;
WPRichText1.TextCursor.CPMoveNext;
WPRichText1.TextCursor.ClearSelection(true,true); end;
end;

Alles anzeigen

support

Starting with R5 this will work, too:

Code

With WPRichText1.TextCursor do
     if Find('{') then
     begin
        SelectText := TRUE;
        Find('}',true,true);
     end;