スレの描画で極端に遅くなる不具合の修正と、ログを持ってないスレを表示した後に、

ログを持ってないスレをDLさせ、その途中で表示中のスレを切り替えても、表示が
切り替わらない不具合の修正

diff --git a/Giko.pas b/Giko.pas
index 18efa97..96da364 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -3251,7 +3251,6 @@ begin
                        end;
                end;
                idx := BrowserTab.TabIndex;
-               BrowserTab.Tabs.BeginUpdate;
                if GikoSys.Setting.BrowserTabAppend = gtaFirst then begin
                        newBrowser := TBrowserRecord.Create;
                        for j := BrowserTab.Tabs.Count - 1 downto 0 do begin
@@ -3300,7 +3299,6 @@ begin
                                BrowserTab.TabIndex := i;
                        end;
                end;
-               BrowserTab.Tabs.EndUpdate;;
                if(ActiveTab) or (idx = -1) then begin
                        BrowserTab.OnChange(nil);
                end;
@@ -3310,8 +3308,6 @@ begin
                        BrowserNullTab.Browser := Browser;
                end;
                BrowserNullTab.thread := ThreadItem;
-               BrowserNullTab.Browser.Navigate(BLANK_HTML);
-               SetWindowPos( BrowserNullTab.Browser.Handle, HWND_TOPMOST, 0, 0, BrowserPanel.Width, BrowserPanel.Height, SWP_NOACTIVATE or SWP_NOZORDER);
                BrowserTab.TabIndex := -1;
                SetContent(BrowserNullTab);
        end;
@@ -3367,11 +3363,11 @@ begin
                FBrowsers.Move(4, 0);
        end;
 
-
-       while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and
-                               (inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
-               Application.ProcessMessages;
-       end;
+       if inThread.Browser <> BrowserNullTab.Browser then
+               while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and
+                                       (inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
+                       Application.ProcessMessages;
+               end;
 
        if inThread.Thread = nil then begin
                inThread.Browser.Navigate(BLANK_HTML);
@@ -3381,11 +3377,11 @@ begin
                ItemImage.Picture := nil;
                BrowserNullTab.Thread := nil;
                TOleControl(BrowserNullTab.Browser).Visible := true;
-               TOleControl(BrowserNullTab.Browser).BringToFront;
                FActiveContent := nil;
                Exit;
        end;
 
+
        BBSID := inThread.FThread.ParentBoard.BBSID;
        FileName := inThread.FThread.FileName;
 
@@ -3402,11 +3398,11 @@ begin
                        TreeView.Refresh;
                end;
                LockWindowUpdate(Self.Handle);
-               TOleControl(inThread.FBrowser).Visible := true; //\82±\82±\82Å\95\\8e¦\82µ\82Ä\82¨\82©\82È\82¢\82Æ\95`\89æ\82Å\8e~\82Ü\82é
+               if not TOleControl(inThread.FBrowser).Visible then
+                       TOleControl(inThread.FBrowser).Visible := true;         //\82±\82±\82Å\95\\8e¦\82µ\82Ä\82¨\82©\82È\82¢\82Æ\95`\89æ\82Å\8e~\82Ü\82é
                TOleControl(inThread.FBrowser).BringToFront;
                LockWindowUpdate(0);
                if not inThread.FThread.IsLogFile then begin
-
                        if (not Assigned(inThread.Browser.Document)) then begin
                                inThread.Browser.Navigate('about:blank');
                                //while (not Assigned(Thread.Browser.Document)) do begin