公式RT化確認のメッセージを丁寧に。投稿中断も可能に

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

diff --git a/Tween/My Project/Resources.Designer.vb b/Tween/My Project/Resources.Designer.vb
index 97d0039..2daf237 100644 (file)
--- a/Tween/My Project/Resources.Designer.vb
+++ b/Tween/My Project/Resources.Designer.vb
@@ -541,7 +541,7 @@ Namespace My.Resources
         '''<summary>
         '''  更新履歴
         '''
-        '''==== Ver 0.9.4.1(2010/07/**)
+        '''==== Ver 0.9.5.0(2010/08/08)
         ''' * 画像投稿のキャンセル時にフォーカスをリスト部へ戻すようにした
         ''' * 画像投稿モードをESCキーでキャンセルした際にビープ音が鳴らないようにした
         ''' * 読み上げソフトで、タイムラインの選択tweetを変更すると、画像投稿画面の「投稿先」ラベルを毎回読み上げてしまうので、未使用時は投稿画面のパーツを無効に
@@ -1455,7 +1455,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  ç·¨é\9b\86ã\81\95ã\82\8cã\81¦ã\81ªã\81\84ã\81\9fã\82\81ã\80\81å\85¬å¼\8fRTã\81¨ã\81\97ã\81¦æ\8a\95稿ã\81\97ã\81¾ã\81\99ã\80\82ã\82\88ã\82\8dã\81\97ã\81\84ã\81§ã\81\99ã\81\8bï¼\9f に類似しているローカライズされた文字列を検索します。
+        '''  ç·¨é\9b\86ã\81\95ã\82\8cã\81¦ã\81ªã\81\84ã\81\9fã\82\81ã\80\81å\85¬å¼\8fRTã\81¨ã\81\97ã\81¦æ\8a\95稿ã\81\97ã\81¾ã\81\8bï¼\9f{0}[ã\81¯ã\81\84ï¼\9aå\85¬å¼\8fRTã\81§æ\8a\95稿]{0}[ã\81\84ã\81\84ã\81\88ï¼\9aé\9d\9eå\85¬å¼\8fRTã\81§æ\8a\95稿]{0}[ã\82­ã\83£ã\83³ã\82»ã\83«ï¼\9aæ\8a\95稿ã\81\97ã\81ªã\81\84] に類似しているローカライズされた文字列を検索します。
         '''</summary>
         Friend ReadOnly Property PostButton_Click1() As String
             Get

diff --git a/Tween/My Project/Resources.en.resx b/Tween/My Project/Resources.en.resx
index a8f3ded..23aa467 100644 (file)
--- a/Tween/My Project/Resources.en.resx
+++ b/Tween/My Project/Resources.en.resx
@@ -757,6 +757,6 @@
     <value>Media sharing service</value>
   </data>
   <data name="PostButton_Click1" xml:space="preserve">
-    <value>This tweet isn't changed. Post this tweet as Official Retweet?</value>
+    <value>This tweet isn't changed. Post this tweet as Official Retweet?{0}[Yes:Official Retweet]{0}[No:resume]{0}[Cancel:abort to post]</value>
   </data>
 </root>
\ No newline at end of file

diff --git a/Tween/My Project/Resources.resx b/Tween/My Project/Resources.resx
index e3aba34..a8d73ce 100644 (file)
--- a/Tween/My Project/Resources.resx
+++ b/Tween/My Project/Resources.resx
@@ -956,7 +956,7 @@
     <value>..\Resources\MultiMediaImage.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="PostButton_Click1" xml:space="preserve">
-    <value>ç·¨é\9b\86ã\81\95ã\82\8cã\81¦ã\81ªã\81\84ã\81\9fã\82\81ã\80\81å\85¬å¼\8fRTã\81¨ã\81\97ã\81¦æ\8a\95稿ã\81\97ã\81¾ã\81\99ã\80\82ã\82\88ã\82\8dã\81\97ã\81\84ã\81§ã\81\99ã\81\8bï¼\9f</value>
+    <value>ç·¨é\9b\86ã\81\95ã\82\8cã\81¦ã\81ªã\81\84ã\81\9fã\82\81ã\80\81å\85¬å¼\8fRTã\81¨ã\81\97ã\81¦æ\8a\95稿ã\81\97ã\81¾ã\81\8bï¼\9f{0}[ã\81¯ã\81\84ï¼\9aå\85¬å¼\8fRTã\81§æ\8a\95稿]{0}[ã\81\84ã\81\84ã\81\88ï¼\9aé\9d\9eå\85¬å¼\8fRTã\81§æ\8a\95稿]{0}[ã\82­ã\83£ã\83³ã\82»ã\83«ï¼\9aæ\8a\95稿ã\81\97ã\81ªã\81\84]</value>
   </data>
   <data name="Description" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\description.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 3bcb146..9e866cd 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -1770,11 +1770,18 @@ Public Class TweenMain
         End If
 
         If _curPost IsNot Nothing AndAlso StatusText.Text.Trim() = String.Format("RT @{0}: {1}", _curPost.Name, _curPost.Data) Then
-            If MessageBox.Show(My.Resources.PostButton_Click1, "Retweet", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
-                doReTweetOriginal()
-                StatusText.Text = ""
-                Exit Sub
-            End If
+            Dim rtResult As DialogResult = MessageBox.Show(String.Format(My.Resources.PostButton_Click1, Environment.NewLine),
+                                                           "Retweet",
+                                                           MessageBoxButtons.YesNoCancel,
+                                                           MessageBoxIcon.Question)
+            Select rtResult
+                Case Windows.Forms.DialogResult.Yes
+                    doReTweetOriginal()
+                    StatusText.Text = ""
+                    Exit Sub
+                Case Windows.Forms.DialogResult.Cancel
+                    Exit Sub
+            End Select
         End If
 
         _history(_history.Count - 1) = StatusText.Text.Trim