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

Как при поиске в RichEdit текст прокручивался   Найти похожие ветки 

← →
ruslan_as   (2004-08-31 13:39) [0]

Организовал поиск в RichEdit как было показанов в Helpe, но столкнулся с такой проблемой. Когда поиск выходит за пределы зоны выдимости - RichEdit не прокручивается (т.е. я не вижу найденого участка хотя он и найден ).
Прошу помочь знатоков.
Заранее всем спасибо!

procedure TfmLog.FindDialog1Find(Sender: TObject);
var  FoundAt: LongInt;  StartPos, ToEnd: Integer;
begin
with RichEdit1 do  begin
if SelLength <> 0
then
       StartPos := SelStart + SelLength
else
       StartPos := 0;
       ToEnd := Length(Text) - StartPos;
       FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
       if FoundAt <> -1
       then begin
               SetFocus;
               SelStart := FoundAt;
               SelLength := Length(FindDialog1.FindText);
            end;
       end;
end;

---

← →
MU ©   (2004-08-31 13:56) [1]

EM_SCROLLCARET?

---

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

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



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