Changeset 29394

Timestamp:

02/01/09 21:47:30 (4 years ago)

Author:

syo68k

Message:

0235リリース Timeline取得タイマでReplyタブの取得が動いていなかった致命的バグを修正。描画処理を戻し

Location:

lang/vb2005/Tween/Tween

Files:

• My Project/AssemblyInfo.vb (modified) (1 diff)
• Resources/ChangeLog.txt (modified) (1 diff)
• Tween.vb (modified) (27 diffs)

lang/vb2005/Tween/Tween/My Project/AssemblyInfo.vb

@@ -55 +55 @@
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("0.2.3.4")> 
-<Assembly: AssemblyFileVersion("0.2.3.4")> 
+<Assembly: AssemblyVersion("0.2.3.5")> 
+<Assembly: AssemblyFileVersion("0.2.3.5")> 
 

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

@@ -1 +1 @@
 更新履歴
 
-***Ver0.2.3.4(trunk)
+***Ver0.2.3.5(2009/2/1 trunk)
+-起動時読み込みモードとReplyタブで更新したとき以外のタイミングでReplyタブを取得していなかったバグ修正
+-ちらつきが激しくなるようなので描画処理を元に戻した
+***Ver0.2.3.4(2009/2/1 trunk)
 -未読管理しないタブでもフォントが未読になるバグ修正
 -CTRL+B/CTRL+SHIFT+Bでフォントを即時切り替えるようにした

lang/vb2005/Tween/Tween/Tween.vb

@@ -760 +760 @@
         Dim topId As Long = -1
         Dim befCnt As Integer = _curList.VirtualListSize
-        _curList.BeginUpdate()
         If _curList.VirtualListSize > 0 Then
             If _statuses.SortMode = IdComparerClass.ComparerMode.Id Then
@@ -860 +859 @@
             End Select
         End If
-
-        _curList.EndUpdate()
 
         '新着通知
@@ -1531 +1528 @@
 
         RunAsync(args)
+         'Timeline取得モードの場合はReplyも同時に取得
+        If Not _initial AndAlso WkType = WORKERTYPE.Timeline Then
+            Dim _args As New GetWorkerArg
+            _args.page = fromPage
+            _args.endPage = toPage
+            _args.type = WORKERTYPE.Reply
+            RunAsync(_args)
+        End If
     End Sub
 
@@ -2610 +2615 @@
         Dim lst As DetailsListView = _curList
         Dim idx As Integer = 0
-        lst.BeginUpdate()
 RETRY:
         If tb.OldestUnreadId > -1 AndAlso tb.Contains(tb.OldestUnreadId) AndAlso tb.UnreadCount > 0 Then
@@ -2654 +2658 @@
         lst.Focus()
         lst.Update()
-        lst.EndUpdate()
     End Sub
 
@@ -2996 +2999 @@
         End If
 
-        _curList.BeginUpdate()
         For idx As Integer = fIdx To toIdx Step stp
             If _statuses.Item(_curTab.Text, idx).IsFav Then
@@ -3004 +3006 @@
             End If
         Next
-        _curList.EndUpdate()
     End Sub
 #If 0 Then
@@ -3037 +3038 @@
         End If
 
-        _curList.BeginUpdate()
     Dim found As Boolean = False
         For tabidx As Integer = fIdx To toIdx Step stp
@@ -3056 +3056 @@
         _itemCache = Nothing
         _postCache = Nothing
-        _curList.EndUpdate()
     End Sub
 #End If
@@ -3077 +3076 @@
         End If
 
-        _curList.BeginUpdate()
         For idx As Integer = fIdx To toIdx Step stp
             If _statuses.Item(_curTab.Text, idx).Name = _curPost.Name Then
@@ -3085 +3083 @@
             End If
         Next
-        _curList.EndUpdate()
     End Sub
 
@@ -3111 +3108 @@
         End If
 
-        _curList.BeginUpdate()
         For idx As Integer = fIdx To toIdx Step stp
             Dim post As PostClass = _statuses.Item(_curTab.Text, idx)
@@ -3122 +3118 @@
             End If
         Next
-        _curList.EndUpdate()
     End Sub
 
@@ -3130 +3125 @@
         If idx = -1 Then Exit Sub
 
-        _curList.BeginUpdate()
         SelectListItem(_curList, idx)
         _curList.EnsureVisible(idx)
-        _curList.EndUpdate()
     End Sub
 
@@ -3140 +3133 @@
         Dim idx As Integer
 
-        _curList.BeginUpdate()
         If GoTop Then
             _item = _curList.GetItemAt(0, 25)
@@ -3157 +3149 @@
         End If
         SelectListItem(_curList, idx)
-        _curList.EndUpdate()
     End Sub
 
@@ -3166 +3157 @@
         Dim idx3 As Integer
 
-        _curList.BeginUpdate()
         _item = _curList.GetItemAt(0, 0)
         If _item Is Nothing Then
@@ -3182 +3172 @@
 
         SelectListItem(_curList, idx3)
-        _curList.EndUpdate()
     End Sub
 
@@ -3188 +3177 @@
         If _curList.VirtualListSize = 0 Then Exit Sub
 
-        _curList.BeginUpdate()
         If _statuses.SortOrder = SortOrder.Ascending Then
             SelectListItem(_curList, _curList.VirtualListSize - 1)
@@ -3196 +3184 @@
             _curList.EnsureVisible(0)
         End If
-        _curList.EndUpdate()
     End Sub
 
     Private Sub MoveTop()
         If _curList.SelectedIndices.Count = 0 Then Exit Sub
-        _curList.BeginUpdate()
         Dim idx As Integer = _curList.SelectedIndices(0)
         If _statuses.SortOrder = SortOrder.Ascending Then
@@ -3209 +3195 @@
         End If
         _curList.EnsureVisible(idx)
-        _curList.EndUpdate()
     End Sub
 
@@ -3734 +3719 @@
         If _rclickTabName = "" Then Exit Sub
 
-        _curList.BeginUpdate()
         _statuses.SetTabUnreadManage(_rclickTabName, UreadManageMenuItem.Checked)
         If _curTab.Text = _rclickTabName Then
@@ -3746 +3730 @@
             _curList.Refresh()
         End If
-        _curList.EndUpdate()
         SetMainWindowTitle()
         SetStatusLabel()
@@ -4016 +3999 @@
 
     Private Sub SelectAllMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllMenuItem.Click
-        _curList.BeginUpdate()
         If StatusText.Focused Then
             StatusText.SelectAll()
@@ -4028 +4010 @@
             Next
         End If
-        _curList.EndUpdate()
     End Sub
 
@@ -4038 +4019 @@
         If _curList.SelectedIndices.Count = 0 Then Exit Sub
 
-        _curList.BeginUpdate()
         Dim idx As Integer = _curList.SelectedIndices(0)
 
@@ -4059 +4039 @@
         _curList.EnsureVisible(_curList.VirtualListSize - 1)
         _curList.EnsureVisible(idx)
-        _curList.EndUpdate()
     End Sub