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

richmemo: implement the win32 search, parially based on patch by Krzysztof Dibowski (#17388)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3772 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-24 07:59:03 +00:00
parent 6fa141025c
commit 3c86805627
2 changed files with 63 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -98,6 +98,9 @@ type
const ANumber: TIntParaNumbering); override;
class procedure InDelText(const AWinControl: TWinControl; const TextUTF8: String; DstStart, DstLen: Integer); override;
class function Search(const AWinControl: TWinControl; const ANiddle: string;
const SearchOpts: TIntSearchOpt): Integer; override;
end;
implementation
@@ -155,7 +158,7 @@ begin
if res>0 then begin
SetLength(w, res);
FillChar(t, sizeof(t), 0);
t.cb:=length(w)*sizeof(WideChar);
t.cb:=(length(w)+1)*sizeof(WideChar);
t.flags:=GT_DEFAULT;
t.codepage:=CP_WINUNICODE;
res:=SendMessageW(fHandle, EM_GETTEXTEX, WPARAM(@t), LPARAM(@w[1]));
@@ -186,7 +189,7 @@ begin
if res>0 then begin
SetLength(s, res);
FillChar(t, sizeof(t), 0);
t.cb:=length(s);
t.cb:=length(s)+1;
t.flags:=GT_DEFAULT;
t.codepage:=CP_ACP;
res:=SendMessageW(fHandle, EM_GETTEXTEX, WPARAM(@t), LPARAM(@s[1]));
@@ -586,8 +589,16 @@ end;
class procedure TWin32WSCustomRichMemo.InDelText(const AWinControl:TWinControl;
const TextUTF8:String;DstStart,DstLen:Integer);
begin
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
RichEditManager.SetText(AWinControl.Handle,UTF8Decode(TextUTF8),DstStart,DstLen);
end;
class function TWin32WSCustomRichMemo.Search(const AWinControl: TWinControl;
const ANiddle: string; const SearchOpts: TIntSearchOpt): Integer;
begin
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
Result:=RichEditManager.Find(AWinControl.Handle, UTF8Decode(ANiddle), SearchOpts);
end;
end.