チェックされている板だけを検索するように修正

diff --git a/Search.pas b/Search.pas
index 96b6278..331e994 100644 (file)
--- a/Search.pas
+++ b/Search.pas
@@ -301,22 +301,24 @@ begin
           Board := Category.Items[j];
           if not Board.IsThreadDatRead then
             GikoSys.ReadSubjectFile(Board);
-          for k := 0 to Board.Count - 1 do begin
-            // \8cÂ\81X\82Ì\83X\83\8c\83b\83h\82Ì (\91±\82­)
-            ThreadItem := Board.Items[k];
-            if FileExists( ThreadItem.GetThreadFileName ) then begin
+          if Board.BoolData then begin
+            for k := 0 to Board.Count - 1 do begin
+                // \8cÂ\81X\82Ì\83X\83\8c\83b\83h\82Ì (\91±\82­)
+                ThreadItem := Board.Items[k];
+                if FileExists( ThreadItem.GetThreadFileName ) then begin
 
-              // \83\8d\83O\82ª\91¶\8dÝ\82·\82é
-              try
+                // \83\8d\83O\82ª\91¶\8dÝ\82·\82é
+                try
 
-                // \8c\9f\8dõ
-                // \81¦\8c©\82Â\82©\82Á\82½\82ç OnMatch \82É\94ò\82Ô
-                FRegItem := ThreadItem;
-                Reg.GrepByRegExp( ThreadItem.GetThreadFileName )
+                    // \8c\9f\8dõ
+                    // \81¦\8c©\82Â\82©\82Á\82½\82ç OnMatch \82É\94ò\82Ô
+                    FRegItem := ThreadItem;
+                    Reg.GrepByRegExp( ThreadItem.GetThreadFileName )
 
-              except
-              end;
+                except
+                end;
 
+                end;
             end;
           end;
         end