Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 2751 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 2752 |
end; |
end; |
| 2753 |
Thread.Browser.OnStatusTextChange := BrowserStatusTextChange; |
Thread.Browser.OnStatusTextChange := BrowserStatusTextChange; |
| 2754 |
|
end else begin |
| 2755 |
|
// JUMP先が指定されていたら飛ぶ |
| 2756 |
|
if (ThreadItem.JumpAddress > 0) then begin |
| 2757 |
|
Thread.Move(IntToStr(ThreadItem.JumpAddress)); |
| 2758 |
|
ThreadItem.JumpAddress := 0; |
| 2759 |
|
end; |
| 2760 |
end; |
end; |
| 2761 |
end; |
end; |
| 2762 |
|
|
| 4634 |
end; |
end; |
| 4635 |
if ( stRes > 0 ) then begin |
if ( stRes > 0 ) then begin |
| 4636 |
Thread.JumpAddress := stRes; |
Thread.JumpAddress := stRes; |
| 4637 |
|
end; |
| 4638 |
// ログを持っていないか JUMPすべきレス番号まで取得していないときはDLする |
// ログを持っていないか JUMPすべきレス番号まで取得していないときはDLする |
| 4639 |
if (not Thread.IsLogFile) or (stRes > Thread.Count) then begin |
if (not Thread.IsLogFile) or (stRes > Thread.Count) then begin |
| 4640 |
DownloadContent(Thread); |
DownloadContent(Thread); |
|
end else if (not browserRec.Repaint) then begin |
|
|
try |
|
|
browserRec.Move(IntToStr(stRes)); |
|
|
Thread.JumpAddress := 0; |
|
|
doc := Idispatch( OleVariant( browserRec.Browser.ControlInterface ).Document ) as IHTMLDocument2; |
|
|
Thread.ScrollTop := doc.Body.ScrollTop; |
|
|
except |
|
|
end; |
|
|
end; |
|
| 4641 |
end; |
end; |
| 4642 |
end; |
end; |
| 4643 |
end; |
end; |
|
|
Legend:
| Removed from v.1.593 |
|
| changed lines |
| |
Added in v.1.594 |
|
|
|