From cce00848574d691b73ce04bb7e0eab1772838610 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 28 Nov 2014 06:11:15 +0000
Subject: [PATCH] richmemo: added OnSelectionChange event

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3802 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/richmemo/richmemo.pas | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/components/richmemo/richmemo.pas b/components/richmemo/richmemo.pas
index ded16b987..caeecc134 100644
--- a/components/richmemo/richmemo.pas
+++ b/components/richmemo/richmemo.pas
@@ -81,7 +81,9 @@ type
   TCustomRichMemo = class(TCustomMemo)
   private
     fHideSelection  : Boolean;
+    fOnSelectionChange: TNotifyEvent;
   protected
+    procedure DoSelectionChange;
     class procedure WSRegisterClass; override;
     procedure CreateWnd; override;    
     procedure UpdateRichMemo; virtual;
@@ -89,7 +91,6 @@ type
     function GetContStyleLength(TextStart: Integer): Integer;
     
     procedure SetSelText(const SelTextUTF8: string); override;
-    
   public
     procedure CopyToClipboard; override;
     procedure CutToClipboard; override;
@@ -126,6 +127,7 @@ type
     function Search(const ANiddle: string; Start, Len: Integer; const SearchOpt: TSearchOptions): Integer;
 
     property HideSelection : Boolean read fHideSelection write SetHideSelection;
+    property OnSelectionChange: TNotifyEvent read fOnSelectionChange write fOnSelectionChange;
   end;
   
   TRichMemo = class(TCustomRichMemo)
@@ -167,6 +169,7 @@ type
     property OnMouseWheel;
     property OnMouseWheelDown;
     property OnMouseWheelUp;
+    property OnSelectionChange;
     property OnStartDrag;
     property OnUTF8KeyPress;
     property ParentBidiMode;
@@ -252,6 +255,11 @@ begin
   fHideSelection := AValue;   
 end;
 
+procedure TCustomRichMemo.DoSelectionChange;
+begin
+  if Assigned(fOnSelectionChange) then fOnSelectionChange(Self);
+end;
+
 class procedure TCustomRichMemo.WSRegisterClass;  
 begin
   inherited;
@@ -410,6 +418,7 @@ begin
   end;
 end;
 
+
 procedure TCustomRichMemo.CopyToClipboard;  
 begin
   if HandleAllocated then