From 88e2799ba58d7761dacba9b24d95be174d4e4dc7 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 28 Nov 2014 20:33:46 +0000
Subject: [PATCH] richmemo: allow selectchange event win32

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3807 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/richmemo/win32/win32richmemo.pas | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/components/richmemo/win32/win32richmemo.pas b/components/richmemo/win32/win32richmemo.pas
index cbea2b1d6..1d5ddf839 100644
--- a/components/richmemo/win32/win32richmemo.pas
+++ b/components/richmemo/win32/win32richmemo.pas
@@ -249,33 +249,21 @@ end;
 class procedure TWin32WSCustomRichMemo.SetSelStart(const ACustomEdit: TCustomEdit; NewStart: integer);  
 var
   range : Tcharrange;
-  eventmask : LParam;
 begin
-  eventmask := SendMessage(ACustomEdit.Handle, EM_GETEVENTMASK, 0, 0);
-  SendMessage(ACustomEdit.Handle, EM_SETEVENTMASK, 0, 0);
-
   range.cpMin := NewStart;
   range.cpMax := NewStart;
   SendMessage(ACustomEdit.Handle, EM_EXSETSEL, 0, LPARAM(@range));
   InvalidateRect(ACustomEdit.Handle, nil, false);
-
-  SendMessage(ACustomEdit.Handle, EM_SETEVENTMASK, 0, eventmask);
 end;
 
 class procedure TWin32WSCustomRichMemo.SetSelLength(const ACustomEdit: TCustomEdit; NewLength: integer);  
 var
   range : Tcharrange;
-  eventmask : LParam;
 begin
-  eventmask := SendMessage(ACustomEdit.Handle, EM_GETEVENTMASK, 0, 0);
-  SendMessage(ACustomEdit.Handle, EM_SETEVENTMASK, 0, 0);
-
   SendMessage(ACustomEdit.Handle, EM_EXGETSEL, 0, LPARAM(@range));
   range.cpMax := range.cpMin + NewLength;
   SendMessage(ACustomEdit.Handle, EM_EXSETSEL, 0, LPARAM(@range));
   InvalidateRect(ACustomEdit.Handle, nil, false);
-
-  SendMessage(ACustomEdit.Handle, EM_SETEVENTMASK, 0, eventmask);
 end;
 
 class procedure TWin32WSCustomRichMemo.CutToClipboard(const AWinControl: TWinControl);