Changeset 28448

Timestamp:

01/15/09 16:32:28 (4 years ago)

Author:

syo68k

Message:

リスト固定モードでもスクロールしてしまうことがある現象を修正(暫定)

Location:

lang/vb2005/Tween/Tween

Files:

• Resources/ChangeLog.txt (modified) (1 diff)
• Tween.vb (modified) (1 diff)

lang/vb2005/Tween/Tween/Resources/ChangeLog.txt

@@ -7 +7 @@
 -アニメーションGIFを使用したアイコンに対応
 -Configファイルから正規表現を使用したフィルタを読み込んだ場合のエラーチェック強化
+-リスト固定モードでもスクロールしてしまうことがある現象を修正
 ***Ver0.2.1.0(2009/1/14)
 -Fav結果検証の際に壊れたxmlが返ってくると例外が発生していたのを修正

lang/vb2005/Tween/Tween/Tween.vb

@@ -797 +797 @@
         Next
         'スクロール制御
-        If topItem IsNot Nothing Then
-            If _curList.Items.Count > 0 AndAlso topItem.Index > -1 Then
-                _curList.EnsureVisible(_curList.Items.Count - 1)
-                _curList.EnsureVisible(topItem.Index)
-            End If
-        Else
-            If _statuses.SortOrder = SortOrder.Ascending AndAlso _curList.Items.Count > 0 Then
-                _curList.EnsureVisible(_curList.Items.Count - 1)
-            End If
-        End If
-
-        '新着通知
-        If NewPostPopMenuItem.Checked AndAlso notifyPosts.Count > 0 AndAlso Not _initial Then
-            Dim sb As New StringBuilder
-            Dim reply As Boolean = False
-            For Each post As PostClass In notifyPosts
-                If post.IsReply Then reply = True
-                If sb.Length > 0 Then sb.Append(System.Environment.NewLine)
-                Select Case SettingDialog.NameBalloon
-                    Case NameBalloonEnum.UserID
-                        sb.Append(post.Name).Append(" : ")
-                    Case NameBalloonEnum.NickName
-                        sb.Append(post.Nickname).Append(" : ")
-                End Select
-                sb.Append(post.Data)
-            Next
-            If SettingDialog.DispUsername Then NotifyIcon1.BalloonTipTitle = _username + " - " Else NotifyIcon1.BalloonTipTitle = ""
-            If Dm Then
-                NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning
-                NotifyIcon1.BalloonTipTitle += "Tween [DM] " + My.Resources.RefreshDirectMessageText1 + " " + addCount.ToString() + My.Resources.RefreshDirectMessageText2
-            ElseIf reply Then
-                NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning
-                NotifyIcon1.BalloonTipTitle += "Tween [Reply!] " + My.Resources.RefreshTimelineText1 + " " + addCount.ToString() + My.Resources.RefreshTimelineText2
+        If Not ListLockMenuItem.Checked Then
+            If topItem IsNot Nothing Then
+                If _curList.Items.Count > 0 AndAlso topItem.Index > -1 Then
+                    _curList.BeginUpdate()
+                    _curList.EnsureVisible(_curList.Items.Count - 1)
+                    _curList.EnsureVisible(topItem.Index)
+                    _curList.EndUpdate()
+                End If
             Else
-                NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
-                NotifyIcon1.BalloonTipTitle += "Tween " + My.Resources.RefreshTimelineText1 + " " + addCount.ToString() + My.Resources.RefreshTimelineText2
-            End If
-            NotifyIcon1.BalloonTipText = sb.ToString()
-            NotifyIcon1.ShowBalloonTip(500)
-        End If
-
-        '★★★リストリフレッシュ必要か？要検証★★★
-
-        'サウンド再生
-        If Not _initial AndAlso SettingDialog.PlaySound AndAlso soundFile <> "" Then
-            Try
-                My.Computer.Audio.Play(My.Application.Info.DirectoryPath.ToString() + "\" + soundFile, AudioPlayMode.Background)
-            Catch ex As Exception
-
-            End Try
-        End If
-
-        SetMainWindowTitle()
-        If Not StatusLabelUrl.Text.StartsWith("http") Then SetStatusLabel()
-        'TimerColorize.Stop()
-        'TimerColorize.Start()
+                If _statuses.SortOrder = SortOrder.Ascending AndAlso _curList.Items.Count > 0 Then
+                    _curList.BeginUpdate()
+                    _curList.EnsureVisible(_curList.Items.Count - 1)
+                    _curList.EndUpdate()
+                End If
+            End If
+        End If
+
+            '新着通知
+            If NewPostPopMenuItem.Checked AndAlso notifyPosts.Count > 0 AndAlso Not _initial Then
+                Dim sb As New StringBuilder
+                Dim reply As Boolean = False
+                For Each post As PostClass In notifyPosts
+                    If post.IsReply Then reply = True
+                    If sb.Length > 0 Then sb.Append(System.Environment.NewLine)
+                    Select Case SettingDialog.NameBalloon
+                        Case NameBalloonEnum.UserID
+                            sb.Append(post.Name).Append(" : ")
+                        Case NameBalloonEnum.NickName
+                            sb.Append(post.Nickname).Append(" : ")
+                    End Select
+                    sb.Append(post.Data)
+                Next
+                If SettingDialog.DispUsername Then NotifyIcon1.BalloonTipTitle = _username + " - " Else NotifyIcon1.BalloonTipTitle = ""
+                If Dm Then
+                    NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning
+                    NotifyIcon1.BalloonTipTitle += "Tween [DM] " + My.Resources.RefreshDirectMessageText1 + " " + addCount.ToString() + My.Resources.RefreshDirectMessageText2
+                ElseIf reply Then
+                    NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning
+                    NotifyIcon1.BalloonTipTitle += "Tween [Reply!] " + My.Resources.RefreshTimelineText1 + " " + addCount.ToString() + My.Resources.RefreshTimelineText2
+                Else
+                    NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
+                    NotifyIcon1.BalloonTipTitle += "Tween " + My.Resources.RefreshTimelineText1 + " " + addCount.ToString() + My.Resources.RefreshTimelineText2
+                End If
+                NotifyIcon1.BalloonTipText = sb.ToString()
+                NotifyIcon1.ShowBalloonTip(500)
+            End If
+
+            '★★★リストリフレッシュ必要か？要検証★★★
+
+            'サウンド再生
+            If Not _initial AndAlso SettingDialog.PlaySound AndAlso soundFile <> "" Then
+                Try
+                    My.Computer.Audio.Play(My.Application.Info.DirectoryPath.ToString() + "\" + soundFile, AudioPlayMode.Background)
+                Catch ex As Exception
+
+                End Try
+            End If
+
+            SetMainWindowTitle()
+            If Not StatusLabelUrl.Text.StartsWith("http") Then SetStatusLabel()
+            'TimerColorize.Stop()
+            'TimerColorize.Start()
     End Sub