未読replyある時のUS有効時にタスクトレイアイコン更新がおかしかったので修正

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1382 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index b514ecd..a3d46f0 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -1198,7 +1198,7 @@ Public Class TweenMain
     End Sub
 
     Private Sub RefreshTimeline(ByVal isUserStream As Boolean)
-        If isUserStream Then NotifyIcon1.Icon = NIconAt
+        If isUserStream Then Me.RefreshTasktrayIcon(True)
         'スクロール制御準備
         Dim smode As Integer = -1    '-1:制御しない,-2:最新へ,その他:topitem使用
         Dim topId As Long = GetScrollPos(smode)
@@ -6505,8 +6505,7 @@ RETRY:
         _tabDrag = False
     End Sub
 
-    Private Sub TimerRefreshIcon_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerRefreshIcon.Tick
-        '200ms
+    Private Sub RefreshTasktrayIcon(ByVal forceRefresh As Boolean)
         If _colorize Then Colorize()
         If Not TimerRefreshIcon.Enabled Then Exit Sub
         Static iconCnt As Integer = 0
@@ -6516,6 +6515,9 @@ RETRY:
         'Static usCheckCnt As Integer = 0
 
         Static iconDlListTopItem As ListViewItem = Nothing
+
+        If forceRefresh Then idle = False
+
         If DirectCast(ListTab.SelectedTab.Tag, ListView).TopItem Is iconDlListTopItem Then
             DirectCast(Me.TIconDic, ImageDictionary).PauseGetImage = False
         Else
@@ -6587,6 +6589,11 @@ RETRY:
         End If
     End Sub
 
+    Private Sub TimerRefreshIcon_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerRefreshIcon.Tick
+        '200ms
+        Me.RefreshTasktrayIcon(False)
+    End Sub
+
     Private Sub ContextMenuTabProperty_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuTabProperty.Opening
         '右クリックの場合はタブ名が設定済。アプリケーションキーの場合は現在のタブを対象とする
         If String.IsNullOrEmpty(_rclickTabName) OrElse sender IsNot ContextMenuTabProperty Then