richmemo: win32 fix the regerssion in getting sub text

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5708 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2017-01-26 18:29:39 +00:00 · 2017-01-26 18:29:39 +00:00 · f75e49b2fd
commit f75e49b2fd
parent f1a4e8043a
1 changed files with 1 additions and 0 deletions
--- a/components/richmemo/win32/win32richmemo.pas
+++ b/components/richmemo/win32/win32richmemo.pas
@ -1152,6 +1152,7 @@ begin
    RichEditManager.GetSelRange(Hnd, Orig);
  end;

+  RichEditManager.SetSelection(Hnd, TextStart, TextLen);
  isUnicode:=AsUnicode;
  if AsUnicode then
    utxt:=RichEditManager.GetTextW(Hnd, true)