Докумекал сам, вот что вышло (суть - в хтмл документе вставляются для интересующего текста 2 якоря - в начале текста и в конце. Нужно выделить текст вместе с якорями).
| Код |
procedure Tmhteditform.lbxAnchorsClick(Sender: TObject);
var
Range, rangeb, rangee: IHTMLTxtRange;
anchorb, anchore: IHTMLElement;
i, anchorid: integer;
begin
if lbxAnchors.ItemIndex < 0 then exit;
anchorid := strtoint(copy(lbxAnchors.items[lbxAnchors.ItemIndex], 3, length(lbxAnchors.items[lbxAnchors.ItemIndex]) - 2));
for i := 0 to mhteditwb.OleObject.document.anchors.length - 1 do
begin
if mhteditwb.OleObject.document.anchors.Item(i).Name = ('bm' + inttostr(anchorid)) then anchorb := mhteditwb.Doc2.anchors.Item(i, '') as IHTMLElement;
if mhteditwb.OleObject.document.anchors.Item(i).Name = ('_bm' + inttostr(anchorid)) then anchore := mhteditwb.Doc2.anchors.Item(i, '') as IHTMLElement;
end;
if (anchorb = nil) or (anchore = nil) then exit;
rangeb := (mhteditwb.Doc2.selection.createRange) as IHTMLTxtRange;
rangee := (mhteditwb.Doc2.selection.createRange) as IHTMLTxtRange;
rangeb.moveToElementText(anchorb);
// rangeb.movestart('character',-1);
rangeb.select;
rangee.moveToElementText(anchore);
// rangee.moveend('character',1);
rangee.select;
Range := (mhteditwb.Doc2.selection.createRange) as IHTMLTxtRange;
Range.setEndPoint('StartToStart', rangeb);
Range.setEndPoint('EndToEnd', rangee);
Range.scrollIntoView(true);
Range.select;
sbMHTEdit.SimpleText:=Range.htmlText;
end;
|
Как мне выделить текст вместе с якорями? |
