svnno****@sourc*****
svnno****@sourc*****
2011年 2月 22日 (火) 02:08:55 JST
Revision: 1460
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1460
Author: kiri_feather
Date: 2011-02-22 02:08:55 +0900 (Tue, 22 Feb 2011)
Log Message:
-----------
ID降順、ID以外でソートしていた場合、リスト表示位置固定が機能していなかったので修正
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-02-21 16:51:55 UTC (rev 1459)
+++ trunk/Tween/Tween.vb 2011-02-21 17:08:55 UTC (rev 1460)
@@ -1307,10 +1307,10 @@
'制御しない
Case Else
'表示位置キープ
- 'If _curList.VirtualListSize > 0 AndAlso _statuses.IndexOf(_curTab.Text, topId) > -1 Then
- ' _curList.EnsureVisible(_curList.VirtualListSize - 1)
- ' _curList.EnsureVisible(_statuses.IndexOf(_curTab.Text, topId))
- 'End If
+ If _curList.VirtualListSize > 0 AndAlso _statuses.IndexOf(_curTab.Text, topId) > -1 Then
+ _curList.EnsureVisible(_curList.VirtualListSize - 1)
+ _curList.EnsureVisible(_statuses.IndexOf(_curTab.Text, topId))
+ End If
End Select
End If
Catch ex As Exception
@@ -1339,10 +1339,10 @@
'Id昇順
If ListLockMenuItem.Checked Then
'制御しない
- 'smode = -1
- '現在表示位置へ強制スクロール
- If _curList.TopItem IsNot Nothing Then topId = _statuses.GetId(_curTab.Text, _curList.TopItem.Index)
- smode = 0
+ smode = -1
+ ''現在表示位置へ強制スクロール
+ 'If _curList.TopItem IsNot Nothing Then topId = _statuses.GetId(_curTab.Text, _curList.TopItem.Index)
+ 'smode = 0
Else
'最下行が表示されていたら、最下行へ強制スクロール。最下行が表示されていなかったら制御しない
Dim _item As ListViewItem
@@ -1351,9 +1351,9 @@
If _item.Index = _curList.Items.Count - 1 Then
smode = -2
Else
- 'smode = -1
- If _curList.TopItem IsNot Nothing Then topId = _statuses.GetId(_curTab.Text, _curList.TopItem.Index)
- smode = 0
+ smode = -1
+ 'If _curList.TopItem IsNot Nothing Then topId = _statuses.GetId(_curTab.Text, _curList.TopItem.Index)
+ 'smode = 0
End If
End If
Else