| 3251 |
end; |
end; |
| 3252 |
end; |
end; |
| 3253 |
idx := BrowserTab.TabIndex; |
idx := BrowserTab.TabIndex; |
|
BrowserTab.Tabs.BeginUpdate; |
|
| 3254 |
if GikoSys.Setting.BrowserTabAppend = gtaFirst then begin |
if GikoSys.Setting.BrowserTabAppend = gtaFirst then begin |
| 3255 |
newBrowser := TBrowserRecord.Create; |
newBrowser := TBrowserRecord.Create; |
| 3256 |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 3299 |
BrowserTab.TabIndex := i; |
BrowserTab.TabIndex := i; |
| 3300 |
end; |
end; |
| 3301 |
end; |
end; |
|
BrowserTab.Tabs.EndUpdate;; |
|
| 3302 |
if(ActiveTab) or (idx = -1) then begin |
if(ActiveTab) or (idx = -1) then begin |
| 3303 |
BrowserTab.OnChange(nil); |
BrowserTab.OnChange(nil); |
| 3304 |
end; |
end; |
| 3308 |
BrowserNullTab.Browser := Browser; |
BrowserNullTab.Browser := Browser; |
| 3309 |
end; |
end; |
| 3310 |
BrowserNullTab.thread := ThreadItem; |
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); |
|
| 3311 |
BrowserTab.TabIndex := -1; |
BrowserTab.TabIndex := -1; |
| 3312 |
SetContent(BrowserNullTab); |
SetContent(BrowserNullTab); |
| 3313 |
end; |
end; |
| 3363 |
FBrowsers.Move(4, 0); |
FBrowsers.Move(4, 0); |
| 3364 |
end; |
end; |
| 3365 |
|
|
| 3366 |
|
if inThread.Browser <> BrowserNullTab.Browser then |
| 3367 |
while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and |
while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and |
| 3368 |
(inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
(inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
| 3369 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 3370 |
end; |
end; |
| 3371 |
|
|
| 3372 |
if inThread.Thread = nil then begin |
if inThread.Thread = nil then begin |
| 3373 |
inThread.Browser.Navigate(BLANK_HTML); |
inThread.Browser.Navigate(BLANK_HTML); |
| 3377 |
ItemImage.Picture := nil; |
ItemImage.Picture := nil; |
| 3378 |
BrowserNullTab.Thread := nil; |
BrowserNullTab.Thread := nil; |
| 3379 |
TOleControl(BrowserNullTab.Browser).Visible := true; |
TOleControl(BrowserNullTab.Browser).Visible := true; |
|
TOleControl(BrowserNullTab.Browser).BringToFront; |
|
| 3380 |
FActiveContent := nil; |
FActiveContent := nil; |
| 3381 |
Exit; |
Exit; |
| 3382 |
end; |
end; |
| 3383 |
|
|
| 3384 |
|
|
| 3385 |
BBSID := inThread.FThread.ParentBoard.BBSID; |
BBSID := inThread.FThread.ParentBoard.BBSID; |
| 3386 |
FileName := inThread.FThread.FileName; |
FileName := inThread.FThread.FileName; |
| 3387 |
|
|
| 3398 |
TreeView.Refresh; |
TreeView.Refresh; |
| 3399 |
end; |
end; |
| 3400 |
LockWindowUpdate(Self.Handle); |
LockWindowUpdate(Self.Handle); |
| 3401 |
TOleControl(inThread.FBrowser).Visible := true; //ここで表示しておかないと描画で止まる |
if not TOleControl(inThread.FBrowser).Visible then |
| 3402 |
|
TOleControl(inThread.FBrowser).Visible := true; //ここで表示しておかないと描画で止まる |
| 3403 |
TOleControl(inThread.FBrowser).BringToFront; |
TOleControl(inThread.FBrowser).BringToFront; |
| 3404 |
LockWindowUpdate(0); |
LockWindowUpdate(0); |
| 3405 |
if not inThread.FThread.IsLogFile then begin |
if not inThread.FThread.IsLogFile then begin |
|
|
|
| 3406 |
if (not Assigned(inThread.Browser.Document)) then begin |
if (not Assigned(inThread.Browser.Document)) then begin |
| 3407 |
inThread.Browser.Navigate('about:blank'); |
inThread.Browser.Navigate('about:blank'); |
| 3408 |
//while (not Assigned(Thread.Browser.Document)) do begin |
//while (not Assigned(Thread.Browser.Document)) do begin |