・ログ検索ダイアログを通常のフォーム扱いに変更。

diff --git a/Giko.pas b/Giko.pas
index 6b71f08..5b3d0b0 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -782,6 +782,8 @@ type
     IsDraggingSelectComboBox : Boolean;
     DraggingSelectComboBoxPosition : TPoint;
 
+    FSearchDialog: TForm;
+
                procedure SetBoardTreeNode;
                function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer;
                function SetBoardListItem(Category: TCategory): Integer;
@@ -978,6 +980,8 @@ begin
 
        FTreeType := gttNone;
 
+  FSearchDialog := nil;
+
        //\8eè\82Ì\83J\81[\83\\83\8b
        Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
 
@@ -3596,20 +3600,23 @@ end;
 
 procedure TGikoForm.SearchActionExecute(Sender: TObject);
 var
-       Dlg: TSearchDialog;
        chk: TObject;
 begin
-       if (GikoForm.GetActiveList is TCategory) or (GikoForm.GetActiveList is TBoard) then
-               chk := GikoForm.GetActiveList
-       else
-               chk := nil;
 
-       Dlg := TSearchDialog.Create(Self, chk);
-       try
-               Dlg.ShowModal;
-       finally
-               Dlg.Release;
-       end;
+  if FSearchDialog = nil then begin
+    if (GikoForm.GetActiveList is TCategory) or (GikoForm.GetActiveList is TBoard) then
+      chk := GikoForm.GetActiveList
+    else
+      chk := nil;
+
+    FSearchDialog := TSearchDialog.Create(Self, chk);
+  end;
+
+  try
+    FSearchDialog.Show;
+  except
+  end;
+  
 end;
 
 procedure TGikoForm.OptionActionExecute(Sender: TObject);