From b4799b072a884d8fb9ff7222cf74c8a6349a3273 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 18 Mar 2015 15:53:20 +0000
Subject: [PATCH] richmemo: update helper to adjust tabs for all selected
 paragraphs, rather than under cursor position

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4049 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/richmemo/richmemohelpers.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/richmemo/richmemohelpers.pas b/components/richmemo/richmemohelpers.pas
index 6ebc74498..8e226f306 100644
--- a/components/richmemo/richmemohelpers.pas
+++ b/components/richmemo/richmemohelpers.pas
@@ -266,7 +266,7 @@ begin
     Exit
   else begin
     stop.Tabs[index].Offset:=AValue;
-    m.SetParaTabs(m.SelStart, 1, stop);
+    m.SetParaTabs(m.SelStart, m.SelLength, stop);
   end;
 end;
 
@@ -280,7 +280,7 @@ begin
   if stop.Count<AValue then
     SetLength(stop.Tabs, AValue);
   stop.Count:=AValue;
-  m.SetParaTabs(m.SelStart, 1, stop);
+  m.SetParaTabs(m.SelStart, m.SelLength, stop);
 end;
 
 function TRichEditParaAttributes.GetAlignment: TRichEditAlignment;