| 3175 |
finally |
finally |
| 3176 |
end; |
end; |
| 3177 |
end else begin |
end else begin |
|
//Application.ProcessMessages; |
|
| 3178 |
GikoSys.CreateHTML2(Browser.Document, ThreadItem, sTitle); |
GikoSys.CreateHTML2(Browser.Document, ThreadItem, sTitle); |
| 3179 |
|
{ |
| 3180 |
while (Browser.ReadyState <> READYSTATE_COMPLETE) and |
while (Browser.ReadyState <> READYSTATE_COMPLETE) and |
| 3181 |
(Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
(Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
| 3182 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 3183 |
end; |
end; |
| 3184 |
|
} |
| 3185 |
|
try |
| 3186 |
|
doc := Browser.Document; |
| 3187 |
|
Application.ProcessMessages; |
| 3188 |
|
//ここでApplication.ProcessMessagesを呼ぶことによってWebBrowserを更新させる。 |
| 3189 |
|
//相しないと一画面分しか描画できてないのでそれ以上のスクロール量を指定しても無効になる |
| 3190 |
|
// byもじゅ(2004/01/20) |
| 3191 |
|
|
| 3192 |
|
if ThreadItem.UnRead then |
| 3193 |
|
BrowserMovement('new') |
| 3194 |
|
else if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin |
| 3195 |
|
try |
| 3196 |
|
doc.Body.ScrollTop := ThreadItem.ScrollTop; |
| 3197 |
|
except |
| 3198 |
|
on E: Exception do |
| 3199 |
|
MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0); |
| 3200 |
|
end; |
| 3201 |
|
end; |
| 3202 |
|
finally |
| 3203 |
|
// Application.ProcessMessages; |
| 3204 |
|
end; |
| 3205 |
|
|
|
try |
|
|
if ThreadItem.UnRead then |
|
|
BrowserMovement('new'); |
|
|
except |
|
|
end; |
|
|
Sleep(10); |
|
|
//Application.ProcessMessages; |
|
|
if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin |
|
|
//i := 0; |
|
|
try |
|
|
try |
|
|
doc := Browser.Document; |
|
|
doc.Body.ScrollTop := ThreadItem.ScrollTop; |
|
|
except |
|
|
on E: Exception do |
|
|
MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0); |
|
|
end; |
|
|
finally |
|
|
Application.ProcessMessages; |
|
|
end; |
|
|
end; |
|
|
|
|
| 3206 |
ThreadItem.UnRead := False; |
ThreadItem.UnRead := False; |
| 3207 |
ListView.Refresh; |
ListView.Refresh; |
| 3208 |
end; |
end; |