WebSVN – fastphp – Diff – /trunk/FindReplace.pas

     procedure FindContinue;
     procedure FindNext;
     procedure FindPrev;
     procedure GoToLine( LineNumber: integer );
-    procedure GetLineNumber( Position: Integer; var LineNumber, ColumnNumber: Integer );
-    {returns the line and column number the cursor is on in the editor}
   published
     property Editor: TSynEdit read fEditor write fEditor;
   end;
   {create the replace dialog}
   fReplaceDialog := TReplaceDialog.Create( Self );
   {set up the event handlers}
   fReplaceDialog.OnReplace := OnReplace;
   fReplaceDialog.OnFind := OnFind;
+  fReplaceDialog.Options := fReplaceDialog.Options + [frHideWholeWord]; // TODO: currently not supported (see below)
   {set find's default action on end of text to alert the user.
    If a replace function changes this it is it's responsibility
    to change it back}
   FindActionOnEnd := frcAlertUser;
   ReplaceDialog := Sender as TReplaceDialog;
   {set the action on end to alert the function not the user}
   FindActionOnEnd := frcAlertReplace;
+  // TODO: UnDo does not work
   {now replace the word}
   if frReplace in ReplaceDialog.Options then
     DoReplace(ReplaceDialog)
   else
     DoReplaceAll(ReplaceDialog);
   FindActionOnEnd := frcAlertUser;
 end;
 procedure TFindReplace.DoReplace(dialog: TReplaceDialog);
 begin
-  {if the user has highlighted a block of text only replace
-   within that block}
-  if fEditor.SelLength > 0 then
-  begin
-    FindForwards( dialog, fEditor.selStart, fEditor.selStart + fEditor.selLength );
-    TryAndReplace(dialog);
-  end
-  {otherwise replace within the whole of the text}
-  else
-  begin
-    FindForwards( dialog, fEditor.selStart, fEditor.GetTextLen );
+  FindForwards( dialog, fEditor.selStart, fEditor.GetTextLen );
-    TryAndReplace(dialog);
+  TryAndReplace(dialog);
-  end;
+  FindForwards( dialog, fEditor.selStart, fEditor.GetTextLen ); // Jump to the next occurrence
 end;
 procedure TFindReplace.DoReplaceAll(dialog: TReplaceDialog);
 begin
   {see comments for DoReplace}
