pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: win32 fix the regerssion in getting sub text

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5708 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2017-01-26 18:29:39 +00:00
parent f1a4e8043a
commit f75e49b2fd
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/richmemo/win32/win32richmemo.pas
View File

@ -1152,6 +1152,7 @@ begin
RichEditManager.GetSelRange(Hnd, Orig); RichEditManager.GetSelRange(Hnd, Orig);
end; end;
RichEditManager.SetSelection(Hnd, TextStart, TextLen);
isUnicode:=AsUnicode; isUnicode:=AsUnicode;
if AsUnicode then if AsUnicode then
utxt:=RichEditManager.GetTextW(Hnd, true) utxt:=RichEditManager.GetTextW(Hnd, true)