| 89 |
if not RoundItem.BoolData then Continue; |
if not RoundItem.BoolData then Continue; |
| 90 |
if not Giko.GikoForm.LoginAction.Checked then Exit; |
if not Giko.GikoForm.LoginAction.Checked then Exit; |
| 91 |
if RoundItem.RoundType = grtBoard then begin |
if RoundItem.RoundType = grtBoard then begin |
| 92 |
Board := BBS2ch.FindBBSID(RoundItem.BBSID); |
Board := TBoard( RoundItem.Item ); |
| 93 |
if Board <> nil then begin |
if Board <> nil then begin |
| 94 |
if not Board.IsThreadDatRead then |
if not Board.IsThreadDatRead then |
| 95 |
GikoSys.ReadSubjectFile(Board); |
GikoSys.ReadSubjectFile(Board); |
| 101 |
RoundItem := RoundList.Items[i, grtItem]; |
RoundItem := RoundList.Items[i, grtItem]; |
| 102 |
if not RoundItem.BoolData then Continue; |
if not RoundItem.BoolData then Continue; |
| 103 |
if not Giko.GikoForm.LoginAction.Checked then Exit; |
if not Giko.GikoForm.LoginAction.Checked then Exit; |
| 104 |
Board := BBS2ch.FindBBSID(RoundItem.BBSID); |
if RoundItem.RoundType = grtItem then begin |
| 105 |
if Board <> nil then begin |
ThreadItem := TThreadItem( RoundItem.Item ); |
|
if not Board.IsThreadDatRead then |
|
|
GikoSys.ReadSubjectFile(Board); |
|
|
ThreadItem := BBS2ch.FindThreadItem(RoundItem.BBSID, RoundItem.FileName); |
|
| 106 |
if ThreadItem <> nil then begin |
if ThreadItem <> nil then begin |
| 107 |
// GikoForm.AddMessageList('debug2:' + IntToStr(i), nil); |
// GikoForm.AddMessageList('debug2:' + IntToStr(i), nil); |
| 108 |
GikoForm.DownloadContent(ThreadItem); |
GikoForm.DownloadContent(ThreadItem); |
| 268 |
Exit; |
Exit; |
| 269 |
if TObject(RoundListView.Selected.Data) is TRoundItem then begin |
if TObject(RoundListView.Selected.Data) is TRoundItem then begin |
| 270 |
RoundItem := TRoundItem(RoundListView.Selected.Data); |
RoundItem := TRoundItem(RoundListView.Selected.Data); |
|
Board := BBS2ch.FindBBSID(RoundItem.BBSID); |
|
| 271 |
if RoundItem.RoundType = grtBoard then begin |
if RoundItem.RoundType = grtBoard then begin |
| 272 |
|
Board := TBoard( RoundItem.Item ); |
| 273 |
RoundList.Delete(Board); |
RoundList.Delete(Board); |
| 274 |
Board.Round := False; |
Board.Round := False; |
| 275 |
Board.RoundName := ''; |
Board.RoundName := ''; |
| 276 |
end else begin |
end else begin |
| 277 |
if not Board.IsThreadDatRead then |
ThreadItem := TThreadItem( RoundItem.Item ); |
|
GikoSys.ReadSubjectFile(Board); |
|
|
ThreadItem := BBS2ch.FindThreadItem(RoundItem.BBSID, RoundItem.FileName); |
|
| 278 |
RoundList.Delete(ThreadItem); |
RoundList.Delete(ThreadItem); |
| 279 |
ThreadItem.Round := False; |
ThreadItem.Round := False; |
| 280 |
ThreadItem.RoundName := ''; |
ThreadItem.RoundName := ''; |