カラムヘッダをクリックした際に、ソート方向を表示するようにした

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@248 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index 86e77b8..40b2ed5 100644 (file)
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -10,6 +10,7 @@
  * バージョンアップ確認ダイアログのデフォルトボタン変更
  * 公式検索、ListsタブでFav追加・削除時に未読状態になる場合があったバグ修正
  * DMを右クリックあるいは操作メニューから削除できないことがあるバグ修正
+ * カラムヘッダをクリックした際に、ソート方向を表示するようにした
 ==== Ver 0.8.9.0(2010/05/03)
  * Webモード廃止
  * OAuth（xAuth）対応（API上限が350へ）。継続してBASIC認証も選択可能です。各APIの接続先は共通なので、API制限は共通となります。

diff --git a/Tween/StatusDictionary.vb b/Tween/StatusDictionary.vb
index 68fbde7..59be913 100644 (file)
--- a/Tween/StatusDictionary.vb
+++ b/Tween/StatusDictionary.vb
@@ -496,7 +496,7 @@ Public NotInheritable Class TabInformations
         End Set
     End Property
 
-    Public Sub ToggleSortOrder(ByVal SortMode As IdComparerClass.ComparerMode)
+    Public Function ToggleSortOrder(ByVal SortMode As IdComparerClass.ComparerMode) As Windows.Forms.SortOrder
         If _sorter.Mode = SortMode Then
             If _sorter.Order = Windows.Forms.SortOrder.Ascending Then
                 _sorter.Order = Windows.Forms.SortOrder.Descending
@@ -515,7 +515,8 @@ Public NotInheritable Class TabInformations
             Next
         End If
         Me.SortPosts()
-    End Sub
+        Return _sorter.Order
+    End Function
 
     Public ReadOnly Property RetweetSource(ByVal Id As Long) As PostClass
         Get

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 4cce266..5ef93b2 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -201,6 +201,9 @@ Public Class TweenMain
     Private UnreadCounter As Integer = -1
     Private UnreadAtCounter As Integer = -1
 
+    Private ColumnOrgText(8) As String
+    Private ColumnText(8) As String
+
     '''''''''''''''''''''''''''''''''''''''''''''''''''''
     Private _postBrowserStatusText As String = ""
 #If DEBUG Then
@@ -439,7 +442,28 @@ Public Class TweenMain
         End If
     End Sub
 
+    Private Sub InitColumnText()
+        ColumnText(0) = ""
+        ColumnText(1) = My.Resources.AddNewTabText2
+        ColumnText(2) = My.Resources.AddNewTabText3
+        ColumnText(3) = My.Resources.AddNewTabText4_2
+        ColumnText(4) = My.Resources.AddNewTabText5
+        ColumnText(5) = ""
+        ColumnText(6) = ""
+        ColumnText(7) = "Source"
+
+        ColumnOrgText(0) = ""
+        ColumnOrgText(1) = My.Resources.AddNewTabText2
+        ColumnOrgText(2) = My.Resources.AddNewTabText3
+        ColumnOrgText(3) = My.Resources.AddNewTabText4_2
+        ColumnOrgText(4) = My.Resources.AddNewTabText5
+        ColumnOrgText(5) = ""
+        ColumnOrgText(6) = ""
+        ColumnOrgText(7) = "Source"
+    End Sub
+
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        InitColumnText()
         _ignoreConfigSave = True
         Me.Visible = False
         SecurityManager = New InternetSecurityManager(PostBrowser)
@@ -2601,7 +2625,14 @@ Public Class TweenMain
                     mode = IdComparerClass.ComparerMode.Source
             End Select
         End If
-        _statuses.ToggleSortOrder(mode)
+        InitColumnText()
+        If _statuses.ToggleSortOrder(mode) = SortOrder.Ascending Then
+            ' U+25BE BLACK DOWN-POINTING SMALL TRIANGLE
+            ColumnText(e.Column) = ColumnOrgText(e.Column) + "▾"
+        Else
+            ' U+25B4 BLACK UP-POINTING SMALL TRIANGLE
+            ColumnText(e.Column) = ColumnOrgText(e.Column) + "▴"
+        End If
         _itemCache = Nothing
         _postCache = Nothing
         _curList.Refresh()
@@ -3834,6 +3865,7 @@ Public Class TweenMain
     End Function
 
     Private Sub MyList_DrawColumnHeader(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs)
+        e.Header.Text = ColumnText(e.Header.Index)
         e.DrawDefault = True
     End Sub