From fb9ce86c5cee920f51c6787f92df7ea34d02847c Mon Sep 17 00:00:00 2001 From: kiri_feather Date: Wed, 1 Dec 2010 12:21:06 +0000 Subject: [PATCH] =?utf8?q?=E3=83=AA=E3=82=B9=E3=83=88=E3=82=A2=E3=82=A4?= =?utf8?q?=E3=83=86=E3=83=A0=E5=86=8D=E6=8F=8F=E7=94=BB=E3=81=A7=E4=BE=8B?= =?utf8?q?=E5=A4=96=E3=81=8C=E7=99=BA=E7=94=9F=E3=81=99=E3=82=8B=E5=A0=B4?= =?utf8?q?=E5=90=88=E3=81=8C=E3=81=82=E3=81=A3=E3=81=9F=E3=81=AE=E3=81=A7?= =?utf8?q?=E5=AF=BE=E5=BF=9C=20=E7=99=BA=E8=A8=80=E5=89=8A=E9=99=A4?= =?utf8?q?=E3=82=A4=E3=83=99=E3=83=B3=E3=83=88=E6=99=82=E3=81=AB=E5=8B=9D?= =?utf8?q?=E6=89=8B=E3=81=AB=E3=82=B9=E3=82=AF=E3=83=AD=E3=83=BC=E3=83=AB?= =?utf8?q?=E3=81=97=E3=81=A6=E3=81=97=E3=81=BE=E3=81=86=E5=A0=B4=E5=90=88?= =?utf8?q?=E3=81=8C=E3=81=82=E3=81=A3=E3=81=9F=E3=81=AE=E3=81=A7=E5=AF=BE?= =?utf8?q?=E5=BF=9C=20=E3=82=A2=E3=82=A4=E3=82=B3=E3=83=B3=E3=82=AD?= =?utf8?q?=E3=83=A3=E3=83=83=E3=82=B7=E3=83=A5=E3=82=B5=E3=82=A4=E3=82=BA?= =?utf8?q?=E3=82=92=EF=BC=95=EF=BC=90=EF=BC=90=EF=BC=90=E3=81=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1147 e39ad16e-3079-482e-bb30-4b4d378143b6 --- Tween/ImageListViewItem.vb | 2 +- Tween/Tween.vb | 41 ++--------------------------------------- 2 files changed, 3 insertions(+), 40 deletions(-) diff --git a/Tween/ImageListViewItem.vb b/Tween/ImageListViewItem.vb index 91fa7aa8..617d385b 100644 --- a/Tween/ImageListViewItem.vb +++ b/Tween/ImageListViewItem.vb @@ -14,7 +14,7 @@ If getImg Is Nothing Then Exit Sub Me.img = getImg If Me.ListView IsNot Nothing Then Me.ListView.Invoke(Sub() - Me.ListView.RedrawItems(Me.Index, Me.Index, False) + If Me.Index < Me.ListView.VirtualListSize Then Me.ListView.RedrawItems(Me.Index, Me.Index, False) End Sub) End Sub) diff --git a/Tween/Tween.vb b/Tween/Tween.vb index ef1a7c00..e5e6ae4d 100644 --- a/Tween/Tween.vb +++ b/Tween/Tween.vb @@ -1011,7 +1011,7 @@ Public Class TweenMain End If 'アイコンリスト作成 - TIconDic = New ImageDictionary(3000) + TIconDic = New ImageDictionary(5000) tw.DetailIcon = TIconDic @@ -9774,44 +9774,7 @@ RETRY: _statuses.RemovePost(id) - If _curTab Is Nothing OrElse _curList Is Nothing Then Exit Sub - - Dim fidx As Integer - If _curList.FocusedItem IsNot Nothing Then - fidx = _curList.FocusedItem.Index - ElseIf _curList.TopItem IsNot Nothing Then - fidx = _curList.TopItem.Index - Else - fidx = 0 - End If - - _itemCache = Nothing 'キャッシュ破棄 - _postCache = Nothing - _curPost = Nothing - _curItemIndex = -1 - For Each tb As TabPage In ListTab.TabPages - DirectCast(tb.Tag, DetailsListView).VirtualListSize = _statuses.Tabs(tb.Text).AllCount - If _curTab.Equals(tb) Then - _curList.SelectedIndices.Clear() - If _statuses.Tabs(tb.Text).AllCount > 0 Then - If _statuses.Tabs(tb.Text).AllCount - 1 > fidx AndAlso fidx > -1 Then - _curList.SelectedIndices.Add(fidx) - Else - _curList.SelectedIndices.Add(_statuses.Tabs(tb.Text).AllCount - 1) - End If - 'If _curList.SelectedIndices.Count > 0 Then - ' _curList.EnsureVisible(_curList.SelectedIndices(0)) - ' _curList.FocusedItem = _curList.Items(_curList.SelectedIndices(0)) - 'End If - End If - End If - If _statuses.Tabs(tb.Text).UnreadCount = 0 Then - If SettingDialog.TabIconDisp Then - If tb.ImageIndex = 0 Then tb.ImageIndex = -1 'タブアイコン - End If - End If - Next - If Not SettingDialog.TabIconDisp Then ListTab.Refresh() + Me.RefreshTimeline() End Sub Private Sub tw_NewPostFromStream() -- 2.11.0