| 4166 |
TreeView.Refresh; |
TreeView.Refresh; |
| 4167 |
ListView.Refresh; |
ListView.Refresh; |
| 4168 |
end; |
end; |
| 4169 |
BrowserRecord.Move(BrowserRecord.Movement); |
// スクロール先が取得外のレスの時は終端に移動 |
| 4170 |
BrowserRecord.Movement := ''; |
if (StrToIntDef(BrowserRecord.Movement, 0) <= BrowserRecord.Thread.Count) then begin |
| 4171 |
|
BrowserRecord.Move(BrowserRecord.Movement); |
| 4172 |
|
BrowserRecord.Movement := ''; |
| 4173 |
|
end else begin |
| 4174 |
|
BrowserRecord.Move(IntToStr(BrowserRecord.Thread.Count)); |
| 4175 |
|
end; |
| 4176 |
|
|
| 4177 |
end else if threadItem.UnRead then begin |
end else if threadItem.UnRead then begin |
| 4178 |
threadItem.UnRead := False; |
threadItem.UnRead := False; |
| 4179 |
TreeView.Refresh; |
TreeView.Refresh; |
| 4533 |
//===== プラグイン |
//===== プラグイン |
| 4534 |
try |
try |
| 4535 |
//作業中// |
//作業中// |
|
//bi := High( BoardPlugIns ); |
|
| 4536 |
bi := Length(BoardGroups) - 1; |
bi := Length(BoardGroups) - 1; |
|
//for i := Low( BoardPlugIns ) to bi do begin |
|
| 4537 |
for i := 1 to bi do begin |
for i := 1 to bi do begin |
|
//if Assigned( Pointer( BoardPlugIns[ i ].Module ) ) then begin |
|
| 4538 |
if (BoardGroups[i].BoardPlugIn <> nil) and (Assigned(Pointer(BoardGroups[i].BoardPlugIn.Module))) then begin |
if (BoardGroups[i].BoardPlugIn <> nil) and (Assigned(Pointer(BoardGroups[i].BoardPlugIn.Module))) then begin |
| 4539 |
case BoardGroups[i].BoardPlugIn.AcceptURL( inURL ) of |
case BoardGroups[i].BoardPlugIn.AcceptURL( inURL ) of |
| 4540 |
atThread: |
atThread: |
| 4580 |
GikoSys.GetPopupResNumber( inURL, stRes, edRes ); |
GikoSys.GetPopupResNumber( inURL, stRes, edRes ); |
| 4581 |
browserRec := InsertBrowserTab( ThreadItem ); |
browserRec := InsertBrowserTab( ThreadItem ); |
| 4582 |
if ThreadItem.IsLogFile then begin |
if ThreadItem.IsLogFile then begin |
| 4583 |
if (browserRec <> nil) and (stRes > 0) then |
if (browserRec <> nil) and (stRes > 0) then begin |
| 4584 |
browserRec.Move(IntToStr( stRes )); |
browserRec.Movement := IntToStr( stRes ); |
| 4585 |
|
if (stRes > ThreadItem.Count) then begin |
| 4586 |
|
DownloadContent( ThreadItem ); |
| 4587 |
|
end; |
| 4588 |
|
end; |
| 4589 |
end else begin |
end else begin |
| 4590 |
if (browserRec <> nil) and (stRes > 0) then |
if (browserRec <> nil) and (stRes > 0) then |
| 4591 |
browserRec.Movement := IntToStr( stRes ); |
browserRec.Movement := IntToStr( stRes ); |
| 4684 |
if ThreadItem.IsLogFile then begin |
if ThreadItem.IsLogFile then begin |
| 4685 |
GikoSys.GetPopupResNumber( inURL, stRes, edRes ); |
GikoSys.GetPopupResNumber( inURL, stRes, edRes ); |
| 4686 |
browserRec := InsertBrowserTab(ThreadItem); |
browserRec := InsertBrowserTab(ThreadItem); |
| 4687 |
if (browserRec <> nil) and (stRes > 0) then |
if (browserRec <> nil) and (stRes > 0) then begin |
| 4688 |
browserRec.Movement := IntToStr( stRes ); |
browserRec.Movement := IntToStr( stRes ); |
| 4689 |
|
if (stRes > ThreadItem.Count) then begin |
| 4690 |
|
DownloadContent(ThreadItem); |
| 4691 |
|
end; |
| 4692 |
|
end; |
| 4693 |
end else begin |
end else begin |
| 4694 |
if AnsiPos(Host, Board.URL) = 0 then |
if AnsiPos(Host, Board.URL) = 0 then |
| 4695 |
ThreadItem.DownloadHost := Host |
ThreadItem.DownloadHost := Host |