レス絞込みが描画が更新されないバグの修正。

アクティブタブのログを削除ができない不具合の削除

diff --git a/Giko.pas b/Giko.pas
index 855ada7..d4c25cc 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -6397,7 +6397,7 @@ begin
                        if GikoSys.Setting.DeleteMsg then
                                if MsgBox(Handle, DEL_MSG, DEL_TITLE, MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then
                                Exit;
-                       ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);
+                       ThreadItem := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).FThread;
                        DeleteTab(TBrowserRecord(BrowserTab.Tabs.Objects[idx]));
                        ThreadItem.DeleteLogFile;
                        if ThreadItem.ParentBoard = FActiveList then
@@ -8280,6 +8280,7 @@ begin
                                end;
 
                                // \83X\83\8c\83b\83h\82Ì\8dÄ\95`\89æ
+                FActiveContent.Repaint := true;
                                ThreadItem := GetActiveContent;
                                if ThreadItem <> nil then
                                        InsertBrowserTab( ThreadItem, True );
@@ -8328,6 +8329,7 @@ begin
                FSelectResWord := '';
 
                // \83X\83\8c\83b\83h\82ð\8dÄ\95`\89æ
+        FActiveContent.Repaint := true;
                ThreadItem := GetActiveContent;
                if ThreadItem <> nil then
                        InsertBrowserTab( ThreadItem, True );