Скачать: CL | DM;

Надо прокрутить RichEdit...   Найти похожие ветки 

← →
KA-87 ©   (2003-04-20 12:45) [0]

{Чего надо добавить, чтобы прокрутить RichEdit к тому месту, где найден текст}
procedure TMainForm.FindDialogFind(Sender: TObject);
var
FoundAt: Longint;
StartPos,ToEnd: Integer;
begin
{reEditor = TRichEditor}
if reEditor.SelLength<>0 then
StartPos:=reEditor.SelStart+reEditor.SelLength
else
StartPos:=0;
ToEnd:=Length(reEditor.Text)-StartPos;
FoundAt:=reEditor.FindText(FindDialog.FindText,StartPos,ToEnd,[stMatchCase]);
if FoundAt<>-1 then
begin
reEditor.SelStart:=FoundAt;
reEditor.SelLength:=Length(FindDialog.FindText);
reEditor.SetFocus;
end;
end;

---

← →
Song ©   (2003-04-20 13:38) [1]

EM_SCROLLCARET

---

← →
KA-87 ©   (2003-04-20 21:07) [2]

to [Song] Спасибо - помог ;)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c