From c5dbafcdbf5c6da6335e760df7975a5958c83582 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Sun, 23 May 2004 17:25:46 +0000
Subject: [PATCH] =?utf8?q?=E3=82=B9=E3=83=AC=E3=83=83=E3=83=89=E6=8F=8F?=
 =?utf8?q?=E7=94=BB=E9=83=A8=E3=81=AE=E6=9B=B4=E6=96=B0=E3=81=A8=E3=81=8B?=
 =?utf8?q?=E3=81=AE=E3=82=BF=E3=82=A4=E3=83=9F=E3=83=B3=E3=82=B0=E3=81=AE?=
 =?utf8?q?=E8=AA=BF=E6=95=B4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.pas | 39 +++++++++++++++++++--------------------
 1 file changed, 19 insertions(+), 20 deletions(-)

diff --git a/Giko.pas b/Giko.pas
index 1b78ba8..2ddbe71 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -1210,6 +1210,7 @@ begin
 	FSearchDialog := nil;
 	BrowserNullTab := TBrowserRecord.Create;
 	BrowserNullTab.Browser := Browser;
+    BrowserNullTab.Browser.Navigate(BLANK_HTML);
 	FBrowsers := TList.Create;
 	for i := 0 to 4 do begin
 		newBrowser := TWebBrowser.Create(nil);
@@ -3336,7 +3337,7 @@ begin
 		(Assigned(FActiveContent.Browser.Document)) then begin
 		try
 		try
-			Sleep(1);
+			//Sleep(1);
 			//Application.ProcessMessages;
 			FActiveContent.Thread.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document).Body).ScrollTop;
 			//if FActiveContent.Browser <> BrowserNullTab.Browser then
@@ -3350,7 +3351,17 @@ begin
 	end;
 	if inThread = nil then
 		Exit
-	else if inThread.Browser = nil then begin
+	else if inThread.Thread = nil then begin
+		inThread.Browser.Navigate(BLANK_HTML);
+		BrowserBoardNameLabel.Caption := '';
+		ItemBoardImage.Picture := nil;
+		BrowserNameLabel.Caption := '';
+		ItemImage.Picture := nil;
+		BrowserNullTab.Thread := nil;
+		TOleControl(BrowserNullTab.Browser).Visible := true;
+		FActiveContent := nil;
+		Exit;
+	end	else if inThread.Browser = nil then begin
 		if FActiveContent.Browser = TWebBrowser(FBrowsers[4]) then
 			FBrowsers.Move(4, 0);
 		for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
@@ -3367,24 +3378,6 @@ begin
 		FBrowsers.Move(4, 0);
 	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);
-		BrowserBoardNameLabel.Caption := '';
-		ItemBoardImage.Picture := nil;
-		BrowserNameLabel.Caption := '';
-		ItemImage.Picture := nil;
-		BrowserNullTab.Thread := nil;
-		TOleControl(BrowserNullTab.Browser).Visible := true;
-		FActiveContent := nil;
-		Exit;
-	end;
-
 
 	BBSID := inThread.FThread.ParentBoard.BBSID;
 	FileName := inThread.FThread.FileName;
@@ -3405,6 +3398,12 @@ begin
 		if not TOleControl(inThread.FBrowser).Visible then
 			TOleControl(inThread.FBrowser).Visible := true; 	//‚±‚±‚Å•\Ž¦‚µ‚Ä‚¨‚©‚È‚¢‚Æ•`‰æ‚ÅŽ~‚Ü‚é
 		LockWindowUpdate(0);
+		if inThread.Browser <> BrowserNullTab.Browser then begin
+			while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and
+					(inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
+				Application.ProcessMessages;
+			end;
+		end;
 		if (not Assigned(inThread.Browser.Document)) then begin
 			inThread.Browser.Navigate('about:blank');
 		end;
-- 
2.11.0