[SOLVED] TMemo scrolling issue

[trev]

Code: Pascal  [Select][+][-]

1.       // select characters to highlight
2.       Memo.SelStart := PosEx(UpperCase(Edit.Text), UpperCase(Memo.Text), searchOFS) - 1;
3.       Memo.SelLength := Length(Edit.Text);  
4.  

This does not scroll the relevant text into the viewable TMemo window. In fact, it has no effect - no scrolling at all The highlighting does work

Sample project showing issue attached. Lazarus and OS details vvvvv below vvvvv

[skalogryz]

try r61438

[trev]

Thanks Dmitry! It now works as expected 

[skalogryz]

thank you! the more you find, the better the widgetset overall