• R/O
  • HTTP
  • SSH
  • HTTPS

open-tween: Commit

開発に使用するリポジトリ


Commit MetaInfo

Revisão853744ebec61e23348b8ce3da5e70c721e4fb3cc (tree)
Hora2012-02-18 23:12:35
Autorkiri_feather <kiri_feather@user...>
CommiterKimura Youichi

Mensagem de Log

09910910リリース。ソート順表示を2カラム対応へ(再)

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

Mudança Sumário

Diff

--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -483,21 +483,41 @@ Public Class TweenMain
483483 End Select
484484
485485 #If 1 Then
486- If _statuses.SortOrder() = SortOrder.Ascending Then
487- ' U+25BE BLACK DOWN-POINTING SMALL TRIANGLE
488- ColumnText(c) = ColumnOrgText(c) + "▾"
486+ If _iconCol Then
487+ If _statuses.SortOrder() = SortOrder.Ascending Then
488+ ' U+25BE BLACK DOWN-POINTING SMALL TRIANGLE
489+ ColumnText(2) = ColumnOrgText(2) + "▾"
490+ Else
491+ ' U+25B4 BLACK UP-POINTING SMALL TRIANGLE
492+ ColumnText(2) = ColumnOrgText(2) + "▴"
493+ End If
489494 Else
490- ' U+25B4 BLACK UP-POINTING SMALL TRIANGLE
491- ColumnText(c) = ColumnOrgText(c) + "▴"
495+ If _statuses.SortOrder() = SortOrder.Ascending Then
496+ ' U+25BE BLACK DOWN-POINTING SMALL TRIANGLE
497+ ColumnText(c) = ColumnOrgText(c) + "▾"
498+ Else
499+ ' U+25B4 BLACK UP-POINTING SMALL TRIANGLE
500+ ColumnText(c) = ColumnOrgText(c) + "▴"
501+ End If
492502 End If
493503 #Else
494- If _statuses.SortOrder() = SortOrder.Ascending Then
495- ' U+25BC BLACK DOWN-POINTING TRIANGLE
496- ColumnText(c) = ColumnOrgText(c) + "▼"
497- Else
498- ' U+25B2 BLACK UP-POINTING TRIANGLE
499- ColumnText(c) = ColumnOrgText(c) + "▲"
500- End If
504+ if _iconcol then
505+ If _statuses.SortOrder() = SortOrder.Ascending Then
506+ ' U+25BC BLACK DOWN-POINTING TRIANGLE
507+ ColumnText(2) = ColumnOrgText(2) + "▼"
508+ Else
509+ ' U+25B2 BLACK UP-POINTING TRIANGLE
510+ ColumnText(2) = ColumnOrgText(2) + "▲"
511+ End If
512+ else
513+ If _statuses.SortOrder() = SortOrder.Ascending Then
514+ ' U+25BC BLACK DOWN-POINTING TRIANGLE
515+ ColumnText(c) = ColumnOrgText(c) + "▼"
516+ Else
517+ ' U+25B2 BLACK UP-POINTING TRIANGLE
518+ ColumnText(c) = ColumnOrgText(c) + "▲"
519+ End If
520+ end if
501521 #End If
502522 End Sub
503523
@@ -2569,7 +2589,8 @@ Public Class TweenMain
25692589 InitColumnText()
25702590
25712591 If _iconCol Then
2572- If e.Column = 1 Then DirectCast(sender, DetailsListView).Columns.Item(1).Text = ColumnText(2)
2592+ DirectCast(sender, DetailsListView).Columns.Item(0).Text = ColumnOrgText(0)
2593+ DirectCast(sender, DetailsListView).Columns.Item(1).Text = ColumnText(2)
25732594 Else
25742595 For i As Integer = 0 To 7
25752596 DirectCast(sender, DetailsListView).Columns.Item(i).Text = ColumnOrgText(i)
Show on old repository browser