• R/O
  • SSH
  • HTTPS

tween: Commit


Commit MetaInfo

Revision1625 (tree)
Time2011-10-11 00:55:26
Authorneta

Log Message

ソート順変更のショートカットキーを追加 (Ctrl+Shift+数字)

Change Summary

Incremental Difference

--- trunk/Tween/Tween.vb (revision 1624)
+++ trunk/Tween/Tween.vb (revision 1625)
@@ -5644,6 +5644,23 @@
56445644 Return pressed
56455645 End If
56465646 End Select
5647+ ElseIf Focused = FocusedControl.ListTab Then
5648+ Select Case KeyCode
5649+ Case Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8
5650+ ' ソートダイレクト選択(Ctrl+Shift+1~8,Ctrl+Shift+9)
5651+ Dim colNo As Integer = KeyCode - Keys.D1
5652+ Dim lst As DetailsListView = DirectCast(ListTab.SelectedTab.Tag, DetailsListView)
5653+ If lst.Columns.Count < colNo Then Exit Function
5654+ Dim col = lst.Columns.Cast(Of ColumnHeader).Where(Function(x) x.DisplayIndex = colNo).FirstOrDefault()
5655+ If col Is Nothing Then Exit Function
5656+ MyList_ColumnClick(lst, New ColumnClickEventArgs(col.Index))
5657+ Return True
5658+ Case Keys.D9
5659+ Dim lst As DetailsListView = DirectCast(ListTab.SelectedTab.Tag, DetailsListView)
5660+ Dim col = lst.Columns.Cast(Of ColumnHeader).OrderByDescending(Function(x) x.DisplayIndex).First()
5661+ MyList_ColumnClick(lst, New ColumnClickEventArgs(col.Index))
5662+ Return True
5663+ End Select
56475664 End If
56485665 Case ModifierState.Ctrl Or ModifierState.Alt
56495666 If KeyCode = Keys.S Then
Show on old repository browser