svnno****@sourc*****
svnno****@sourc*****
2011年 2月 13日 (日) 10:51:21 JST
Revision: 1455
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1455
Author: kiri_feather
Date: 2011-02-13 10:51:20 +0900 (Sun, 13 Feb 2011)
Log Message:
-----------
0975リリース。.netバージョン検知、0980へのバージョンアップ補助
Modified Paths:
--------------
branches/0975/Tween/ApplicationEvents.vb
branches/0975/Tween/My Project/AssemblyInfo.vb
branches/0975/Tween/My Project/Resources.Designer.vb
branches/0975/Tween/My Project/Resources.en.resx
branches/0975/Tween/My Project/Resources.resx
branches/0975/Tween/MyCommon.vb
branches/0975/Tween/Tween.vb
branches/0975/Tween/Twitter.vb
-------------- next part --------------
Modified: branches/0975/Tween/ApplicationEvents.vb
===================================================================
--- branches/0975/Tween/ApplicationEvents.vb 2011-02-12 04:03:36 UTC (rev 1454)
+++ branches/0975/Tween/ApplicationEvents.vb 2011-02-13 01:51:20 UTC (rev 1455)
@@ -25,6 +25,9 @@
Imports System.Diagnostics
Imports System.Threading.Thread
+Imports Microsoft.Win32
+Imports Microsoft.Win32.Registry
+Imports Microsoft.Win32.RegistryKey
Namespace My
@@ -52,6 +55,18 @@
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
+ Dim regPath As String = "SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full"
+ Dim regValue As String = "Install"
+ Try
+ Using rKey As RegistryKey = Registry.LocalMachine.OpenSubKey(regPath)
+ Dim rVal As Integer = DirectCast(rKey.GetValue(regValue), Integer)
+ rKey.Close()
+ If rVal = 1 Then CLRv4Full = True
+ End Using
+ Catch ex As Exception
+
+ End Try
+
InitCulture()
Dim pt As String = Application.Info.DirectoryPath.Replace("\", "/") + "/" + Application.Info.ProductName
Modified: branches/0975/Tween/My Project/AssemblyInfo.vb
===================================================================
--- branches/0975/Tween/My Project/AssemblyInfo.vb 2011-02-12 04:03:36 UTC (rev 1454)
+++ branches/0975/Tween/My Project/AssemblyInfo.vb 2011-02-13 01:51:20 UTC (rev 1455)
@@ -55,5 +55,5 @@
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("0.1.0.0")>
-<Assembly: AssemblyFileVersion("0.9.7.0")>
+<Assembly: AssemblyFileVersion("0.9.7.5")>
Modified: branches/0975/Tween/My Project/Resources.Designer.vb
===================================================================
--- branches/0975/Tween/My Project/Resources.Designer.vb 2011-02-12 04:03:36 UTC (rev 1454)
+++ branches/0975/Tween/My Project/Resources.Designer.vb 2011-02-13 01:51:20 UTC (rev 1455)
@@ -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
@@ -646,6 +642,15 @@
End Property
'''<summary>
+ ''' 新しいバージョンが公開されています。実行には.NET Framework 4 (Full)のインストールが必要です。インストール後に再度お試しください。 に類似しているローカライズされた文字列を検索します。
+ '''</summary>
+ Friend ReadOnly Property CheckNewVerV4() As String
+ Get
+ Return ResourceManager.GetString("CheckNewVerV4", resourceCulture)
+ End Get
+ End Property
+
+ '''<summary>
''' このタブの発言をクリアしてもよろしいですか？{0}（サーバーから発言は削除しません。） に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property ClearTabMenuItem_ClickText1() As String
Modified: branches/0975/Tween/My Project/Resources.en.resx
===================================================================
--- branches/0975/Tween/My Project/Resources.en.resx 2011-02-12 04:03:36 UTC (rev 1454)
+++ branches/0975/Tween/My Project/Resources.en.resx 2011-02-13 01:51:20 UTC (rev 1455)
@@ -942,4 +942,7 @@
<data name="TextSearchCountApi_Validating1" xml:space="preserve">
<value>取得発言数は20～100件を指定してください。</value>
</data>
+ <data name="CheckNewVerV4" xml:space="preserve">
+ <value>New version released. This version require to install .NET Framework 4 (Full). Please retry after install it.</value>
+ </data>
</root>
\ No newline at end of file
Modified: branches/0975/Tween/My Project/Resources.resx
===================================================================
--- branches/0975/Tween/My Project/Resources.resx 2011-02-12 04:03:36 UTC (rev 1454)
+++ branches/0975/Tween/My Project/Resources.resx 2011-02-13 01:51:20 UTC (rev 1455)
@@ -1021,4 +1021,7 @@
<data name="WebSourceString" xml:space="preserve">
<value><a href="http://twitter.com/" rel="nofollow">web</a></value>
</data>
+ <data name="CheckNewVerV4" xml:space="preserve">
+ <value>新しいバージョンが公開されています。実行には.NET Framework 4 (Full)のインストールが必要です。インストール後に再度お試しください。</value>
+ </data>
</root>
\ No newline at end of file
Modified: branches/0975/Tween/MyCommon.vb
===================================================================
--- branches/0975/Tween/MyCommon.vb 2011-02-12 04:03:36 UTC (rev 1454)
+++ branches/0975/Tween/MyCommon.vb 2011-02-13 01:51:20 UTC (rev 1455)
@@ -562,4 +562,6 @@
If img IsNot Nothing Then img.Dispose()
End Try
End Function
+
+ Public CLRv4Full As Boolean
End Module
\ No newline at end of file
Modified: branches/0975/Tween/Tween.vb
===================================================================
--- branches/0975/Tween/Tween.vb 2011-02-12 04:03:36 UTC (rev 1454)
+++ branches/0975/Tween/Tween.vb 2011-02-13 01:51:20 UTC (rev 1455)
@@ -4378,6 +4378,11 @@
strDetail = retMsg.Substring(5).Trim
End If
If fileVersion <> "" AndAlso strVer.CompareTo(fileVersion.Replace(".", "")) > 0 Then
+ If Not CLRv4Full Then
+ MessageBox.Show(My.Resources.CheckNewVerV4)
+ OpenUriAsync("http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=0a391abd-25c1-4fc0-919f-b21f31ab88b7")
+ Exit Sub
+ End If
Dim tmp As String = String.Format(My.Resources.CheckNewVersionText3, strVer)
Using dialogAsShieldicon As New DialogAsShieldIcon
If dialogAsShieldicon.Show(tmp, strDetail, My.Resources.CheckNewVersionText1, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Modified: branches/0975/Tween/Twitter.vb
===================================================================
--- branches/0975/Tween/Twitter.vb 2011-02-12 04:03:36 UTC (rev 1454)
+++ branches/0975/Tween/Twitter.vb 2011-02-13 01:51:20 UTC (rev 1455)
@@ -1217,7 +1217,7 @@
#Region "バージョンアップ"
Public Function GetVersionInfo() As String
Dim content As String = ""
- If Not (New HttpVarious).GetData("http://tween.sourceforge.jp/version2.txt?" + Now.ToString("yyMMddHHmmss") + Environment.TickCount.ToString(), Nothing, content) Then
+ If Not (New HttpVarious).GetData("http://tween.sourceforge.jp/version.txt?" + Now.ToString("yyMMddHHmmss") + Environment.TickCount.ToString(), Nothing, content) Then
Throw New Exception("GetVersionInfo Failed")
End If
Return content