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

richmemo: win32 prevent selection change on inline insert

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3901 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-01-25 19:28:08 +00:00
parent beb99b00e3
commit 48db5117f5
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -811,6 +811,7 @@ var
c: TWin32Inline; c: TWin32Inline;
Obj: TREOBJECT; Obj: TREOBJECT;
sl, ss: Integer; sl, ss: Integer;
eventmask: Integer;
const const
PointSize = 72.0; PointSize = 72.0;
RtfSizeToInch = 2.54 * 1000.0; RtfSizeToInch = 2.54 * 1000.0;
@ -822,6 +823,7 @@ begin
hnd:=(AWinControl.Handle); hnd:=(AWinControl.Handle);
RichEditManager.GetSelection(hnd, ss, sl); RichEditManager.GetSelection(hnd, ss, sl);
eventmask:=RichEditManager.SetEventMask(AWinControl.Handle, 0);
try try
RichEditManager.SetSelection(hnd, ATextStart, ATextLength); RichEditManager.SetSelection(hnd, ATextStart, ATextLength);
SendMessage(hnd, EM_GETOLEINTERFACE, 0, LPARAM(@rch)); SendMessage(hnd, EM_GETOLEINTERFACE, 0, LPARAM(@rch));
@ -859,6 +861,7 @@ begin
if Result then wsObj:=c; if Result then wsObj:=c;
finally finally
RichEditManager.SetSelection(hnd, ss, sl); RichEditManager.SetSelection(hnd, ss, sl);
RichEditManager.SetEventMask(AWinControl.Handle, eventmask);
end; end;
end; end;