Changeset 29331

Timestamp:

01/31/09 11:54:43 (4 years ago)

Author:

syo68k

Message:

同じ書き込みの別タブへの横断ジャンプ実装。(Alt+←→） ただし現在以下の不具合あり タブ横断ジャンプを行ったあとタブをD&Dで並べ替える、あるいはその逆を行うとDetailsListViewの表示と内部状態が矛盾する

Location:

lang/vb2005/Tween/Tween

Files:

• My Project/AssemblyInfo.vb (modified) (1 diff)
• Resources/ChangeLog.txt (modified) (1 diff)
• Tween.vb (modified) (2 diffs)

lang/vb2005/Tween/Tween/My Project/AssemblyInfo.vb

@@ -55 +55 @@
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("0.2.3.3")> 
-<Assembly: AssemblyFileVersion("0.2.3.3")> 
+<Assembly: AssemblyVersion("0.2.3.4")> 
+<Assembly: AssemblyFileVersion("0.2.3.4")> 
 

lang/vb2005/Tween/Tween/Resources/ChangeLog.txt

@@ -4 +4 @@
 -未読管理しないタブでもフォントが未読になるバグ修正
 -CTRL+B/CTRL+SHIFT+Bでフォントを即時切り替えるようにした
+-描画周り微調整
 ***Ver0.2.3.3(2009/1/30 trunk)
 -タブの全発言を保存しようとするとエラーを起こすバグ修正

lang/vb2005/Tween/Tween/Tween.vb

@@ -2860 +2860 @@
             End If
         End If
+        If Not e.Control AndAlso e.Alt AndAlso Not e.Shift Then
+            ' ALTキーが押されている場合
+            ' 別タブの同じ書き込みへ(ALT+←/→)
+            If e.KeyCode = Keys.Right Then
+                e.Handled = True
+                e.SuppressKeyPress = True
+                GoSamePostToAnotherTab(False)
+            End If
+            If e.KeyCode = Keys.Left Then
+                e.Handled = True
+                e.SuppressKeyPress = True
+                GoSamePostToAnotherTab(True)
+            End If
+        End If
         If e.Shift AndAlso Not e.Control AndAlso Not e.Alt Then
             ' SHIFTキーが押されている場合
@@ -2989 +3003 @@
         Next
         _curList.EndUpdate()
+    End Sub
+
+    Private Sub GoSamePostToAnotherTab(ByVal left As Boolean)
+        If _curList.VirtualListSize = 0 Then Exit Sub
+        Dim fIdx As Integer = 0
+        Dim toIdx As Integer = 0
+        Dim stp As Integer = 1
+        Dim targetId As Long = 0
+
+        targetId = GetCurTabPost(_curList.SelectedIndices(0)).Id
+
+        If left Then
+            ' 左のタブへ
+            If ListTab.SelectedIndex > 0 Then
+                fIdx = ListTab.SelectedIndex - 1
+            Else
+                Exit Sub
+            End If
+            toIdx = 0
+            stp = -1
+        Else
+            ' 右のタブへ
+            If ListTab.SelectedIndex < ListTab.TabCount - 1 Then
+                fIdx = ListTab.SelectedIndex + 1
+            Else
+                Exit Sub
+            End If
+            toIdx = ListTab.TabCount - 1
+            stp = 1
+        End If
+
+            _curList.BeginUpdate()
+            Dim found As Boolean = False
+            For tabidx As Integer = fIdx To toIdx Step stp
+                For idx As Integer = 0 To DirectCast(ListTab.TabPages(tabidx).Controls(0), DetailsListView).VirtualListSize - 1
+                    If _statuses.Item(ListTab.TabPages(tabidx).Text, idx).Id = targetId Then
+                        ListTab.SelectTab(tabidx)
+                        SelectListItem(_curList, idx)
+                        _curList.EnsureVisible(idx)
+                        found = True
+                        Exit For
+                    End If
+                Next
+                If found Then Exit For
+            Next
+            _curList.EndUpdate()
     End Sub