paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 04:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

now using SynRegExpr for Find-Replace in IDE

Browse Source 
git-svn-id: trunk@2457 -
This commit is contained in:
mattias 2002-08-17 23:41:23 +00:00
parent 598da81de8
commit eff3f13ca9
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/synedit/synedit.pp
View File

@ -6529,6 +6529,9 @@ var
bPrompt: boolean; bPrompt: boolean;
bReplace, bReplaceAll: boolean; bReplace, bReplaceAll: boolean;
nAction: TSynReplaceAction; nAction: TSynReplaceAction;
{$IFDEF SYN_LAZARUS}
CurReplace: string;
{$ENDIF}
function InValidSearchRange(First, Last: integer): boolean; function InValidSearchRange(First, Last: integer): boolean;
begin begin
@ -6585,7 +6588,9 @@ begin
fTSearch.RegularExpressions := ssoRegExpr in AOptions; fTSearch.RegularExpressions := ssoRegExpr in AOptions;
fTSearch.RegExprSingleLine := not (ssoRegExprMultiLine in AOptions); fTSearch.RegExprSingleLine := not (ssoRegExprMultiLine in AOptions);
// search while the current search position is inside of the search range // search while the current search position is inside of the search range
{$IFNDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
fTSearch.Replacement:=AReplace;
{$ELSE}
nSearchLen := Length(ASearch); nSearchLen := Length(ASearch);
{$ENDIF} {$ENDIF}
nReplaceLen := Length(AReplace); nReplaceLen := Length(AReplace);
@ -6615,16 +6620,23 @@ begin
if not bBackward then CaretXY := ptCurrent; if not bBackward then CaretXY := ptCurrent;
// If it's a search only we can leave the procedure now. // If it's a search only we can leave the procedure now.
if not (bReplace or bReplaceAll) then exit; if not (bReplace or bReplaceAll) then exit;
{$IFDEF SYN_LAZARUS}
nSearchLen := fTSearch.ResultLengths[n];
CurReplace := fTSearch.GetReplace(n);
nReplaceLen := Length(CurReplace);
{$ENDIF}
// Prompt and replace or replace all. If user chooses to replace // Prompt and replace or replace all. If user chooses to replace
// all after prompting, turn off prompting. // all after prompting, turn off prompting.
if bPrompt and Assigned(fOnReplaceText) then begin if bPrompt and Assigned(fOnReplaceText) then begin
nAction := DoOnReplaceText(ASearch, AReplace, ptCurrent.Y, nFound); nAction := DoOnReplaceText(ASearch,
{$IFDEF SYN_LAZARUS}CurReplace{$ELSE}AReplace{$ENDIF},
ptCurrent.Y, nFound);
if nAction = raCancel then exit; if nAction = raCancel then exit;
end else end else
nAction := raReplace; nAction := raReplace;
if not (nAction = raSkip) then begin if not (nAction = raSkip) then begin
// user has been prompted and has requested to silently replace all // user has been prompted and has requested to silently replace all
// so turn off prompting // so turn off prompting
if nAction = raReplaceAll then begin if nAction = raReplaceAll then begin
if not bReplaceAll then begin if not bReplaceAll then begin
bReplaceAll := TRUE; bReplaceAll := TRUE;
@ -6632,7 +6644,8 @@ begin
end; end;
bPrompt := False; bPrompt := False;
end; end;
SetSelTextExternal(AReplace); SetSelTextExternal(
{$IFDEF SYN_LAZARUS}CurReplace{$ELSE}AReplace{$ENDIF});
end; end;
// fix the caret position and the remaining results // fix the caret position and the remaining results
if not bBackward then begin if not bBackward then begin