Как при поиске в RichEdit текст прокручивался [D6]
ruslan_as © (2004-08-31 13:39:00)
Организовал поиск в 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:00) [1]
EM_SCROLLCARET?
Наверх 
ЧАТ |
Орешник |
|
