From cdfed56936dc72954455adeb4de19bac7304febe Mon Sep 17 00:00:00 2001 From: kiri_feather Date: Thu, 26 May 2011 14:40:50 +0900 Subject: [PATCH] =?utf8?q?=E7=8A=B6=E6=85=8B=E3=82=A2=E3=82=A4=E3=82=B3?= =?utf8?q?=E3=83=B3=E8=A1=A8=E7=A4=BA=E3=81=AF=E3=82=A2=E3=82=A4=E3=82=B3?= =?utf8?q?=E3=83=B3=E5=88=97=E3=81=AE=E3=81=BF=E3=81=AB=E5=A4=89=E6=9B=B4?= =?utf8?q?=E3=80=82=E3=83=86=E3=82=AD=E3=82=B9=E3=83=88=E3=81=AE=E7=8A=B6?= =?utf8?q?=E6=85=8B=E3=83=9E=E3=83=BC=E3=82=AF=E8=A1=A8=E7=A4=BA=E3=82=92?= =?utf8?q?=E3=81=97=E3=81=AA=E3=81=84=E3=82=88=E3=81=86=E3=81=AB=E3=80=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Tween/Tween.vb | 49 +++++++++++++++++++++++++------------------------ 1 file changed, 25 insertions(+), 24 deletions(-) diff --git a/Tween/Tween.vb b/Tween/Tween.vb index 565f3abb..24c58a0c 100644 --- a/Tween/Tween.vb +++ b/Tween/Tween.vb @@ -4075,10 +4075,10 @@ Public Class TweenMain Private Function CreateItem(ByVal Tab As TabPage, ByVal Post As PostClass, ByVal Index As Integer) As ListViewItem 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.InReplyToStatusId > 0 Then mk.Append("⇒") + 'If Post.IsDeleted Then mk.Append("×") + 'If Post.IsMark Then mk.Append("♪") + 'If Post.IsProtect Then mk.Append("Ю") + 'If Post.InReplyToStatusId > 0 Then mk.Append("⇒") If Post.FavoritedCount > 0 Then mk.Append("+" + Post.FavoritedCount.ToString) Dim itm As ImageListViewItem If Post.RetweetedId = 0 Then @@ -4405,29 +4405,30 @@ Public Class TweenMain End If End Sub - Private Sub DrawListViewItemStateIcon(ByVal e As DrawListViewSubItemEventArgs, ByVal rct As RectangleF) - Dim item As ImageListViewItem = DirectCast(e.Item, ImageListViewItem) - If item.StateImageIndex > -1 Then - ''e.Bounds.Leftが常に0を指すから自前で計算 - 'Dim itemRect As Rectangle = item.Bounds - 'itemRect.Width = e.Item.ListView.Columns(4).Width + 'Private Sub DrawListViewItemStateIcon(ByVal e As DrawListViewSubItemEventArgs, ByVal rct As RectangleF) + ' Dim item As ImageListViewItem = DirectCast(e.Item, ImageListViewItem) + ' If item.StateImageIndex > -1 Then + ' ''e.Bounds.Leftが常に0を指すから自前で計算 + ' 'Dim itemRect As Rectangle = item.Bounds + ' 'itemRect.Width = e.Item.ListView.Columns(4).Width - 'For Each clm As ColumnHeader In e.Item.ListView.Columns - ' If clm.DisplayIndex < e.Item.ListView.Columns(4).DisplayIndex Then - ' itemRect.X += clm.Width - ' End If - 'Next + ' 'For Each clm As ColumnHeader In e.Item.ListView.Columns + ' ' If clm.DisplayIndex < e.Item.ListView.Columns(4).DisplayIndex Then + ' ' itemRect.X += clm.Width + ' ' End If + ' 'Next - 'Dim iconRect As Rectangle = Rectangle.Intersect(New Rectangle(e.Item.GetBounds(ItemBoundsPortion.Icon).Location, New Size(_iconSz, _iconSz)), itemRect) - 'iconRect.Offset(0, CType(Math.Max(0, (itemRect.Height - _iconSz) / 2), Integer)) + ' 'Dim iconRect As Rectangle = Rectangle.Intersect(New Rectangle(e.Item.GetBounds(ItemBoundsPortion.Icon).Location, New Size(_iconSz, _iconSz)), itemRect) + ' 'iconRect.Offset(0, CType(Math.Max(0, (itemRect.Height - _iconSz) / 2), Integer)) - If rct.Width > 0 Then - e.Graphics.FillRectangle(Brushes.White, rct) - 'e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.High - e.Graphics.DrawImage(Me.PostStateImageList.Images(item.StateImageIndex), rct) - End If - End If - End Sub + ' If rct.Width > 0 Then + ' Dim stateRect As RectangleF = RectangleF.Intersect(rct, New RectangleF(rct.Location, New Size(18, 16))) + ' 'e.Graphics.FillRectangle(Brushes.White, rct) + ' 'e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.High + ' e.Graphics.DrawImage(Me.PostStateImageList.Images(item.StateImageIndex), stateRect) + ' End If + ' End If + 'End Sub Private Sub DoTabSearch(ByVal _word As String, _ ByVal CaseSensitive As Boolean, _ -- 2.11.0