unit FindReplace;
(*
TSynSearchOption = (ssoMatchCase, ssoWholeWord, ssoBackwards,
ssoEntireScope, ssoSelectedOnly, ssoReplace, ssoReplaceAll, ssoPrompt);
frDisableMatchCase
Disables (grays) the Match Case check box in a find dialog.
frDisableUpDown
Disables (grays) the Up and Down buttons, which determine the direction of the search.
frDisableWholeWord
Disables (grays) the Match Whole Word check box of find dialog.
frDown = not ssoBackwards
Selects the Down button by default when the dialog opens. If the frDown flags is off, Up is selected when the dialog opens. (By default, frDown is on.)
frFindNext
This flag is turned on when the user clicks the Find Next button and turned off when the dialog closes.
frHideMatchCase
Removes the Match Case check box from the dialog.
frHideWholeWord
Removes the Match Whole Word check box from the dialog.
frHideUpDown
Removes the Up and Down buttons from the dialog.
frMatchCase = ssoMatchCase
This flag is turned on (off) when the user selects (deselects) the Match Case check box. To select the check box by default when the dialog opens, set frMatchCase at design time.
frReplace = ssoReplace
Applies to TReplaceDialog only. This flag is set by the system to indicate that the application should replace the current occurrence (and only the current occurrence) of the FindText string with the ReplaceText string. Not used in search routines.
frReplaceAll = ssoReplaceAll
Applies to TReplaceDialog only. This flag is set by the system to indicate that the application should replace all occurrences of the FindText string with the ReplaceText string.
frShowHelp
Displays a Help button in the dialog.
frWholeWord = ssoWholeWord
This flag is turned on (off) when the user selects (deselects) the Match Whole Word check box. To select the check box by default when the dialog opens, set frWholeWord at design time.
*)
interface
uses
Windows, Messages, SysUtils, Classes, Dialogs, SynEdit, System.UITypes;
type
TSynEditFindReplace = class(TComponent)
private
fEditor: TSynEdit;
fReplaceDialog: TReplaceDialog;
fFindDialog: TFindDialog;
fAutofocus: boolean;
protected
type
TFindDirection = (sdDefault, sdForwards, sdBackwards);
procedure OnFind(Sender: TObject); virtual;
procedure OnReplace(Sender: TObject); virtual;
procedure DoFind(dialog: TFindDialog; direction: TFindDirection); overload;
procedure DoReplace(dialog: TReplaceDialog; direction: TFindDirection);
function GetDirection(dialog: TFindDialog): TFindDirection;
public
constructor Create(AOwner: TComponent); override;
property FindDialog: TFindDialog read fFindDialog;
property ReplaceDialog: TReplaceDialog read fReplaceDialog;
procedure CloseDialogs;
procedure FindExecute;
procedure ReplaceExecute;
procedure FindContinue;
procedure FindNext;
procedure FindPrev;
procedure GoToLine(LineNumber: integer);
published
property Editor: TSynEdit read fEditor write fEditor;
property Autofocus: boolean read fAutofocus write fAutofocus;
end;
implementation
uses
SynEditTypes;
constructor TSynEditFindReplace.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fFindDialog := TFindDialog.Create(Self);
fFindDialog.OnFind := OnFind;
fReplaceDialog := TReplaceDialog.Create(Self);
fReplaceDialog.OnReplace := OnReplace;
fReplaceDialog.OnFind := OnFind;
fReplaceDialog.Options := fReplaceDialog.Options + [frHideWholeWord]; // TODO: currently not supported (see below)
end;
function TSynEditFindReplace.GetDirection(dialog: TFindDialog): TFindDirection;
begin
if frDown in dialog.Options then
result := sdForwards
else
result := sdBackwards;
end;
procedure TSynEditFindReplace.DoFind(dialog: TFindDialog; direction: TFindDirection);
var
opt: TSynSearchOptions;
found: boolean;
begin
if direction = sdDefault then direction := GetDirection(dialog);
if fEditor.SelAvail then
begin
if direction = sdForwards then
begin
fEditor.SelStart := fEditor.SelStart + 1;
fEditor.SelLength := 0;
end
else
begin
// Links von Selektion springen
fEditor.SelLength := 0;
end;
end;
opt := [];
if frMatchCase in dialog.Options then Include(opt, ssoMatchCase);
if frWholeWord in dialog.Options then Include(opt, ssoWholeWord);
//if frReplace in dialog.Options then Include(opt, ssoReplace);
//if frReplaceAll in dialog.Options then Include(opt, ssoReplaceAll);
if direction = sdBackwards then Include(opt, ssoBackwards);
//Include(opt, ssoPrompt); // TODO: test. geht nicht?
//if fEditor.SelAvail then Include(opt, ssoSelectedOnly); // TODO: geht nicht, weil er bei einer suche ja dann etwas selektirert und dann nicht weitergeht
Exclude(opt, ssoEntireScope); // TODO: ok?
found := fEditor.SearchReplace(dialog.FindText, '', opt) > 0;
if not found then
begin
// TODO: If single replace was chosen, behave like Notepad and select the last replaced word
if direction = sdForwards then
MessageDlg('End of document reached.', mtInformation, [mbOk], 0)
else
MessageDlg('Begin of document reached.', mtInformation, [mbOk], 0);
end;
if fAutofocus and fEditor.CanFocus then fEditor.SetFocus;
end;
procedure TSynEditFindReplace.DoReplace(dialog: TReplaceDialog; direction: TFindDirection);
var
opt: TSynSearchOptions;
numReplacements: integer;
bakSelLenght: Integer;
stmp: string;
bakSelStart: Integer;
begin
try
if direction = sdDefault then direction := GetDirection(dialog);
opt := [];
if frMatchCase in dialog.Options then Include(opt, ssoMatchCase);
if frWholeWord in dialog.Options then Include(opt, ssoWholeWord);
if frReplace in dialog.Options then Include(opt, ssoReplace);
if frReplaceAll in dialog.Options then Include(opt, ssoReplaceAll);
if direction = sdBackwards then Include(opt, ssoBackwards);
Include(opt, ssoPrompt); // TODO: test. geht nicht?
if fEditor.SelAvail then Include(opt, ssoSelectedOnly);
Exclude(opt, ssoEntireScope); // TODO: ok?
if not (ssoReplaceAll in opt) then
begin
if fEditor.SelLength = 0 then
begin
DoFind(dialog, sdForwards);
exit;
end;
end;
fEditor.BeginUpdate; // TODO: geht nicht?
//fEditor.BeginUndoBlock;
try
bakSelLenght := 0; // avoid compiler warning
if ssoReplaceAll in opt then
begin
// Remember the selection length
bakSelLenght := fEditor.SelLength;
//bakSelStart := fEditor.SelStart;
// Remember the selection start (we don't backup fEditor.SelStart, since the replacement might change the location)!
// We assume that character #1 will not be in a text file!
stmp := fEditor.Text;
Insert(chr(1), stmp, fEditor.SelStart+1);
//showmessage(inttostr(ord(stmp[fEditor.SelStart-1])));
//showmessage(inttostr(ord(stmp[fEditor.SelStart])));
//showmessage(inttostr(ord(stmp[fEditor.SelStart+1])));
fEditor.Text := stmp;
// When the user presses "Replace all", then we want to replace from the very beginning!
fEditor.SelStart := 0;
fEditor.SelLength := 0;
end;
numReplacements := fEditor.SearchReplace(dialog.FindText, dialog.ReplaceText, opt);
if ssoReplaceAll in opt then
begin
stmp := fEditor.Text;
bakSelStart := AnsiPos(chr(1), stmp)-1;
Delete(stmp, bakSelStart+1, 1);
fEditor.Text := stmp;
fEditor.SelStart := bakSelStart;
fEditor.SelLength := bakSelLenght;
// TODO: The SelStart and SelLength were kept, but the scrollposition did not. What can we do?
end;
finally
//fEditor.EndUndoBlock;
fEditor.EndUpdate;
end;
if not (ssoReplaceAll in opt) then
begin
DoFind(dialog, sdForwards);
end
else
begin
ShowMessageFmt('%d replaced.', [numReplacements]);
end;
finally
if fAutofocus and fEditor.CanFocus then fEditor.SetFocus;
end;
end;
procedure TSynEditFindReplace.OnFind(Sender: TObject);
begin
DoFind(Sender as TFindDialog, sdDefault);
end;
procedure TSynEditFindReplace.OnReplace(Sender: TObject);
begin
DoReplace(Sender as TReplaceDialog, sdDefault);
end;
procedure TSynEditFindReplace.FindExecute;
begin
fFindDialog.Execute;
end;
procedure TSynEditFindReplace.ReplaceExecute;
begin
fReplaceDialog.Execute;
end;
procedure TSynEditFindReplace.FindContinue;
begin
if fFindDialog.FindText = '' then
begin
fFindDialog.Options := fFindDialog.Options + [frDown]; // Default direction: down
FindExecute;
end
else
DoFind(fFindDialog, sdDefault);
end;
procedure TSynEditFindReplace.FindNext;
begin
if fFindDialog.FindText = '' then
begin
fFindDialog.Options := fFindDialog.Options + [frDown];
FindExecute;
end
else
DoFind(fFindDialog, sdForwards);
end;
procedure TSynEditFindReplace.FindPrev;
begin
if fFindDialog.FindText = '' then
begin
fFindDialog.Options := fFindDialog.Options - [frDown];
FindExecute;
end
else
DoFind(fFindDialog, sdBackwards);
end;
procedure TSynEditFindReplace.GoToLine(LineNumber: integer);
var
currentLine: integer;
i: integer;
begin
currentLine := 1;
for i := 1 to fEditor.GetTextLen do
begin
if currentLine = LineNumber then
begin
fEditor.selStart := i;
fEditor.SetFocus;
Exit;
end
else if fEditor.Text = #$D then
inc(currentLine);
end;
end;
procedure TSynEditFindReplace.CloseDialogs;
begin
fFindDialog.CloseDialog;
fReplaceDialog.CloseDialog;
end;
end.