Me.ListFilters.FormattingEnabled = True
resources.ApplyResources(Me.ListFilters, "ListFilters")
Me.ListFilters.Name = "ListFilters"
+ Me.ListFilters.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended
'
'EditFilterGroup
'
ButtonNew.Enabled = False
ButtonEdit.Enabled = False
ButtonDelete.Enabled = False
+ ButtonRuleUp.Enabled = False
+ ButtonRuleDown.Enabled = False
+ ButtonRuleCopy.Enabled = False
+ ButtonRuleMove.Enabled = False
Case Else
ButtonNew.Enabled = True
ButtonEdit.Enabled = True
ButtonDelete.Enabled = True
+ ButtonRuleUp.Enabled = True
+ ButtonRuleDown.Enabled = True
+ ButtonRuleCopy.Enabled = True
+ ButtonRuleMove.Enabled = True
End Select
ButtonRenameTab.Enabled = True
If TabInformations.GetInstance.IsDefaultTab(tabName) Then
- 'ButtonRenameTab.Enabled = False
ButtonDeleteTab.Enabled = False
Else
- 'ButtonRenameTab.Enabled = True
ButtonDeleteTab.Enabled = True
End If
ButtonClose.Enabled = True
Private Sub ButtonDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDelete.Click
If ListFilters.SelectedIndex = -1 Then Exit Sub
- Dim tmp As String = String.Format(My.Resources.ButtonDelete_ClickText1, vbCrLf, ListFilters.SelectedItem.ToString)
+ Dim tmp As String = ""
+ Dim rslt As Windows.Forms.DialogResult
- If MessageBox.Show(tmp, My.Resources.ButtonDelete_ClickText2, _
- MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then Exit Sub
-
- Dim i As Integer = ListFilters.SelectedIndex
+ If ListFilters.SelectedIndices.Count = 1 Then
+ tmp = String.Format(My.Resources.ButtonDelete_ClickText1, vbCrLf, ListFilters.SelectedItem.ToString)
+ rslt = MessageBox.Show(tmp, My.Resources.ButtonDelete_ClickText2, _
+ MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
+ Else
+ tmp = String.Format(My.Resources.ButtonDelete_ClickText3, ListFilters.SelectedIndices.Count.ToString)
+ rslt = MessageBox.Show(tmp, My.Resources.ButtonDelete_ClickText2, _
+ MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
+ End If
+ If rslt = Windows.Forms.DialogResult.Cancel Then Exit Sub
- _sts.Tabs(ListTabs.SelectedItem.ToString()).RemoveFilter(DirectCast(ListFilters.SelectedItem, FiltersClass))
- ListFilters.Items.RemoveAt(i)
+ For idx As Integer = ListFilters.Items.Count - 1 To 0 Step -1
+ _sts.Tabs(ListTabs.SelectedItem.ToString()).RemoveFilter(DirectCast(ListFilters.Items(idx), FiltersClass))
+ ListFilters.Items.RemoveAt(idx)
+ Next
End Sub
Private Sub ButtonCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCancel.Click
filters.Add(_sts.Tabs(tabname).Filters(idx))
Next
For Each tb As String In tabs
- _sts.Tabs(tb).Filters.AddRange(filters)
+ For Each flt As FiltersClass In filters
+ If Not _sts.Tabs(tb).Filters.Contains(flt) Then
+ _sts.Tabs(tb).Filters.Add(flt)
+ End If
+ Next
Next
End Sub
End Property
'''<summary>
+ ''' 選択されている{0}件のルールを削除してもよろしいですか？ に類似しているローカライズされた文字列を検索します。
+ '''</summary>
+ Friend ReadOnly Property ButtonDelete_ClickText3() As String
+ Get
+ Return ResourceManager.GetString("ButtonDelete_ClickText3", resourceCulture)
+ End Get
+ End Property
+
+ '''<summary>
''' ルールを指定してください。 に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property ButtonOK_ClickText1() As String
''' * @,#補完ダイアログ呼び出しのショートカットをCtrl+Shift+Spaceに変更
''' * プロフィール画面からブロック解除ができるようにした。ダイアログによる確認が入ります。
''' * STOTコピーの際にProtect発言が含まれていた場合ダイアログを出すようにした
- '''==== Ver 0.9.2.3(2010/06/14)
- ''' * DM送信で複数行を考慮していなかったのを修正(開発版のみ。安定版では問題ありません)
- ''' * 画像プレビューで未対応画像形式のチェックをするようにした
- ''' * ハッシュタグマネージャで大文字小文字を区別せずに扱うようにした
- ''' * パスワードを設定するミスが多いため、設定画面をOKで閉じる際にbit.lyのアカウント情報が正しいかどうか検証するようにした
- ''' * Ctrl+フルキー数字でタブのダイレクト選択ができるようにした。Ctrl+1～8で左端からのタブを選択、 [残りの文字列は切り詰められました]"; に類似しているローカライズされた文字列を検索します。
+ ''' * 相互フォロー状態表示の際にID表示が正しくない場合があったのを修正
+ ''' * @,#補完ダイアログにおいて、Space、TABキーでの確定が機能していなかったバグを修正(0.9.2.3のみ。それ以外のバージョンでは問題ありません)
+ ''' * 詳細表示にフォーカスがある場合にIEのショートカットが動作してしまっていたのを修正
+ ''' * 詳細表示でSHIFT+F5キーまたはSHIFT+Rキーを押した場合に通常の更新として動作していたバグを修正(遡るのが正しい)
+ ''' * スペースキーを押したままにしてスペースの連続が入力された場合にも未 [残りの文字列は切り詰められました]"; に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property ChangeLog() As String
Get
End Property
'''<summary>
- ''' ポストまで読み込み完了。さらに読み込みますか？ に類似しているローカライズされた文字列を検索します。
- '''</summary>
- Friend ReadOnly Property GetTimelineWorker_RunWorkerCompletedText2() As String
- Get
- Return ResourceManager.GetString("GetTimelineWorker_RunWorkerCompletedText2", resourceCulture)
- End Get
- End Property
-
- '''<summary>
''' Fav取得完了 に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property GetTimelineWorker_RunWorkerCompletedText20() As String
End Property
'''<summary>
- ''' Twitterからのお知らせはありません。 に類似しているローカライズされた文字列を検索します。
- '''</summary>
- Friend ReadOnly Property InfoTwitterMenuItem_ClickText1() As String
- Get
- Return ResourceManager.GetString("InfoTwitterMenuItem_ClickText1", resourceCulture)
- End Get
- End Property
-
- '''<summary>
- ''' Twitterからのお知らせ に類似しているローカライズされた文字列を検索します。
- '''</summary>
- Friend ReadOnly Property InfoTwitterMenuItem_ClickText2() As String
- Get
- Return ResourceManager.GetString("InfoTwitterMenuItem_ClickText2", resourceCulture)
- End Get
- End Property
-
- '''<summary>
''' タイムライン振り分け に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property InputTabName_Load1() As String
<data name="GetTimelineWorker_RunWorkerCompletedText18" xml:space="preserve">
<value>) 失敗:</value>
</data>
- <data name="GetTimelineWorker_RunWorkerCompletedText2" xml:space="preserve">
- <value> ポストまで読み込み完了。さらに読み込みますか？</value>
- </data>
<data name="GetTimelineWorker_RunWorkerCompletedText3" xml:space="preserve">
<value>読み込み継続確認</value>
</data>
<data name="IDRuleMenuItem_ClickText7" xml:space="preserve">
<value>マーク確認</value>
</data>
- <data name="InfoTwitterMenuItem_ClickText1" xml:space="preserve">
- <value>Twitterからのお知らせはありません。</value>
- </data>
- <data name="InfoTwitterMenuItem_ClickText2" xml:space="preserve">
- <value>Twitterからのお知らせ</value>
- </data>
<data name="LoadConfigurationText1" xml:space="preserve">
<value>この設定ファイルは Tween により自動生成されました。手動で変更しないでください。</value>
</data>
<data name="CopyStotText1" xml:space="preserve">
<value>警告：Protected発言はコピーされていません。</value>
</data>
+ <data name="ButtonDelete_ClickText3" xml:space="preserve">
+ <value>選択されている{0}件のルールを削除してもよろしいですか？ </value>
+ </data>
</root>
\ No newline at end of file
OSDN Git Service
