svnno****@sourc*****
svnno****@sourc*****
2011年 1月 20日 (木) 02:41:43 JST
Revision: 1380
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1380
Author: kiri_feather
Date: 2011-01-20 02:41:43 +0900 (Thu, 20 Jan 2011)
Log Message:
-----------
rev1379の「新着時に選択中の未読発言が既読になる問題に対処」を戻し
Revision Links:
--------------
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1379
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-01-19 16:47:13 UTC (rev 1379)
+++ trunk/Tween/Tween.vb 2011-01-19 17:41:43 UTC (rev 1380)
@@ -1198,6 +1198,7 @@
End Sub
Private Sub RefreshTimeline(ByVal isUserStream As Boolean)
+ If isUserStream Then NotifyIcon1.Icon = NIconAt
'スクロール制御準備
Dim smode As Integer = -1 '-1:制御しない,-2:最新へ,その他:topitem使用
Dim topId As Long = GetScrollPos(smode)
@@ -1457,22 +1458,14 @@
Private Sub MyList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
If _curList.SelectedIndices.Count <> 1 Then Exit Sub
- Static beforePost As PostClass = Nothing
-
_curItemIndex = _curList.SelectedIndices(0)
_curPost = GetCurTabPost(_curItemIndex)
- If _curPost IsNot Nothing AndAlso Not _curPost.Equals(beforePost) Then
- beforePost = _curPost
- If SettingDialog.UnreadManage Then _statuses.SetReadAllTab(True, _curTab.Text, _curItemIndex)
- 'MyList.RedrawItems(MyList.SelectedIndices(0), MyList.SelectedIndices(0), False) 'RetrieveVirtualItemが発生することを期待
- 'キャッシュの書き換え
- ChangeCacheStyleRead(True, _curItemIndex, _curTab) '既読へ（フォント、文字色）
- End If
+ If SettingDialog.UnreadManage Then _statuses.SetReadAllTab(True, _curTab.Text, _curItemIndex)
+ 'キャッシュの書き換え
+ ChangeCacheStyleRead(True, _curItemIndex, _curTab) '既読へ（フォント、文字色）
- 'ColorizeList(-1) '全キャッシュ更新（背景色）
- 'DispSelectedPost()
ColorizeList()
_colorize = True
End Sub
@@ -9790,9 +9783,6 @@
End Sub
Private Sub tw_NewPostFromStream()
- 'Tasktray icon clear
- _myStatusError = False
-
If SettingDialog.ReadOldPosts Then
_statuses.SetRead() '新着時未読クリア
End If