Changeset 18199

Show
Ignore:
Timestamp:
08/25/08 03:10:17 (5 years ago)
Author:
kiri_feather
Message:

ステータスバーに発言数カウント表示。
タイトル書き換えを取得時のみに戻した。
ソートロック使えるようにした。

Location:
lang/vb2005/Tween/Tween
Files:
5 modified

Legend:

Unmodified
Added
Removed

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

    r18167 r18199  
    1010-アイコンサイズ48x48の場合はリサイズを行わないようにした。 
    1111-タイトルバーとツールチップにユーザー名を表示させる機能を追加。設定画面で「タイトルバーとツールチップ ユーザー名を表示」にチェックを入れてください。 
    12 -タイトルバーの表示内容を選択できるように変更（設定画面）。なし、バージョン、発言、未読＠数、未読数、未読数(未読＠数)、全未読/全発言数。 
     12-タイトルバーの表示内容を選択できるように変更（設定画面）。なし、バージョン、発言、未読＠数、未読数、未読数(未読＠数)、全未読/全発言数。（更新は取得時のみ） 
    1313-振り分けルールダイアログで、ルールをダブルクリックしたときに編集できるようにした。 
    1414-URL選択ダイアログで、URLをダブルクリックしたときにURLジャンプできるようにした。 
    … …  
    1616-未読ジャンプ高速化 
    1717-DM解析キー変更に追従 
     18-画面下部URL表示欄に、各種カウント数表示 
     19-ソート順ロックを有効化 
    1820***Ver0.0.9.1(2008/8/4) 
    1921-振り分けルールの変更有無チェックでこけるバグ修正 

  • lang/vb2005/Tween/Tween/Setting.Designer.vb

    r18097 r18199  
    9494        Me.Label10 = New System.Windows.Forms.Label 
    9595        Me.CheckUseRecommendStatus = New System.Windows.Forms.CheckBox 
    96         Me.CheckBox2 = New System.Windows.Forms.CheckBox 
     96        Me.CheckSortOrderLock = New System.Windows.Forms.CheckBox 
    9797        Me.Label21 = New System.Windows.Forms.Label 
    9898        Me.ComboBox1 = New System.Windows.Forms.ComboBox 
    … …  
    801801        Me.CheckUseRecommendStatus.UseVisualStyleBackColor = True 
    802802        ' 
    803         'CheckBox2 
    804         ' 
    805         Me.CheckBox2.AutoSize = True 
    806         Me.CheckBox2.Enabled = False 
    807         Me.CheckBox2.Location = New System.Drawing.Point(181, 448) 
    808         Me.CheckBox2.Name = "CheckBox2" 
    809         Me.CheckBox2.Size = New System.Drawing.Size(67, 16) 
    810         Me.CheckBox2.TabIndex = 38 
    811         Me.CheckBox2.Text = "ロックする" 
    812         Me.CheckBox2.UseVisualStyleBackColor = True 
     803        'CheckSortOrderLock 
     804        ' 
     805        Me.CheckSortOrderLock.AutoSize = True 
     806        Me.CheckSortOrderLock.Location = New System.Drawing.Point(181, 448) 
     807        Me.CheckSortOrderLock.Name = "CheckSortOrderLock" 
     808        Me.CheckSortOrderLock.Size = New System.Drawing.Size(67, 16) 
     809        Me.CheckSortOrderLock.TabIndex = 38 
     810        Me.CheckSortOrderLock.Text = "ロックする" 
     811        Me.CheckSortOrderLock.UseVisualStyleBackColor = True 
    813812        ' 
    814813        'Label21 
    815814        ' 
    816815        Me.Label21.AutoSize = True 
    817         Me.Label21.Enabled = False 
    818816        Me.Label21.Location = New System.Drawing.Point(12, 449) 
    819817        Me.Label21.Name = "Label21" 
    … …  
    10531051        Me.Label42.TabIndex = 61 
    10541052        Me.Label42.Text = "POSTにAPIを使用する" 
     1053        Me.Label42.Visible = False 
    10551054        ' 
    10561055        'CheckUseAPI 
    … …  
    10641063        Me.CheckUseAPI.Text = "使用する" 
    10651064        Me.CheckUseAPI.UseVisualStyleBackColor = True 
     1065        Me.CheckUseAPI.Visible = False 
    10661066        ' 
    10671067        'HubServerDomain 
    … …  
    11411141        Me.ComboDispTitle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList 
    11421142        Me.ComboDispTitle.FormattingEnabled = True 
    1143         Me.ComboDispTitle.Items.AddRange(New Object() {"（なし）", "バージョン", "最終発言", "＠未読数", "全未読数", "＠未読/全未読数", "全未読/全発言数"}) 
     1143        Me.ComboDispTitle.Items.AddRange(New Object() {"（なし）", "バージョン", "最終発言", "＠未読数", "未読数", "未読数(@未読数)", "全未読/全発言数"}) 
    11441144        Me.ComboDispTitle.Location = New System.Drawing.Point(181, 555) 
    11451145        Me.ComboDispTitle.Name = "ComboDispTitle" 
    … …  
    11891189        Me.Controls.Add(Me.Label23) 
    11901190        Me.Controls.Add(Me.Label21) 
    1191         Me.Controls.Add(Me.CheckBox2) 
     1191        Me.Controls.Add(Me.CheckSortOrderLock) 
    11921192        Me.Controls.Add(Me.CheckUseRecommendStatus) 
    11931193        Me.Controls.Add(Me.cmbNameBalloon) 
    … …  
    13041304    Friend WithEvents Label19 As System.Windows.Forms.Label 
    13051305    Friend WithEvents CheckUseRecommendStatus As System.Windows.Forms.CheckBox 
    1306     Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox 
     1306    Friend WithEvents CheckSortOrderLock As System.Windows.Forms.CheckBox 
    13071307    Friend WithEvents Label21 As System.Windows.Forms.Label 
    13081308    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox 

  • lang/vb2005/Tween/Tween/Setting.vb

    r18097 r18199  
    3838    Private _MyDispUsername As Boolean 
    3939    Private _MyDispLatestPost As DispTitleEnum 
     40    Private _MySortOrderLock As Boolean 
    4041 
    4142    Public Enum LogUnitEnum 
    … …  
    160161                    _MyDispLatestPost = DispTitleEnum.UnreadCountAllCount 
    161162            End Select 
     163            _MySortOrderLock = CheckSortOrderLock.Checked 
    162164 
    163165            'TweenMain.SetMainWindowTitle() 
    … …  
    256258                ComboDispTitle.SelectedIndex = 6 
    257259        End Select 
     260        CheckSortOrderLock.Checked = _MySortOrderLock 
    258261 
    259262        'TweenMain.SetMainWindowTitle() 
    … …  
    855858    End Sub 
    856859 
     860    Public Property SortOrderLock() As Boolean 
     861        Get 
     862            Return _MySortOrderLock 
     863        End Get 
     864        Set(ByVal value As Boolean) 
     865            _MySortOrderLock = value 
     866        End Set 
     867    End Property 
     868 
    857869End Class 

  • lang/vb2005/Tween/Tween/TwConfig.vb

    r18097 r18199  
    14171417        Set(ByVal value As String) 
    14181418            Me("browserpath") = value 
     1419        End Set 
     1420    End Property 
     1421 
     1422    <ConfigurationProperty("sortorderlock", DefaultValue:=False)> _ 
     1423    Public Property SortOrderLock() As Boolean 
     1424        Get 
     1425            Return CBool(Me("sortorderlock")) 
     1426        End Get 
     1427        Set(ByVal value As Boolean) 
     1428            Me("sortorderlock") = value 
    14191429        End Set 
    14201430    End Property 

  • lang/vb2005/Tween/Tween/Tween.vb

    r18184 r18199  
    297297        SettingDialog.DispUsername = _section.DispUsername 
    298298        SettingDialog.DispLatestPost = _section.DispLatestPost 
    299  
     299        SettingDialog.SortOrderLock = _section.SortOrderLock 
    300300 
    301301        'ユーザー名、パスワードが未設定なら設定画面を表示（初回起動時など） 
    … …  
    21652165    Private Sub MyList_ColumnClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles Timeline.ColumnClick, Reply.ColumnClick, DirectMsg.ColumnClick 
    21662166        '        If ListTab.SelectedTab.Text <> "Direct" Then 
     2167        If SettingDialog.SortOrderLock Then Exit Sub 
     2168 
    21672169        listViewItemSorter.Column = e.Column 
    21682170        For Each _tab As TabPage In ListTab.TabPages 
    … …  
    27472749                        _tabs(idx).oldestUnreadItem = lItem 
    27482750                    Else 
    2749                         If _tabs(idx).oldestUnreadItem.SubItems(5).Text > lItem.SubItems(5).Text And _ 
    2750                           listViewItemSorter.Column = 3 Then 
     2751                        If _tabs(idx).oldestUnreadItem.SubItems(5).Text > lItem.SubItems(5).Text Then 
    27512752                            _tabs(idx).oldestUnreadItem = lItem 
    27522753                        End If 
    … …  
    27692770                                            ts.oldestUnreadItem = itm 
    27702771                                        Else 
    2771                                             If ts.oldestUnreadItem.SubItems(5).Text > itm.SubItems(5).Text And _ 
    2772                                                listViewItemSorter.Column = 3 Then 
     2772                                            If ts.oldestUnreadItem.SubItems(5).Text > itm.SubItems(5).Text Then 
    27732773                                                ts.oldestUnreadItem = itm 
    27742774                                            End If 
    … …  
    34373437        End If 
    34383438        If PostBrowser.StatusText = "" Then 
    3439             StatusLabelUrl.Text = "" 
     3439            'StatusLabelUrl.Text = "" 
     3440            Call SetStatusLabel() 
    34403441        End If 
    34413442    End Sub 
    … …  
    39933994        For Each ts As TabStructure In _tabs 
    39943995            If ts.listCustom.Equals(myList) Then 
     3996                If ts.unreadCount = 0 Then Exit For 
    39953997                If listViewItemSorter.Column = 3 Then 
    39963998                    If listViewItemSorter.Order = SortOrder.Ascending Then 
    … …  
    40034005                        stp = 1 
    40044006                    Else 
    4005                         cidx = myList.Items.Count - 1 
    40064007                        If ts.oldestUnreadItem Is Nothing Then 
    4007                             toIdx = 0 
     4008                            cidx = myList.Items.Count - 1 
    40084009                        Else 
    4009                             toIdx = ts.oldestUnreadItem.Index 
     4010                            cidx = ts.oldestUnreadItem.Index 
    40104011                        End If 
     4012                        toIdx = 0 
    40114013                        stp = -1 
    40124014                    End If 
    … …  
    42364238        Call ColorizeList(False) 
    42374239        Call DispSelectedPost() 
    4238         Call SetMainWindowTitle() 
     4240        'Call SetMainWindowTitle() 
     4241        If StatusLabelUrl.Text.StartsWith("http") = False Then Call SetStatusLabel() 
    42394242    End Sub 
    42404243 
    … …  
    49024905            _section.DispUsername = SettingDialog.DispUsername 
    49034906            _section.DispLatestPost = SettingDialog.DispLatestPost 
     4907            _section.SortOrderLock = SettingDialog.SortOrderLock 
    49044908 
    49054909            Dim tmpList As TweenCustomControl.DetailsListView = Nothing 
    … …  
    60536057                ttl += ur.ToString() + "件 (未読)" 
    60546058            Case Setting.DispTitleEnum.UnreadAllRepCount 
    6055                 ttl += ur.ToString() + " ( " + urat.ToString() + " )件 (未読(＠))" 
     6059                ttl += ur.ToString() + " (" + urat.ToString() + ")件 (未読)" 
    60566060            Case Setting.DispTitleEnum.UnreadCountAllCount 
    60576061                ttl += ur.ToString() + "/" + al.ToString() + "件 (未読/総件数)" 
    … …  
    60596063 
    60606064        Me.Text = ttl 
     6065    End Sub 
     6066 
     6067    Private Sub SetStatusLabel() 
     6068        'ステータス欄にカウント表示 
     6069        'タブ未読数/タブ発言数 全未読数/総発言数 (未読＠＋未読DM数) 
     6070        Dim urat As Integer = _tabs(1).unreadCount + _tabs(2).unreadCount 
     6071        Dim ur As Integer = 0 
     6072        Dim al As Integer = 0 
     6073        Dim tur As Integer = 0 
     6074        Dim tal As Integer = 0 
     6075        For Each ts As TabStructure In _tabs 
     6076            ur += ts.unreadCount 
     6077            al += ts.allCount 
     6078            If ts.tabPage.Equals(ListTab.SelectedTab) Then 
     6079                tur = ts.unreadCount 
     6080                tal = ts.allCount 
     6081            End If 
     6082        Next 
     6083        StatusLabelUrl.Text = "タブ: " + tur.ToString() + "/" + tal.ToString() + " 全体:" + ur.ToString() + "/" + al.ToString() + " (返信: " + urat.ToString() + ")" 
    60616084    End Sub 
    60626085