Hi All,
I have some code that populates a TMemo via TMemo.Text := 'lots of lines of text..' and need a cross platform way of programatically forcing the TMemo to display the last entry as if the user has had manually scrolled to the bottom.

Any idea how I can achieve this?

Thanks in advance

Richard
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20140425/78d70cbb/attachment.html>

Hello Richard,
you can use the following code:

SendMessage(Memo1.Handle, EM_LINESCROLL, 0, Memo1.Lines.Count);

Richard Mace wrote

I have some code that populates a TMemo via TMemo.Text := 'lots of lines of text..' and need a cross platform way of programatically forcing the TMemo to display the last entry as if the user has had manually scrolled to the bottom.

You can also use

Memo1.SelStart:=Length(Memo1.Text);

Howard

Hi both,
Thanks for the quick responses :)

Richard

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20140425/80f89bb0/attachment.html>

?Hi Sandro,
EM_LINESCROLL won't compile under Linux (Lubuntu 14.04)?

Richard?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20140425/bd34858e/attachment.html>

Sandro Cumerlato wrote

SendMessage(Memo1.Handle, EM_LINESCROLL, 0, Memo1.Lines.Count);

AFAIK, this is a Windows-only option that does not work cross-platform (and hence should not be recommended). OTOH, I don't know a better one :-( .

-Michael