pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: make indeltext method public

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3787 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-26 21:04:11 +00:00
parent 5dc465cd2f
commit 0b78422b43
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/richmemo/richmemo.pas
View File

@ -119,6 +119,8 @@ type
function LoadRichText(Source: TStream): Boolean; virtual; function LoadRichText(Source: TStream): Boolean; virtual;
function SaveRichText(Dest: TStream): Boolean; virtual; function SaveRichText(Dest: TStream): Boolean; virtual;
function InDelText(const UTF8Text: string; InsStartChar, ReplaceLength: Integer): Integer; virtual;
procedure SetSelLengthFor(const aselstr: string); procedure SetSelLengthFor(const aselstr: string);
function Search(const ANiddle: string; Start, Len: Integer; const SearchOpt: TSearchOptions): Integer; function Search(const ANiddle: string; Start, Len: Integer; const SearchOpt: TSearchOptions): Integer;
@ -515,6 +517,16 @@ begin
Result := false; Result := false;
end; end;
function TCustomRichMemo.InDelText(const UTF8Text: string; InsStartChar, ReplaceLength: Integer): Integer;
begin
Result:=0;
if not HandleAllocated then HandleNeeded;
if HandleAllocated then begin
TWSCustomRichMemoClass(WidgetSetClass).InDelText(Self, UTF8Text, InsStartChar, ReplaceLength);
Result:=UTF8length(UTF8Text);
end;
end;
procedure TCustomRichMemo.SetSelLengthFor(const aselstr: string); procedure TCustomRichMemo.SetSelLengthFor(const aselstr: string);
begin begin
SelLength:=UTF8Length(aselstr); SelLength:=UTF8Length(aselstr);