From 98f42bc1d56fc11ad53a77ad3d48159f2ace7d6f Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 21 Jun 2009 10:52:02 +0000
Subject: [PATCH] renamed GetStyleLength to GetContStyleLength and moved
 protected section

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

diff --git a/components/richmemo/richmemo.pas b/components/richmemo/richmemo.pas
index 5a4a6f976..717ba4a6b 100644
--- a/components/richmemo/richmemo.pas
+++ b/components/richmemo/richmemo.pas
@@ -50,13 +50,13 @@ type
     procedure CreateWnd; override;    
     procedure UpdateRichMemo; virtual;
     procedure SetHideSelection(AValue: Boolean);
+    function GetContStyleLength(TextStart: Integer): Integer;
   public
     procedure SetTextAttributes(TextStart, TextLen: Integer; const TextParams: TFontParams); virtual;
     function GetTextAttributes(TextStart: Integer; var TextParams: TFontParams): Boolean; virtual;
-    function GetStyleRange(TextStart: Integer; var RangeStart, RangeLen: Integer): Boolean; virtual;
+    function GetStyleRange(CharOfs: Integer; var RangeStart, RangeLen: Integer): Boolean; virtual;
 
     procedure SetTextAttributes(TextStart, TextLen: Integer; AFont: TFont);
-    function GetStyleLength(TextStart: Integer): Integer;
     procedure SetRangeColor(TextStart, TextLength: Integer; FontColor: TColor);
     procedure SetRangeParams(TextStart, TextLength: Integer; ModifyMask: TTextModifyMask;
       const FontName: String; FontSize: Integer; FontColor: TColor; AddFontStyle, RemoveFontStyle: TFontStyles);
@@ -208,11 +208,11 @@ begin
     Result := false;
 end;
 
-function TCustomRichMemo.GetStyleRange(TextStart: Integer; var RangeStart,
+function TCustomRichMemo.GetStyleRange(CharOfs: Integer; var RangeStart,
   RangeLen: Integer): Boolean;
 begin
   if HandleAllocated then
-    Result := TWSCustomRichMemoClass(WidgetSetClass).GetStyleRange(Self, TextStart, RangeStart, RangeLen)
+    Result := TWSCustomRichMemoClass(WidgetSetClass).GetStyleRange(Self, CharOfs, RangeStart, RangeLen)
   else begin
     RangeStart := -1;
     RangeLen := -1;
@@ -220,7 +220,7 @@ begin
   end;
 end;
 
-function TCustomRichMemo.GetStyleLength(TextStart: Integer): Integer;
+function TCustomRichMemo.GetContStyleLength(TextStart: Integer): Integer;
 var
   ofs, len  : Integer;
 begin
@@ -254,7 +254,7 @@ begin
     if tmm_Size in ModifyMask then p.Size := FontSize;
     if tmm_Styles in ModifyMask then p.Style := p.Style + AddFontStyle - RemoveFontStyle;
 
-    l := GetStyleLength(i);
+    l := GetContStyleLength(i);
     if i + l > j then l := j - i;
     if l = 0 then l := 1;
     SetTextAttributes(i, l, p);