svnno****@sourc*****
svnno****@sourc*****
2010年 11月 19日 (金) 17:34:11 JST
Revision: 1083
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1083
Author: f_swallow
Date: 2010-11-19 17:34:11 +0900 (Fri, 19 Nov 2010)
Log Message:
-----------
複数発言を公式RTする場合にメッセージを表示するようにした。また制限を60に設定
Modified Paths:
--------------
trunk/Tween/My Project/Resources.Designer.vb
trunk/Tween/My Project/Resources.resx
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/My Project/Resources.Designer.vb
===================================================================
--- trunk/Tween/My Project/Resources.Designer.vb 2010-11-18 13:11:48 UTC (rev 1082)
+++ trunk/Tween/My Project/Resources.Designer.vb 2010-11-19 08:34:11 UTC (rev 1083)
@@ -532,22 +532,18 @@
'''<summary>
''' 更新履歴
'''
- '''==== Ver 0.9.6.1(2010/10/22)
- ''' * URL直後のハッシュタグがリンク化されないバグを修正
- ''' * PublicSearchの取得数を変更可能にした
- ''' * Ctrl+J/K,SHIFT+J/Kが効かなくなっていたバグを修正
- ''' * リストビューでのアイコンが縦長に描画されるバグを修正
- ''' * リストビューでの文字列の描画位置を上寄せに変更
- ''' * 非公式RTの際に元ツイートに@IDが含まれていた場合@を含めないようにした
- ''' * アイコンの背景を白く塗るようにした
- ''' * リスト部分で表示し切れない行は表示していなかったのを、読めそうな範囲で描画出来そうな行は表示するように変更
- ''' * 入力欄でCtrl+Shift+←→ を動作するようにした
- ''' * 短縮URL解決の設定が正しく動作しておらずオフにできなかったバグを修正
- ''' * yfrogへの画像投稿に対応
- ''' * 取得時の自ポスト既読化をDMにも適用するようにした
- ''' * Favorites取得数を設定できるようにした。０で標準取得数に合わせる
- ''' * リストビューの描画を若干高速化した
- ''' * BASIC認証 [残りの文字列は切り詰められました]"; に類似しているローカライズされた文字列を検索します。
+ '''==== Ver 0.9.7.0(2010/11/14)
+ ''' * 描画周りの高速化と調整を行った
+ ''' * リスト表示が真っ白になる現象の対策を行った まだ発生する方はご連絡ください。
+ ''' * 連投モードで投稿失敗ダイアログをキャンセルした場合にStatusTextの背景色が戻らないのを修正
+ ''' * Protect発言をRT/STOTコピー許可するかの設定を廃止し公式RTの際に確認しない設定を追加した
+ ''' * Alt+Shift+CでユーザーIDをコピーするようにした 編集メニューにもあります。
+ ''' * Sourceのリンク部分においてもフィルタが効くようにした（URL検索にチェックを入れる必要があります)
+ ''' * WebBrowserコンポーネントの初期化完了を待つようにした
+ ''' * 移動や削除などでフィルタ選択が解除された場合にボタンの有効状態が切り替わっていなかったのを修正
+ ''' * ObjectDisposedExceptionが起きることがあったのを修正
+ ''' * 短縮URL解決で例外が発生することがあったのを(多分)修正
+ ''' * クエリまたはフラグメント部分に？を含むURLの認識に失敗す [残りの文字列は切り詰められました]"; に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property ChangeLog() As String
Get
@@ -1772,6 +1768,15 @@
End Property
'''<summary>
+ ''' 一度にRetweetできるのは60件までです に類似しているローカライズされた文字列を検索します。
+ '''</summary>
+ Friend ReadOnly Property RetweetLimitText() As String
+ Get
+ Return ResourceManager.GetString("RetweetLimitText", resourceCulture)
+ End Get
+ End Property
+
+ '''<summary>
''' Retweetしてもよろしいですか？ に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property RetweetQuestion1() As String
@@ -1781,6 +1786,15 @@
End Property
'''<summary>
+ ''' 選択された発言をRetweetしてもよろしいですか？ に類似しているローカライズされた文字列を検索します。
+ '''</summary>
+ Friend ReadOnly Property RetweetQuestion2() As String
+ Get
+ Return ResourceManager.GetString("RetweetQuestion2", resourceCulture)
+ End Get
+ End Property
+
+ '''<summary>
''' Retweetカウント取得中・・・ に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property RtCountMenuItem_ClickText1() As String
Modified: trunk/Tween/My Project/Resources.resx
===================================================================
--- trunk/Tween/My Project/Resources.resx 2010-11-18 13:11:48 UTC (rev 1082)
+++ trunk/Tween/My Project/Resources.resx 2010-11-19 08:34:11 UTC (rev 1083)
@@ -1021,4 +1021,10 @@
<data name="WebSourceString" xml:space="preserve">
<value><a href="http://twitter.com/" rel="nofollow">web</a></value>
</data>
+ <data name="RetweetLimitText" xml:space="preserve">
+ <value>一度にRetweetできるのは60件までです</value>
+ </data>
+ <data name="RetweetQuestion2" xml:space="preserve">
+ <value>選択された発言をRetweetしてもよろしいですか？</value>
+ </data>
</root>
\ No newline at end of file
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2010-11-18 13:11:48 UTC (rev 1082)
+++ trunk/Tween/Tween.vb 2010-11-19 08:34:11 UTC (rev 1083)
@@ -8211,15 +8211,21 @@
MessageBox.Show("Protected.")
Exit Sub
End If
- If Not SettingDialog.RetweetNoConfirm Then
- If isConfirm AndAlso MessageBox.Show(My.Resources.RetweetQuestion1, "Retweet", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then
- Exit Sub
+ If _curList.SelectedIndices.Count > 60 Then
+ MessageBox.Show(My.Resources.RetweetLimitText)
+ Exit Sub
+ ElseIf _curList.SelectedIndices.Count > 1 Then
+ Select Case MessageBox.Show(My.Resources.RetweetQuestion2, "Retweet", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
+ Case Windows.Forms.DialogResult.Cancel, Windows.Forms.DialogResult.No
+ Exit Sub
+ End Select
+ Else
+ If Not SettingDialog.RetweetNoConfirm Then
+ If isConfirm AndAlso MessageBox.Show(My.Resources.RetweetQuestion1, "Retweet", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then
+ Exit Sub
+ End If
End If
End If
- If _curList.SelectedIndices.Count > 10 Then
- MessageBox.Show("一度にReTweetできるのは10までです")
- Exit Sub
- End If
Dim args As New GetWorkerArg
args.ids = New List(Of Long)
args.sIds = New List(Of Long)