描画更新のタイミングの変更

diff --git a/Search.pas b/Search.pas
index 772f061..dc6de17 100644 (file)
--- a/Search.pas
+++ b/Search.pas
@@ -264,7 +264,7 @@ begin
                        SearchComboBox.Text := oldText;
 
                        BoardListView.Clear;
-
+            Application.ProcessMessages;
                        // grep \97p\82Ì\8c\9f\8dõ\83\8f\81[\83h\82ð\90¶\90¬
                        Reg.OnMatch := OnMatch;
                        Reg.UseFuzzyCharDic := True;
@@ -329,9 +329,9 @@ begin
                                                                                        Reg.GrepByRegExp( ThreadItem.GetThreadFileName )
                                                                                except
                                                                                end;
+                                        Application.ProcessMessages;
                                                                        end;
                                                                end;
-                                                               Application.ProcessMessages;
                                                                if FCancel then raise   Exception.Create('\83\8d\83O\8c\9f\8dõ\82ð\92\86\8e~\82µ\82Ü\82·');
                                                        end;
                                                end;