| 3608 |
if GetActiveList = Item.Board then begin |
if GetActiveList = Item.Board then begin |
| 3609 |
FActiveList := nil; |
FActiveList := nil; |
| 3610 |
SetActiveList(Item.Board); |
SetActiveList(Item.Board); |
|
end else begin |
|
|
ListView.Refresh; |
|
| 3611 |
end; |
end; |
| 3612 |
Item.Board.Modified := True; |
Item.Board.Modified := True; |
| 3613 |
Item.Board.IsThreadDatRead := True; |
Item.Board.IsThreadDatRead := True; |
| 3670 |
TreeView.Refresh; |
TreeView.Refresh; |
| 3671 |
//ListViewでこのスレが含まれる板を表示しているときの更新処理 |
//ListViewでこのスレが含まれる板を表示しているときの更新処理 |
| 3672 |
if (ActiveList <> nil) and (ActiveList is TBoard) then begin |
if (ActiveList <> nil) and (ActiveList is TBoard) then begin |
| 3673 |
if( ActiveList = Item.ThreadItem.ParentBoard ) then begin |
TBoard(ActiveList).LogThreadCount := TBoard(ActiveList).GetLogThreadCount; |
| 3674 |
SetActiveList(ActiveList); |
TBoard(ActiveList).NewThreadCount := TBoard(ActiveList).GetNewThreadCount; |
| 3675 |
|
TBoard(ActiveList).UserThreadCount:= TBoard(ActiveList).GetUserThreadCount; |
| 3676 |
|
//ListViewのアイテムの個数も更新 |
| 3677 |
|
case GikoForm.ViewType of |
| 3678 |
|
gvtAll: ListView.Items.Count := TBoard(ActiveList).Count; |
| 3679 |
|
gvtLog: ListView.Items.Count := TBoard(ActiveList).LogThreadCount; |
| 3680 |
|
gvtNew: ListView.Items.Count := TBoard(ActiveList).NewThreadCount; |
| 3681 |
|
gvtUser: ListView.Items.Count := TBoard(ActiveList).UserThreadCount; |
| 3682 |
end; |
end; |
|
end else begin |
|
|
ListView.Refresh; |
|
| 3683 |
end; |
end; |
| 3684 |
end; |
end; |
| 3685 |
// ListView.Refresh; |
ListView.Refresh; |
| 3686 |
end else if Item.State = gdsNotModify then begin |
end else if Item.State = gdsNotModify then begin |
| 3687 |
//変更ナシ |
//変更ナシ |
| 3688 |
{ if (Item.DownType = gdtThread) and (AddHistory(Item.ThreadItem)) then begin |
{ if (Item.DownType = gdtThread) and (AddHistory(Item.ThreadItem)) then begin |
| 3694 |
Screen.Cursor := crDefault; |
Screen.Cursor := crDefault; |
| 3695 |
end else if Item.State = gdsAbort then begin |
end else if Item.State = gdsAbort then begin |
| 3696 |
//中断 |
//中断 |
| 3697 |
AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiOK); |
AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiOK); |
| 3698 |
end else if Item.State = gdsError then begin |
end else if Item.State = gdsError then begin |
| 3699 |
//エラー |
//エラー |
| 3700 |
s := Item.ErrText; |
s := Item.ErrText; |