From 7ed46a00bca8d7866a9fde6ee08fa20a5e3d7500 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 20 Apr 2016 03:51:06 +0000
Subject: [PATCH] richmemo: carbon - trigger selection change event, if changed
 via code.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4624 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/richmemo/carbon/carbonrichmemo.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/components/richmemo/carbon/carbonrichmemo.pas b/components/richmemo/carbon/carbonrichmemo.pas
index 96bf06f2a..52b21c972 100644
--- a/components/richmemo/carbon/carbonrichmemo.pas
+++ b/components/richmemo/carbon/carbonrichmemo.pas
@@ -90,6 +90,9 @@ type
 
 implementation
 
+type
+  TIntCustomRichMemo = class(TCustomRichMemo);
+
 // Notes:
 
 // http://developer.apple.com/DOCUMENTATION/Carbon/Reference/Multilingual_Text_Engine/Reference/reference.html
@@ -456,11 +459,14 @@ class procedure TCarbonWSCustomRichMemo.SetSelStart(
   const ACustomEdit: TCustomEdit; NewStart: integer);
 var
   edit : TCarbonRichEdit;
+  sl   : Integer;
 begin
   edit := GetValidRichEdit(ACustomEdit);
   if Assigned(edit) then begin
     edit.SetSelStart(NewStart);
     TXNShowSelection( HITextViewGetTXNObject(  edit.Widget ), false);
+
+    TIntCustomRichMemo(ACustomEdit).DoSelectionChange;
   end;
 end;
 {$ENDIF}
@@ -524,9 +530,6 @@ begin
   CGContextFillRect(aContext, r);
 end;
 
-type
-  TIntCustomRichMemo = class(TCustomRichMemo);
-
 function CarbonRichEdit_ChangeSel(ANextHandler: EventHandlerCallRef;
   AEvent: EventRef;
   AWidget: TCarbonWidget): OSStatus; {$IFDEF darwin}mwpascal;{$ENDIF}