| 1210 |
FSearchDialog := nil; |
FSearchDialog := nil; |
| 1211 |
BrowserNullTab := TBrowserRecord.Create; |
BrowserNullTab := TBrowserRecord.Create; |
| 1212 |
BrowserNullTab.Browser := Browser; |
BrowserNullTab.Browser := Browser; |
| 1213 |
|
BrowserNullTab.Browser.Navigate(BLANK_HTML); |
| 1214 |
FBrowsers := TList.Create; |
FBrowsers := TList.Create; |
| 1215 |
for i := 0 to 4 do begin |
for i := 0 to 4 do begin |
| 1216 |
newBrowser := TWebBrowser.Create(nil); |
newBrowser := TWebBrowser.Create(nil); |
| 3337 |
(Assigned(FActiveContent.Browser.Document)) then begin |
(Assigned(FActiveContent.Browser.Document)) then begin |
| 3338 |
try |
try |
| 3339 |
try |
try |
| 3340 |
Sleep(1); |
//Sleep(1); |
| 3341 |
//Application.ProcessMessages; |
//Application.ProcessMessages; |
| 3342 |
FActiveContent.Thread.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document).Body).ScrollTop; |
FActiveContent.Thread.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document).Body).ScrollTop; |
| 3343 |
//if FActiveContent.Browser <> BrowserNullTab.Browser then |
//if FActiveContent.Browser <> BrowserNullTab.Browser then |
| 3351 |
end; |
end; |
| 3352 |
if inThread = nil then |
if inThread = nil then |
| 3353 |
Exit |
Exit |
| 3354 |
else if inThread.Browser = nil then begin |
else if inThread.Thread = nil then begin |
| 3355 |
|
inThread.Browser.Navigate(BLANK_HTML); |
| 3356 |
|
BrowserBoardNameLabel.Caption := ''; |
| 3357 |
|
ItemBoardImage.Picture := nil; |
| 3358 |
|
BrowserNameLabel.Caption := ''; |
| 3359 |
|
ItemImage.Picture := nil; |
| 3360 |
|
BrowserNullTab.Thread := nil; |
| 3361 |
|
TOleControl(BrowserNullTab.Browser).Visible := true; |
| 3362 |
|
FActiveContent := nil; |
| 3363 |
|
Exit; |
| 3364 |
|
end else if inThread.Browser = nil then begin |
| 3365 |
if FActiveContent.Browser = TWebBrowser(FBrowsers[4]) then |
if FActiveContent.Browser = TWebBrowser(FBrowsers[4]) then |
| 3366 |
FBrowsers.Move(4, 0); |
FBrowsers.Move(4, 0); |
| 3367 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 3378 |
FBrowsers.Move(4, 0); |
FBrowsers.Move(4, 0); |
| 3379 |
end; |
end; |
| 3380 |
|
|
|
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; |
|
|
|
|
| 3381 |
|
|
| 3382 |
BBSID := inThread.FThread.ParentBoard.BBSID; |
BBSID := inThread.FThread.ParentBoard.BBSID; |
| 3383 |
FileName := inThread.FThread.FileName; |
FileName := inThread.FThread.FileName; |
| 3398 |
if not TOleControl(inThread.FBrowser).Visible then |
if not TOleControl(inThread.FBrowser).Visible then |
| 3399 |
TOleControl(inThread.FBrowser).Visible := true; //ここで表示しておかないと描画で止まる |
TOleControl(inThread.FBrowser).Visible := true; //ここで表示しておかないと描画で止まる |
| 3400 |
LockWindowUpdate(0); |
LockWindowUpdate(0); |
| 3401 |
|
if inThread.Browser <> BrowserNullTab.Browser then begin |
| 3402 |
|
while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and |
| 3403 |
|
(inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
| 3404 |
|
Application.ProcessMessages; |
| 3405 |
|
end; |
| 3406 |
|
end; |
| 3407 |
if (not Assigned(inThread.Browser.Document)) then begin |
if (not Assigned(inThread.Browser.Document)) then begin |
| 3408 |
inThread.Browser.Navigate('about:blank'); |
inThread.Browser.Navigate('about:blank'); |
| 3409 |
end; |
end; |