+  fEditor.BeginUpdate;
+  fEditor.BeginUndoBlock;
+  try
+    {if the user has highlighted a block of text only replace
+     within that block}
-  if fEditor.SelLength > 0 then
+    if fEditor.SelLength > 0 then
-  begin
+    begin
+      // TODO: test this functionality
-    FindForwards( dialog, fEditor.selStart, fEditor.selStart + fEditor.selLength );
+      FindForwards( dialog, fEditor.selStart, fEditor.selStart + fEditor.selLength );
-    {keep replacing until we reach the end of the text}
+      {keep replacing until we reach the end of the text}
-    while FindActionOnEnd <> frcEndReached do
+      while FindActionOnEnd <> frcEndReached do
-    begin
+      begin
-      {we enclose the TryAndReplace in a loop because there might be more
+        {we enclose the TryAndReplace in a loop because there might be more
-        FindForwards( dialog, fEditor.selStart, fEditor.selStart + fEditor.selLength );
+          FindForwards( dialog, fEditor.selStart, fEditor.selStart + fEditor.selLength );
-      FindForwards( dialog, fEditor.selStart, fEditor.selStart + fEditor.selLength );
+        FindForwards( dialog, fEditor.selStart, fEditor.selStart + fEditor.selLength );
-    end;
+      end;
-  end
+    end
-  else
+    else {otherwise replace within the whole of the text}
-  begin
+    begin
-    FindForwards( dialog, fEditor.selStart, fEditor.GetTextLen );
+      FindForwards( dialog, fEditor.selStart, fEditor.GetTextLen );
-    while FindActionOnEnd <> frcEndReached do
+      while FindActionOnEnd <> frcEndReached do
-    begin
+      begin
-      while TryAndReplace(dialog) do
+        while TryAndReplace(dialog) do
-        FindForwards( dialog, fEditor.selStart, fEditor.GetTextLen );
+          FindForwards( dialog, fEditor.selStart, fEditor.GetTextLen );
-      FindForwards( dialog, fEditor.selStart, fEditor.GetTextLen );
+        FindForwards( dialog, fEditor.selStart, fEditor.GetTextLen );
-    end;
+      end;
-  end;
+    end;
+  finally
+    fEditor.EndUpdate;
+    fEditor.EndUndoBlock;
+  end;
 end;
 function TFindReplace.TryAndReplace(dialog: TReplaceDialog): boolean;
 {returns true if a replacement was made and false otherwise.  This is
  so a function can keep calling TryAndReplace until it returns false
  since there might be more than one occurence of the word to replace
  in the line}
 var
   LineNumber, ColumnNumber: integer;
-  ReplacementString: string;  {string used to replace the text}
-  OldSelStart: integer;  {the position of the cursor prior to the text
+  OldSelStart: integer;  {the position of the cursor prior to the text being replaced}
-   being replaced}
 begin
   {assume no replacement was made}
   Result := false;
   if not (FindActionOnEnd = frcEndReached) then
   begin
     {get the line number and column number of the cursor which
      is needed for string manipulations later.  We should do this
      before the call to clear selection}
+    // TODO: only replace beginning at the selected section / caret, not from beginning of the line!!
-    GetLineNumber( fEditor.SelStart, LineNumber, ColumnNumber );
+    LineNumber := fEditor.CaretY-1;
+    ColumnNumber := fEditor.CaretX-1;
     {get the position of the cursor prior to the replace operation
      so we cab restore it later}
     OldSelStart := fEditor.SelStart;
-    {delete the unwanted word}
-    fEditor.ClearSelection;
+    // Note: "fEditor.ClearSelection" can be used to delete the selected text
-    {Add the replacement text}
-    {Since we can't directly manipulate the Lines field of the
-     TCustomMemo component we'll extract the line, manipulate it
+    // TODO: only replace beginning at the selected section / caret, not from beginning of the line
-     then put it back}
+    // TODO: support "whole word" ?
-    ReplacementString := fEditor.Lines[ LineNumber ];
-    {truncate the newline (#$A#$D) at the end of tempstring}
-    SetLength( ReplacementString, Length( ReplacementString )-2 );
-    {add the replacement text into tempstring}
+    if frMatchCase in dialog.Options then
-    Insert( dialog.ReplaceText, ReplacementString, ColumnNumber+1 );
-    {remove the old string and add the new string into the editor}
+      fEditor.Lines[LineNumber] := StringReplace(fEditor.Lines[LineNumber], dialog.FindText, dialog.ReplaceText, [])
-    fEditor.Lines.Delete( LineNumber );
+    else
-    fEditor.Lines.Insert( LineNumber, ReplacementString );
+      fEditor.Lines[LineNumber] := StringReplace(fEditor.Lines[LineNumber], dialog.FindText, dialog.ReplaceText, [rfIgnoreCase]);
     {set the result to true since we have made a replacement}
     Result := true;
     {reposition the cursor to the character after the last chracter in
   end
   else
     DoFind(fFindDialog, sdBackwards);
 end;
-procedure TFindReplace.GetLineNumber( Position: Integer; var LineNumber, ColumnNumber: integer );
-var
-  i: integer;
-begin
-  {initialise line number to 0}
-  LineNumber := 0;
-  {increment line number each time we encounter a newline (#$D) in the text}
-  for i := 1 to Position do
-    if fEditor.Text = #$D then
-      inc( LineNumber );
-  {set the column number to position first}
-  ColumnNumber := Position;
-  {get the columnNumber by subtracting the length of each previous line}
-  for i := 0 to (LineNumber-1) do
-    dec( ColumnNumber, (*Length( fEditor.Lines )*) fEditor.Lines.Strings[i].Length );
-end;
 procedure TFindReplace.GoToLine( LineNumber: integer );
 var
   currentLine: integer;
   i: integer;

Subversion Repositories fastphp

fastphp/trunk/FindReplace.pas – Rev 22 → 23