FindReplace.pas

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.