svnno****@sourc*****
svnno****@sourc*****
2011年 1月 26日 (水) 01:18:48 JST
Revision: 1410 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1410 Author: syo68k Date: 2011-01-26 01:18:48 +0900 (Wed, 26 Jan 2011) Log Message: ----------- 「選択範囲の文字列を翻訳」を追加 Modified Paths: -------------- trunk/Tween/Tween.Designer.vb trunk/Tween/Tween.resx trunk/Tween/Tween.vb -------------- next part -------------- Modified: trunk/Tween/Tween.Designer.vb =================================================================== --- trunk/Tween/Tween.Designer.vb 2011-01-25 15:34:05 UTC (rev 1409) +++ trunk/Tween/Tween.Designer.vb 2011-01-25 16:18:48 UTC (rev 1410) @@ -28,6 +28,7 @@ Me.ToolStripContainer1 = New System.Windows.Forms.ToolStripContainer() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusLabelUrl = New System.Windows.Forms.ToolStripStatusLabel() + Me.StatusLabel = New Tween.TweenCustomControl.ToolStripLabelHistory() Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel() Me.HashStripSplitButton = New System.Windows.Forms.ToolStripSplitButton() Me.ContextMenuPostMode = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -212,10 +213,12 @@ Me.FriendshipMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() Me.OwnStatusMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.UserStatusToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ToolStripSeparator41 = New System.Windows.Forms.ToolStripSeparator() Me.OpenOwnHomeMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.OpenOwnFavedMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator41 = New System.Windows.Forms.ToolStripSeparator() + Me.UserStatusToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.UserTimelineToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.UserFavorareToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator34 = New System.Windows.Forms.ToolStripSeparator() Me.HashToggleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HashManageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -294,9 +297,7 @@ Me.TimerRefreshIcon = New System.Windows.Forms.Timer(Me.components) Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) - Me.UserTimelineToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.StatusLabel = New Tween.TweenCustomControl.ToolStripLabelHistory() - Me.UserFavorareToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SelectionTranslationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripContainer1.BottomToolStripPanel.SuspendLayout() Me.ToolStripContainer1.ContentPanel.SuspendLayout() Me.ToolStripContainer1.TopToolStripPanel.SuspendLayout() @@ -366,6 +367,14 @@ Me.StatusLabelUrl.Name = "StatusLabelUrl" Me.StatusLabelUrl.Spring = True ' + 'StatusLabel + ' + Me.StatusLabel.BorderSides = System.Windows.Forms.ToolStripStatusLabelBorderSides.Right + Me.StatusLabel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.StatusLabel.DoubleClickEnabled = True + Me.StatusLabel.Name = "StatusLabel" + resources.ApplyResources(Me.StatusLabel, "StatusLabel") + ' 'ToolStripStatusLabel1 ' resources.ApplyResources(Me.ToolStripStatusLabel1, "ToolStripStatusLabel1") @@ -769,7 +778,7 @@ ' 'ContextMenuPostBrowser ' - Me.ContextMenuPostBrowser.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SelectionSearchContextMenuItem, Me.ToolStripSeparator13, Me.SelectionCopyContextMenuItem, Me.UrlCopyContextMenuItem, Me.SelectionAllContextMenuItem, Me.ToolStripSeparator5, Me.FollowContextMenuItem, Me.RemoveContextMenuItem, Me.FriendshipContextMenuItem, Me.FriendshipAllMenuItem, Me.ToolStripSeparator36, Me.ShowUserStatusContextMenuItem, Me.SearchPostsDetailToolStripMenuItem, Me.SearchAtPostsDetailToolStripMenuItem, Me.ToolStripSeparator32, Me.IdFilterAddMenuItem, Me.ListManageUserContextToolStripMenuItem, Me.ToolStripSeparator33, Me.UseHashtagMenuItem, Me.TranslationToolStripMenuItem}) + Me.ContextMenuPostBrowser.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SelectionSearchContextMenuItem, Me.ToolStripSeparator13, Me.SelectionCopyContextMenuItem, Me.UrlCopyContextMenuItem, Me.SelectionAllContextMenuItem, Me.ToolStripSeparator5, Me.FollowContextMenuItem, Me.RemoveContextMenuItem, Me.FriendshipContextMenuItem, Me.FriendshipAllMenuItem, Me.ToolStripSeparator36, Me.ShowUserStatusContextMenuItem, Me.SearchPostsDetailToolStripMenuItem, Me.SearchAtPostsDetailToolStripMenuItem, Me.ToolStripSeparator32, Me.IdFilterAddMenuItem, Me.ListManageUserContextToolStripMenuItem, Me.ToolStripSeparator33, Me.UseHashtagMenuItem, Me.SelectionTranslationToolStripMenuItem, Me.TranslationToolStripMenuItem}) Me.ContextMenuPostBrowser.Name = "ContextMenuStrip4" resources.ApplyResources(Me.ContextMenuPostBrowser, "ContextMenuPostBrowser") ' @@ -1420,26 +1429,36 @@ Me.OwnStatusMenuItem.Name = "OwnStatusMenuItem" resources.ApplyResources(Me.OwnStatusMenuItem, "OwnStatusMenuItem") ' - 'UserStatusToolStripMenuItem + 'OpenOwnHomeMenuItem ' - Me.UserStatusToolStripMenuItem.Name = "UserStatusToolStripMenuItem" - resources.ApplyResources(Me.UserStatusToolStripMenuItem, "UserStatusToolStripMenuItem") + Me.OpenOwnHomeMenuItem.Name = "OpenOwnHomeMenuItem" + resources.ApplyResources(Me.OpenOwnHomeMenuItem, "OpenOwnHomeMenuItem") ' + 'OpenOwnFavedMenuItem + ' + Me.OpenOwnFavedMenuItem.Name = "OpenOwnFavedMenuItem" + resources.ApplyResources(Me.OpenOwnFavedMenuItem, "OpenOwnFavedMenuItem") + ' 'ToolStripSeparator41 ' Me.ToolStripSeparator41.Name = "ToolStripSeparator41" resources.ApplyResources(Me.ToolStripSeparator41, "ToolStripSeparator41") ' - 'OpenOwnHomeMenuItem + 'UserStatusToolStripMenuItem ' - Me.OpenOwnHomeMenuItem.Name = "OpenOwnHomeMenuItem" - resources.ApplyResources(Me.OpenOwnHomeMenuItem, "OpenOwnHomeMenuItem") + Me.UserStatusToolStripMenuItem.Name = "UserStatusToolStripMenuItem" + resources.ApplyResources(Me.UserStatusToolStripMenuItem, "UserStatusToolStripMenuItem") ' - 'OpenOwnFavedMenuItem + 'UserTimelineToolStripMenuItem ' - Me.OpenOwnFavedMenuItem.Name = "OpenOwnFavedMenuItem" - resources.ApplyResources(Me.OpenOwnFavedMenuItem, "OpenOwnFavedMenuItem") + Me.UserTimelineToolStripMenuItem.Name = "UserTimelineToolStripMenuItem" + resources.ApplyResources(Me.UserTimelineToolStripMenuItem, "UserTimelineToolStripMenuItem") ' + 'UserFavorareToolStripMenuItem + ' + Me.UserFavorareToolStripMenuItem.Name = "UserFavorareToolStripMenuItem" + resources.ApplyResources(Me.UserFavorareToolStripMenuItem, "UserFavorareToolStripMenuItem") + ' 'ToolStripSeparator34 ' Me.ToolStripSeparator34.Name = "ToolStripSeparator34" @@ -1839,24 +1858,11 @@ ' Me.OpenFileDialog1.FileName = "OpenFileDialog1" ' - 'UserTimelineToolStripMenuItem + 'SelectionTranslationToolStripMenuItem ' - Me.UserTimelineToolStripMenuItem.Name = "UserTimelineToolStripMenuItem" - resources.ApplyResources(Me.UserTimelineToolStripMenuItem, "UserTimelineToolStripMenuItem") + Me.SelectionTranslationToolStripMenuItem.Name = "SelectionTranslationToolStripMenuItem" + resources.ApplyResources(Me.SelectionTranslationToolStripMenuItem, "SelectionTranslationToolStripMenuItem") ' - 'StatusLabel - ' - Me.StatusLabel.BorderSides = System.Windows.Forms.ToolStripStatusLabelBorderSides.Right - Me.StatusLabel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text - Me.StatusLabel.DoubleClickEnabled = True - Me.StatusLabel.Name = "StatusLabel" - resources.ApplyResources(Me.StatusLabel, "StatusLabel") - ' - 'UserFavorareToolStripMenuItem - ' - Me.UserFavorareToolStripMenuItem.Name = "UserFavorareToolStripMenuItem" - resources.ApplyResources(Me.UserFavorareToolStripMenuItem, "UserFavorareToolStripMenuItem") - ' 'TweenMain ' Me.AllowDrop = True @@ -2179,5 +2185,6 @@ Friend WithEvents ShowUserTimelineContextMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents UserTimelineToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents UserFavorareToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SelectionTranslationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem End Class Modified: trunk/Tween/Tween.resx =================================================================== --- trunk/Tween/Tween.resx 2011-01-25 15:34:05 UTC (rev 1409) +++ trunk/Tween/Tween.resx 2011-01-25 16:18:48 UTC (rev 1410) @@ -382,7 +382,7 @@ <value>0, 0, 0, 0</value> </data> <data name="ListTab.Size" type="System.Drawing.Size, System.Drawing"> - <value>570, 250</value> + <value>570, 252</value> </data> <data name="ListTab.TabIndex" type="System.Int32, mscorlib"> <value>0</value> @@ -406,7 +406,7 @@ <value>0, 0</value> </data> <data name="TimelinePanel.Size" type="System.Drawing.Size, System.Drawing"> - <value>570, 250</value> + <value>570, 252</value> </data> <data name="TimelinePanel.TabIndex" type="System.Int32, mscorlib"> <value>0</value> @@ -436,7 +436,7 @@ <value>0, 0</value> </data> <data name="ImageSelectedPicture.Size" type="System.Drawing.Size, System.Drawing"> - <value>570, 222</value> + <value>570, 224</value> </data> <data name="ImageSelectedPicture.SizeMode" type="System.Windows.Forms.PictureBoxSizeMode, System.Windows.Forms"> <value>Zoom</value> @@ -640,7 +640,7 @@ <value>Bottom</value> </data> <data name="ImagePathPanel.Location" type="System.Drawing.Point, System.Drawing"> - <value>0, 222</value> + <value>0, 224</value> </data> <data name="ImagePathPanel.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms"> <value>3, 3, 3, 3</value> @@ -670,7 +670,7 @@ <value>0, 0</value> </data> <data name="ImageSelectionPanel.Size" type="System.Drawing.Size, System.Drawing"> - <value>570, 250</value> + <value>570, 252</value> </data> <data name="ImageSelectionPanel.TabIndex" type="System.Int32, mscorlib"> <value>1</value> @@ -697,7 +697,7 @@ <value>0, 0</value> </data> <data name="ProfilePanel.Size" type="System.Drawing.Size, System.Drawing"> - <value>570, 250</value> + <value>570, 252</value> </data> <data name="ProfilePanel.TabIndex" type="System.Int32, mscorlib"> <value>2</value> @@ -1023,6 +1023,12 @@ <data name="UseHashtagMenuItem.Text" xml:space="preserve"> <value>ハッシュタグを固定(&H)</value> </data> + <data name="SelectionTranslationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> + <value>262, 22</value> + </data> + <data name="SelectionTranslationToolStripMenuItem.Text" xml:space="preserve"> + <value>選択した文字列を翻訳</value> + </data> <data name="TranslationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <value>262, 22</value> </data> @@ -1030,7 +1036,7 @@ <value>この発言を翻訳</value> </data> <data name="ContextMenuPostBrowser.Size" type="System.Drawing.Size, System.Drawing"> - <value>263, 364</value> + <value>263, 408</value> </data> <data name=">>ContextMenuPostBrowser.Name" xml:space="preserve"> <value>ContextMenuPostBrowser</value> @@ -1045,7 +1051,7 @@ <value>59, 20</value> </data> <data name="PostBrowser.Size" type="System.Drawing.Size, System.Drawing"> - <value>508, 42</value> + <value>508, 40</value> </data> <data name="PostBrowser.TabIndex" type="System.Int32, mscorlib"> <value>6</value> @@ -1150,7 +1156,7 @@ <value>2</value> </data> <data name="TableLayoutPanel1.Size" type="System.Drawing.Size, System.Drawing"> - <value>570, 65</value> + <value>570, 63</value> </data> <data name="TableLayoutPanel1.TabIndex" type="System.Int32, mscorlib"> <value>1</value> @@ -1288,10 +1294,10 @@ <value>19</value> </data> <data name="SplitContainer2.Size" type="System.Drawing.Size, System.Drawing"> - <value>570, 92</value> + <value>570, 90</value> </data> <data name="SplitContainer2.SplitterDistance" type="System.Int32, mscorlib"> - <value>65</value> + <value>63</value> </data> <data name="SplitContainer2.SplitterWidth" type="System.Int32, mscorlib"> <value>2</value> @@ -1333,7 +1339,7 @@ <value>0, 0</value> </data> <data name="PreviewPicture.Size" type="System.Drawing.Size, System.Drawing"> - <value>194, 94</value> + <value>194, 92</value> </data> <data name="PreviewPicture.SizeMode" type="System.Windows.Forms.PictureBoxSizeMode, System.Windows.Forms"> <value>Zoom</value> @@ -1363,7 +1369,7 @@ <value>194, 0</value> </data> <data name="PreviewScrollBar.Size" type="System.Drawing.Size, System.Drawing"> - <value>17, 94</value> + <value>17, 92</value> </data> <data name="PreviewScrollBar.TabIndex" type="System.Int32, mscorlib"> <value>0</value> @@ -1393,7 +1399,7 @@ <value>1</value> </data> <data name="SplitContainer3.Size" type="System.Drawing.Size, System.Drawing"> - <value>570, 92</value> + <value>570, 90</value> </data> <data name="SplitContainer3.SplitterDistance" type="System.Int32, mscorlib"> <value>355</value> @@ -1432,7 +1438,7 @@ <value>574, 352</value> </data> <data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib"> - <value>254</value> + <value>256</value> </data> <data name="SplitContainer1.SplitterWidth" type="System.Int32, mscorlib"> <value>2</value> @@ -2173,31 +2179,31 @@ <value>その他機能(&C)</value> </data> <data name="StopToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> - <value>152, 22</value> + <value>147, 22</value> </data> <data name="StopToolStripMenuItem.Text" xml:space="preserve"> <value>Stop</value> </data> <data name="ToolStripSeparator40.Size" type="System.Drawing.Size, System.Drawing"> - <value>149, 6</value> + <value>144, 6</value> </data> <data name="TrackToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> - <value>152, 22</value> + <value>147, 22</value> </data> <data name="TrackToolStripMenuItem.Text" xml:space="preserve"> <value>Track</value> </data> <data name="AllrepliesToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> - <value>152, 22</value> + <value>147, 22</value> </data> <data name="AllrepliesToolStripMenuItem.Text" xml:space="preserve"> <value>All @replies</value> </data> <data name="ToolStripSeparator42.Size" type="System.Drawing.Size, System.Drawing"> - <value>149, 6</value> + <value>144, 6</value> </data> <data name="EventViewerMenuItem.Size" type="System.Drawing.Size, System.Drawing"> - <value>152, 22</value> + <value>147, 22</value> </data> <data name="EventViewerMenuItem.Text" xml:space="preserve"> <value>View Events</value> @@ -2661,6 +2667,12 @@ <data name=">>StatusLabelUrl.Type" xml:space="preserve"> <value>System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> </data> + <data name=">>StatusLabel.Name" xml:space="preserve"> + <value>StatusLabel</value> + </data> + <data name=">>StatusLabel.Type" xml:space="preserve"> + <value>Tween.TweenCustomControl.ToolStripLabelHistory, Tween, Version=0.1.0.0, Culture=neutral, PublicKeyToken=null</value> + </data> <data name=">>ToolStripStatusLabel1.Name" xml:space="preserve"> <value>ToolStripStatusLabel1</value> </data> @@ -3579,30 +3591,42 @@ <data name=">>OwnStatusMenuItem.Type" xml:space="preserve"> <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> </data> - <data name=">>UserStatusToolStripMenuItem.Name" xml:space="preserve"> - <value>UserStatusToolStripMenuItem</value> + <data name=">>OpenOwnHomeMenuItem.Name" xml:space="preserve"> + <value>OpenOwnHomeMenuItem</value> </data> - <data name=">>UserStatusToolStripMenuItem.Type" xml:space="preserve"> + <data name=">>OpenOwnHomeMenuItem.Type" xml:space="preserve"> <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> </data> + <data name=">>OpenOwnFavedMenuItem.Name" xml:space="preserve"> + <value>OpenOwnFavedMenuItem</value> + </data> + <data name=">>OpenOwnFavedMenuItem.Type" xml:space="preserve"> + <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> + </data> <data name=">>ToolStripSeparator41.Name" xml:space="preserve"> <value>ToolStripSeparator41</value> </data> <data name=">>ToolStripSeparator41.Type" xml:space="preserve"> <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> </data> - <data name=">>OpenOwnHomeMenuItem.Name" xml:space="preserve"> - <value>OpenOwnHomeMenuItem</value> + <data name=">>UserStatusToolStripMenuItem.Name" xml:space="preserve"> + <value>UserStatusToolStripMenuItem</value> </data> - <data name=">>OpenOwnHomeMenuItem.Type" xml:space="preserve"> + <data name=">>UserStatusToolStripMenuItem.Type" xml:space="preserve"> <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> </data> - <data name=">>OpenOwnFavedMenuItem.Name" xml:space="preserve"> - <value>OpenOwnFavedMenuItem</value> + <data name=">>UserTimelineToolStripMenuItem.Name" xml:space="preserve"> + <value>UserTimelineToolStripMenuItem</value> </data> - <data name=">>OpenOwnFavedMenuItem.Type" xml:space="preserve"> + <data name=">>UserTimelineToolStripMenuItem.Type" xml:space="preserve"> <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> </data> + <data name=">>UserFavorareToolStripMenuItem.Name" xml:space="preserve"> + <value>UserFavorareToolStripMenuItem</value> + </data> + <data name=">>UserFavorareToolStripMenuItem.Type" xml:space="preserve"> + <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> + </data> <data name=">>ToolStripSeparator34.Name" xml:space="preserve"> <value>ToolStripSeparator34</value> </data> @@ -4059,24 +4083,12 @@ <data name=">>ToolTip1.Type" xml:space="preserve"> <value>System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> </data> - <data name=">>UserTimelineToolStripMenuItem.Name" xml:space="preserve"> - <value>UserTimelineToolStripMenuItem</value> + <data name=">>SelectionTranslationToolStripMenuItem.Name" xml:space="preserve"> + <value>SelectionTranslationToolStripMenuItem</value> </data> - <data name=">>UserTimelineToolStripMenuItem.Type" xml:space="preserve"> + <data name=">>SelectionTranslationToolStripMenuItem.Type" xml:space="preserve"> <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> </data> - <data name=">>StatusLabel.Name" xml:space="preserve"> - <value>StatusLabel</value> - </data> - <data name=">>StatusLabel.Type" xml:space="preserve"> - <value>Tween.TweenCustomControl.ToolStripLabelHistory, Tween, Version=0.1.0.0, Culture=neutral, PublicKeyToken=null</value> - </data> - <data name=">>UserFavorareToolStripMenuItem.Name" xml:space="preserve"> - <value>UserFavorareToolStripMenuItem</value> - </data> - <data name=">>UserFavorareToolStripMenuItem.Type" xml:space="preserve"> - <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> - </data> <data name=">>$this.Name" xml:space="preserve"> <value>TweenMain</value> </data> Modified: trunk/Tween/Tween.vb =================================================================== --- trunk/Tween/Tween.vb 2011-01-25 15:34:05 UTC (rev 1409) +++ trunk/Tween/Tween.vb 2011-01-25 16:18:48 UTC (rev 1410) @@ -7995,9 +7995,11 @@ If _selText Is Nothing Then SelectionSearchContextMenuItem.Enabled = False SelectionCopyContextMenuItem.Enabled = False + SelectionTranslationToolStripMenuItem.Enabled = False Else SelectionSearchContextMenuItem.Enabled = True SelectionCopyContextMenuItem.Enabled = True + SelectionTranslationToolStripMenuItem.Enabled = True End If '発言内に自分以外のユーザーが含まれてればフォロー状態全表示を有効に Dim ma As MatchCollection = Regex.Matches(Me.PostBrowser.DocumentText, "href=""https?://twitter.com/(#!/)?(?<ScreenName>[a-zA-Z0-9_]+)(/status(es)?/[0-9]+)?""") @@ -9998,17 +10000,26 @@ OpenUriAsync("http://twitter.com/" + tw.Username) End Sub - Private Sub TranslationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TranslationToolStripMenuItem.Click + Private Sub doTranslation(ByVal str As String) Dim g As New Google Dim buf As String = "" - If Not Me.ExistCurrentPost Then Exit Sub - Dim srclng As String = g.LanguageDetect(_curPost.TextFromApi) + If String.IsNullOrEmpty(str) Then Exit Sub + Dim srclng As String = g.LanguageDetect(str) Dim dstlng As String = SettingDialog.TranslateLanguage - If srclng <> dstlng AndAlso g.Translate(srclng, dstlng, _curPost.TextFromApi, buf) Then + If srclng <> dstlng AndAlso g.Translate(srclng, dstlng, str, buf) Then PostBrowser.DocumentText = createDetailHtml(buf) End If End Sub + Private Sub TranslationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TranslationToolStripMenuItem.Click + If Not Me.ExistCurrentPost Then Exit Sub + doTranslation(_curPost.TextFromApi) + End Sub + + Private Sub SelectionTranslationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectionTranslationToolStripMenuItem.Click + doTranslation(WebBrowser_GetSelectionText(PostBrowser)) + End Sub + Private ReadOnly Property ExistCurrentPost As Boolean Get If _curPost Is Nothing Then Return False @@ -10069,4 +10080,5 @@ OpenUriAsync(My.Resources.FavstarUrl + "users/" + id + "/recent") End If End Sub + End Class