Текущий архив: 2003.05.08;
Скачать: 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 вся ветка
Текущий архив: 2003.05.08;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.028 c
