svnno****@sourc*****
svnno****@sourc*****
2011年 1月 26日 (水) 00:34:06 JST
Revision: 1409
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1409
Author: syo68k
Date: 2011-01-26 00:34:05 +0900 (Wed, 26 Jan 2011)
Log Message:
-----------
API情報ダイアログにUserStream接続状態も表示するように
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 2011-01-25 15:21:17 UTC (rev 1408)
+++ trunk/Tween/My Project/Resources.Designer.vb 2011-01-25 15:34:05 UTC (rev 1409)
@@ -186,6 +186,15 @@
End Get
End Property
+ '''<summary>
+ ''' UserStream接続 : に類似しているローカライズされた文字列を検索します。
+ '''</summary>
+ Friend ReadOnly Property ApiInfo7() As String
+ Get
+ Return ResourceManager.GetString("ApiInfo7", resourceCulture)
+ End Get
+ End Property
+
Friend ReadOnly Property At() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("At", resourceCulture)
@@ -779,6 +788,15 @@
End Property
'''<summary>
+ ''' 無効 に類似しているローカライズされた文字列を検索します。
+ '''</summary>
+ Friend ReadOnly Property Disable() As String
+ Get
+ Return ResourceManager.GetString("Disable", resourceCulture)
+ End Get
+ End Property
+
+ '''<summary>
''' 更新間隔には数値（0または15～6000）を指定してください。 に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property DMPeriod_ValidatingText1() As String
@@ -833,6 +851,15 @@
End Property
'''<summary>
+ ''' 有効 に類似しているローカライズされた文字列を検索します。
+ '''</summary>
+ Friend ReadOnly Property Enable() As String
+ Get
+ Return ResourceManager.GetString("Enable", resourceCulture)
+ End Get
+ End Property
+
+ '''<summary>
''' 選択された発言をFavoritesに追加します。よろしいですか？ に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property FavAddToolStripMenuItem_ClickText1() As String
Modified: trunk/Tween/My Project/Resources.resx
===================================================================
--- trunk/Tween/My Project/Resources.resx 2011-01-25 15:21:17 UTC (rev 1408)
+++ trunk/Tween/My Project/Resources.resx 2011-01-25 15:34:05 UTC (rev 1409)
@@ -1057,4 +1057,13 @@
<data name="SettingAPIUse2" xml:space="preserve">
<value>UserStream有効時の消費API数 : {0} / h</value>
</data>
+ <data name="ApiInfo7" xml:space="preserve">
+ <value>UserStream接続 : </value>
+ </data>
+ <data name="Disable" xml:space="preserve">
+ <value>無効</value>
+ </data>
+ <data name="Enable" xml:space="preserve">
+ <value>有効</value>
+ </data>
</root>
\ No newline at end of file
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-01-25 15:21:17 UTC (rev 1408)
+++ trunk/Tween/Tween.vb 2011-01-25 15:34:05 UTC (rev 1409)
@@ -8510,8 +8510,9 @@
dlg.ShowDialog()
If CBool(dlg.Result) Then
tmp = My.Resources.ApiInfo1 + args.info.MaxCount.ToString() + Environment.NewLine + _
- My.Resources.ApiInfo2 + args.info.RemainCount.ToString + Environment.NewLine + _
- My.Resources.ApiInfo3 + args.info.ResetTime.ToString()
+ My.Resources.ApiInfo2 + args.info.RemainCount.ToString() + Environment.NewLine + _
+ My.Resources.ApiInfo3 + args.info.ResetTime.ToString() + Environment.NewLine + _
+ My.Resources.ApiInfo7 + IIf(tw.UserStreamEnabled, My.Resources.Enable, My.Resources.Disable).ToString()
SetStatusLabelUrl()
Else
tmp = My.Resources.ApiInfo5