svnno****@sourc*****
svnno****@sourc*****
2011年 1月 20日 (木) 11:49:28 JST
Revision: 1382
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1382
Author: kiri_feather
Date: 2011-01-20 11:49:28 +0900 (Thu, 20 Jan 2011)
Log Message:
-----------
未読replyある時のUS有効時にタスクトレイアイコン更新がおかしかったので修正
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-01-20 00:27:55 UTC (rev 1381)
+++ trunk/Tween/Tween.vb 2011-01-20 02:49:28 UTC (rev 1382)
@@ -1198,7 +1198,7 @@
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 @@
_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 @@
'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 @@
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