バタ59リリース2向けに更新

[gikonavigoeson/gikonavi.git] / Search.pas

diff --git a/Search.pas b/Search.pas
index 50beca9..c476e4c 100644 (file)
--- a/Search.pas
+++ b/Search.pas
@@ -39,6 +39,7 @@ type
                procedure CancelBottonClick(Sender: TObject);
                procedure BoardListViewResize(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
        private
                { Private \90é\8c¾ }
                FChkItem: TObject;
@@ -443,4 +444,14 @@ begin
        end;
 end;
 
+procedure TSearchDialog.FormCloseQuery(Sender: TObject;
+  var CanClose: Boolean);
+begin
+       if (BoardsProgressBar.Visible) then begin
+               TGrep(Sender).Cancel := true;
+               FCancel := true;
+               Application.ProcessMessages;
+       end;
+end;
+
 end.