From 7712c79c41f68fac291d03acf40891b090754b1a Mon Sep 17 00:00:00 2001
From: syo68k <syo68k@users.sourceforge.jp>
Date: Fri, 30 Jul 2010 13:27:27 +0000
Subject: [PATCH] =?utf8?q?=E7=99=BA=E8=A8=80=E8=A9=B3=E7=B4=B0=E3=81=AE?=
 =?utf8?q?=E3=82=A2=E3=82=A4=E3=82=B3=E3=83=B3=E3=82=92=E5=8F=B3=E3=82=AF?=
 =?utf8?q?=E3=83=AA=E3=83=83=E3=82=AF=E3=81=97=E3=81=9F=E9=9A=9B=E3=81=AB?=
 =?utf8?q?=E4=BE=8B=E5=A4=96=E3=82=92=E8=B5=B7=E3=81=93=E3=81=99=E3=81=93?=
 =?utf8?q?=E3=81=A8=E3=81=8C=E3=81=82=E3=82=8B=E3=83=90=E3=82=B0=E3=82=92?=
 =?utf8?q?=E4=BF=AE=E6=AD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@635 e39ad16e-3079-482e-bb30-4b4d378143b6
---
 Tween/Resources/ChangeLog.txt |  1 +
 Tween/Tween.vb                | 16 +++++++++++-----
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index 409d73ed..30fc550e 100644
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -36,6 +36,7 @@
  * 除外フィルタを使用している振り分けルールを移動・コピーすると例外を発生するバグを修正
  * 振り分けルール移動・コピー後に元タブに振り分けルールが存在しなくなった場合のボタン状態制御が行われていなかったバグを修正
  * 詳細表示にフォーカスがある場合でもCtrl+Shift+Pで画像投稿モードに切り替えできるようにした
+ * 発言詳細のアイコンを右クリックした際に例外を起こすことがあるバグを修正
 ==== Ver 0.9.4.0(2010/07/15)
  * 認証完了後、自分の発言が片思い表示になるバグ修正
  * ユーザー変更時にフォロワー情報を取得するよう変更
diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index d5843ceb..95e0ac26 100644
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -5603,7 +5603,7 @@ RETRY:
             Select Case e.KeyCode
                 Case Keys.P
                     e.IsInputKey = True
-                    ImageSelectMenuItem_Click(Nothing, Nothing)
+                    ImageSelectMenuItem_Click(Nothing,Nothing)
                 Case Else
 
             End Select
@@ -6897,15 +6897,21 @@ RETRY:
         If _curList.SelectedIndices.Count > 0 AndAlso _curPost IsNot Nothing Then
             Dim name As String = _curPost.ImageUrl
             If name.Length > 0 Then
-                name = IO.Path.GetFileNameWithoutExtension(name.Substring(name.LastIndexOf("/"c)))
-                name = name.Substring(0, name.Length - 7) ' "_normal".Length
-                Me.IconNameToolStripMenuItem.Enabled = True
+                Dim idx As Integer = name.LastIndexOf("/"c)
+                If idx <> -1 Then
+                    name = IO.Path.GetFileNameWithoutExtension(name.Substring(idx))
+                    name = name.Substring(0, name.Length - 7) ' "_normal".Length
+                    Me.IconNameToolStripMenuItem.Text = name
+                    Me.IconNameToolStripMenuItem.Enabled = True
+                Else
+                    Me.IconNameToolStripMenuItem.Enabled = False
+                    Me.IconNameToolStripMenuItem.Text = My.Resources.ContextMenuStrip3_OpeningText1
+                End If
                 If Me.TIconDic.ContainsKey(_curPost.ImageUrl) AndAlso Me.TIconDic(_curPost.ImageUrl) IsNot Nothing Then
                     Me.SaveIconPictureToolStripMenuItem.Enabled = True
                 Else
                     Me.SaveIconPictureToolStripMenuItem.Enabled = False
                 End If
-                Me.IconNameToolStripMenuItem.Text = name
             Else
                 Me.IconNameToolStripMenuItem.Enabled = False
                 Me.SaveIconPictureToolStripMenuItem.Enabled = False
-- 
2.11.0