svnno****@sourc*****
svnno****@sourc*****
2011年 1月 10日 (月) 21:21:40 JST
Revision: 1339
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1339
Author: syo68k
Date: 2011-01-10 21:21:40 +0900 (Mon, 10 Jan 2011)
Log Message:
-----------
DELETED発言に×を表示するように
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-01-10 10:05:39 UTC (rev 1338)
+++ trunk/Tween/Tween.vb 2011-01-10 12:21:40 UTC (rev 1339)
@@ -3995,11 +3995,12 @@
End Sub
Private Function CreateItem(ByVal Tab As TabPage, ByVal Post As PostClass, ByVal Index As Integer) As ListViewItem
- Dim mk As String = ""
- If Post.IsMark Then mk += "♪"
- If Post.IsProtect Then mk += "Ю"
- If Post.InReplyToId > 0 Then mk += "⇒"
- If Post.FavoritedCount > 0 Then mk += "+" + Post.FavoritedCount.ToString
+ Dim mk As New StringBuilder
+ If Post.IsDeleted Then mk.Append("×")
+ If Post.IsMark Then mk.Append("♪")
+ If Post.IsProtect Then mk.Append("Ю")
+ If Post.InReplyToId > 0 Then mk.Append("⇒")
+ If Post.FavoritedCount > 0 Then mk.Append("+" + Post.FavoritedCount.ToString)
Dim itm As ImageListViewItem
If Post.RetweetedId = 0 Then
Dim sitem() As String = {"",
@@ -4008,7 +4009,7 @@
Post.PDate.ToString(SettingDialog.DateTimeFormat),
Post.Name,
"",
- mk,
+ mk.ToString(),
Post.Source}
itm = New ImageListViewItem(sitem, DirectCast(Me.TIconDic, ImageDictionary), Post.ImageUrl)
Else
@@ -4018,7 +4019,7 @@
Post.PDate.ToString(SettingDialog.DateTimeFormat),
Post.Name + Environment.NewLine + "(RT:" + Post.RetweetedBy + ")",
"",
- mk,
+ mk.ToString(),
Post.Source}
itm = New ImageListViewItem(sitem, DirectCast(Me.TIconDic, ImageDictionary), Post.ImageUrl)
End If