svnno****@sourc*****
svnno****@sourc*****
2011年 2月 22日 (火) 01:51:55 JST
Revision: 1459
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1459
Author: kiri_feather
Date: 2011-02-22 01:51:55 +0900 (Tue, 22 Feb 2011)
Log Message:
-----------
選択ポストがズレる問題に対処
Modified Paths:
--------------
trunk/Tween/StatusDictionary.vb
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/StatusDictionary.vb
===================================================================
--- trunk/Tween/StatusDictionary.vb 2011-02-21 12:28:26 UTC (rev 1458)
+++ trunk/Tween/StatusDictionary.vb 2011-02-21 16:51:55 UTC (rev 1459)
@@ -887,7 +887,11 @@
End SyncLock
End Function
- Public Function SubmitUpdate(ByRef soundFile As String, ByRef notifyPosts As PostClass(), ByRef isMentionIncluded As Boolean, ByVal isUserStream As Boolean) As Integer
+ Public Function SubmitUpdate(ByRef soundFile As String,
+ ByRef notifyPosts As PostClass(),
+ ByRef isMentionIncluded As Boolean,
+ ByRef isDeletePost As Boolean,
+ ByVal isUserStream As Boolean) As Integer
'注：メインスレッドから呼ぶこと
SyncLock LockObj
If _notifyPosts Is Nothing Then
@@ -906,6 +910,7 @@
Me.SortPosts()
End If
If isUserStream Then
+ isDeletePost = Me._deletedIds.Count > 0
For Each id As Long In Me._deletedIds
'Me.DeletePost(StatusId)
Me.RemovePost(id)
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-02-21 12:28:26 UTC (rev 1458)
+++ trunk/Tween/Tween.vb 2011-02-21 16:51:55 UTC (rev 1459)
@@ -1255,7 +1255,8 @@
Dim soundFile As String = ""
Dim addCount As Integer = 0
Dim isMention As Boolean = False
- addCount = _statuses.SubmitUpdate(soundFile, notifyPosts, isMention, isUserStream)
+ Dim isDelete As Boolean = False
+ addCount = _statuses.SubmitUpdate(soundFile, notifyPosts, isMention, isDelete, isUserStream)
If _endingFlag Then Exit Sub
@@ -1265,7 +1266,7 @@
Dim lst As DetailsListView = DirectCast(tab.Tag, DetailsListView)
Dim tabInfo As TabClass = _statuses.Tabs(tab.Text)
lst.BeginUpdate()
- If lst.VirtualListSize <> tabInfo.AllCount Then
+ If isDelete OrElse lst.VirtualListSize <> tabInfo.AllCount Then
If lst.Equals(_curList) Then
_itemCache = Nothing
_postCache = Nothing