Goto a line of a TRichEdit 1

[Stretchwickster]

Sorry to pester everyone again!

Does anyone know how to move the cursor to the beginning of, for example, line 50 in a TRichEdit component at run-time?

Your help would be much appreciated

Clive

 

[bbegley]

I haven't played with this at all, but I found this on google.

From Team B on borland boards:

var
curLine: integer;
begin
with RichEdit1 do
begin
curLine := Perform(EM_LINEFROMCHAR, -1, 0);
SelStart := Perform(EM_LINEINDEX, curLine, 0);
SelLength := Length(Lines[curLine]);
SelAttributes.Color := clRed;
SelLength := 0;
SetFocus;
end;
end;

 

[sggaunt]

I have done somthing simular useing the 'sendmessage' API call. this gets the cursor to the right place using a search.

SelStart := FoundAt;
SelLength := Length(SearchText);
Line:= SendMessage(Handle, EM_EXLINEFROMCHAR, 0, selstart);
All.Add(lines[Line]);
selstart := selstart + sellength;
SelLength := selstart - Length(SearchText);

Steve