fpspreadsheet: Improved search dialog

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4318 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/fpspreadsheet/examples/visual/shared/ssearchform.pas

@@ -52,7 +52,8 @@ type
     procedure SetSearchParams(const AValue: TsSearchParams);
   protected
     procedure ConfirmReplacementHandler(Sender: TObject; AWorksheet: TsWorksheet;
-      ARow, ACol: Cardinal; const ASearchText, AReplaceText: String; var Allow: Boolean);
+      ARow, ACol: Cardinal; const ASearchText, AReplaceText: String;
+      var AConfirmReplacement: TsConfirmReplacementResult);
     procedure PopulateOptions;
   public
     { public declarations }
@@ -106,12 +107,16 @@ const
 { TSearchForms }
 
 procedure TSearchForm.ConfirmReplacementHandler(Sender: TObject;
-  AWorksheet: TsWorksheet; ARow, ACol: Cardinal;
+  AWorksheet: TsWorksheet; ARow, ACol: Cardinal; const ASearchText, AReplaceText: String;
-  const ASearchText, AReplaceText: String; var Allow: Boolean);
+  var AConfirmReplacement: TsConfirmReplacementResult);
 begin
   Unused(AWorksheet, ARow, ACol);
   Unused(ASearchText, AReplaceText);
-  Allow := MessageDlg('Replace?', mtConfirmation, [mbYes, mbNo], 0) = mrYes;
+  case MessageDlg('Replace?', mtConfirmation, [mbYes, mbNo, mbCancel], 0) of
+    mrYes: AConfirmReplacement := crReplace;
+    mrNo : AConfirmReplacement := crIgnore;
+    mrCancel: AConfirmReplacement := crAbort;
+  end;
 end;
 
 procedure TSearchForm.Execute(AWorkbook: TsWorkbook);

components/fpspreadsheet/fpssearch.pas

@@ -8,9 +8,11 @@ uses
   Classes, SysUtils, RegExpr, fpstypes, fpspreadsheet;
 
 type
+  TsConfirmReplacementResult = (crReplace, crIgnore, crAbort);
+
   TsConfirmReplacementEvent = procedure (Sender: TObject; AWorksheet: TsWorksheet;
     ARow, ACol: Cardinal; const ASearchText, AReplaceText: String;
-    var Allow: Boolean) of object;
+    var AResult: TsConfirmReplacementResult) of object;
 
   TsSearchEngine = class
   private
@@ -19,6 +21,7 @@ type
     FSearchParams: TsSearchParams;
     FReplaceParams: TsReplaceParams;
     FRegEx: TRegExpr;
+    FStopping: Boolean;
     FOnConfirmReplacement: TsConfirmReplacementEvent;
   protected
     function ExecReplace(AWorksheet: TsWorksheet; ARow, ACol: Cardinal): boolean;
@@ -75,18 +78,21 @@ end;
 function TsSearchEngine.ExecReplace(AWorksheet: TsWorksheet; ARow, ACol: Cardinal) : Boolean;
 var
   s: String;
-  allow: Boolean;
   flags: TReplaceFlags;
+  confirmation: TsConfirmReplacementResult;
 begin
   if roConfirm in FReplaceParams.Options then
   begin
-    allow := false;
     if Assigned(FOnConfirmReplacement) then
     begin
+      confirmation := crReplace;
       FOnConfirmReplacement(self, AWorksheet, ARow, ACol,
-        FSearchParams.SearchText, FReplaceParams.ReplaceText, allow);
+        FSearchParams.SearchText, FReplaceParams.ReplaceText, confirmation);
-      if not allow then
+      case confirmation of
-        exit(false);
+        crReplace: ;
+        crIgnore : exit(false);
+        crAbort  : begin FStopping := true; exit(false); end;
+      end;
     end else
       raise Exception.Create('[TsSearchEngine.ExecReplace] OnConfirmReplacement handler needed.');
   end;
@@ -484,22 +490,38 @@ var
   r,c: Cardinal;
   sheet: TsWorksheet;
 begin
+  FStopping := false;
+
+  if AReplaceParams.Options * [roReplaceAll, roConfirm] = [roReplaceAll] then
+    FWorkbook.DisableNotifications;
+
   Result := FindFirst(ASearchParams, AWorksheet, ARow, ACol);
+  r := ARow;
+  c := ACol;
+  sheet := AWorksheet;
+
   if Result then
   begin
     FReplaceParams := AReplaceParams;
     Result := ExecReplace(AWorksheet, ARow, ACol);
     if roReplaceAll in FReplaceParams.Options then
     begin
-      FWorkbook.DisableNotifications;
+      while (not FStopping) and FindNext(FSearchParams, AWorksheet, ARow, ACol) do
-      while FindNext(FSearchParams, AWorksheet, ARow, ACol) do
       begin
         r := ARow;
         c := ACol;
         sheet := AWorksheet;
         ExecReplace(AWorksheet, ARow, ACol);
       end;
-      FWorkbook.EnableNotifications;
+    end;
+  end;
+
+  if AReplaceParams.Options * [roReplaceAll, roConfirm] = [roReplaceAll] then
+  begin
+    FWorkbook.EnableNotifications;
+    if Result then
+    begin
+      FWorkbook.SelectWorksheet(sheet);
       sheet.SelectCell(r, c);
     end;
   end;
@@ -512,7 +534,16 @@ var
   r, c: Cardinal;
   sheet: TsWorksheet;
 begin
+  FStopping := false;
+
+  if AReplaceParams.Options * [roReplaceAll, roConfirm] = [roReplaceAll] then
+    FWorkbook.DisableNotifications;
+
   Result := FindNext(ASearchParams, AWorksheet, ARow, ACol);
+  r := ARow;
+  c := ACol;
+  sheet := AWorksheet;
+
   if Result then
   begin
     FReplaceParams := AReplaceParams;
@@ -520,14 +551,22 @@ begin
     if roReplaceAll in FReplaceParams.Options then
     begin
       FWorkbook.DisableNotifications;
-      while FindNext(FSearchParams, AWorksheet, ARow, ACol) do
+      while (not FStopping) and FindNext(FSearchParams, AWorksheet, ARow, ACol) do
       begin
         r := ARow;
         c := ACol;
         sheet := AWorksheet;
         ExecReplace(AWorksheet, ARow, ACol);
       end;
-      FWorkbook.EnableNotifications;
+    end;
+  end;
+
+  if AReplaceParams.Options * [roReplaceAll, roConfirm] = [roReplaceAll] then
+  begin
+    FWorkbook.EnableNotifications;
+    if Result then
+    begin
+      FWorkbook.SelectWorksheet(sheet);
       sheet.SelectCell(r, c);
     end;
   end;