* プロフィール画面を閉じた際にTweenのフォームがアクティブにならないことがある現象に対処
* プロフィール更新を行った際に取得済みのAPI情報が破壊されるバグを修正
* TwitVideoへの動画アップロードに対応
- * ファイルをドラッグ&ドロップした際の判定を強化し動画の場合は対応サービスに自動切り替えするようにした
+ * ファイルをドラッグ&ドロップした際の判定を強化しファイルサイズオーバーの画像または動画の場合は対応サービスに自動切り替えするようにした
* 詳細表示でCtrl+Insertキーでもコピーができるようにした
* 画像投稿モードで使用する画像リソースを差し替えた また、動画をドラッグした場合は専用の画像を表示するようにした(thx @pureminami)
* 読み上げソフトで問題が出ないように調整を行った
Dim ext As String = fl.Extension
Dim picsvc As New PictureService(tw)
- If picsvc.IsValidExtension(ext, ImageService) Then
+ If picsvc.IsValidExtension(ext, ImageService) AndAlso _
+ picsvc.GetMaxFileSize(ext, ImageService) >= fl.Length Then
e.Effect = DragDropEffects.Copy
Exit Sub
End If
For Each svc As String In ImageServiceCombo.Items
- If picsvc.IsValidExtension(ext, svc) Then
+ If picsvc.IsValidExtension(ext, svc) AndAlso _
+ picsvc.GetMaxFileSize(ext, svc) >= fl.Length Then
ImageServiceCombo.SelectedItem = svc
e.Effect = DragDropEffects.Copy
Exit Sub