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

richmemo: updating search method to return the length of the found text (for cases, where found text could be different than a searched one. I.e. Hebrew or Arabic scripts)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5115 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2016-08-31 15:59:03 +00:00
parent a53eb905c0
commit df60a80341
4 changed files with 71 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
components/richmemo/win32/win32richmemo.pas
View File

@@ -122,6 +122,9 @@ type
class function Search(const AWinControl: TWinControl; const ANiddle: string;
const SearchOpts: TIntSearchOpt): Integer; override;
class function isSearchEx: Boolean; override;
class function SearchEx(const AWinControl: TWinControl; const ANiddle: string;
const SearchOpts: TIntSearchOpt; var ATextStart, ATextLength: Integer ): Boolean; override;
class procedure SetZoomFactor(const AWinControl: TWinControl; AZoomFactor: Double); override;
@@ -166,7 +169,7 @@ var
NCPaint : TNCPaintProc = nil;
function GetSelRTF(amemo: TCustomRichMemo): string;
implementation
type
@@ -1113,6 +1116,19 @@ begin
Result:=RichEditManager.Find(AWinControl.Handle, UTF8Decode(ANiddle), SearchOpts);
end;
class function TWin32WSCustomRichMemo.isSearchEx: Boolean;
begin
Result:=true;
end;
class function TWin32WSCustomRichMemo.SearchEx(const AWinControl: TWinControl;
const ANiddle: string; const SearchOpts: TIntSearchOpt; var ATextStart,
ATextLength: Integer): Boolean;
begin
ATextStart:=RichEditManager.Find(AWinControl.Handle, UTF8Decode(ANiddle), SearchOpts, ATextLength);
Result:=ATextStart>=0;
end;
class procedure TWin32WSCustomRichMemo.SetZoomFactor(
const AWinControl: TWinControl; AZoomFactor: Double);
var