From svnnotify ＠ sourceforge.jp Sat Jan 1 08:24:32 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Sat, 01 Jan 2011 08:24:32 +0900 Subject: [Tween-svn] =?utf-8?b?WzEyOTddICDjg6bjg7zjgrbjg7zmg4XloLHjg4A=?= =?utf-8?b?44Kk44Ki44Ot44Kw44Gu5pyA6L+R44Gu55m66KiA5YaF44GuIEAg5LuY44GN?= =?utf-8?b?44Gu44Oq44Oz44Kv44Gn44Om44O844K244O8VEzjgr/jg5bjgYzplovjgY8=?= =?utf-8?b?44KI44GG44Gr5aSJ5pu0?= Message-ID: <1293837872.291623.8655.nullmailer@users.sourceforge.jp> Revision: 1297 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1297 Author: anis774 Date: 2011-01-01 08:24:32 +0900 (Sat, 01 Jan 2011) Log Message: ----------- ユーザー情報ダイアログの最近の発言内の@付きのリンクでユーザーTLタブが開くように変更 Modified Paths: -------------- trunk/Tween/ShowUserInfo.vb -------------- next part -------------- Modified: trunk/Tween/ShowUserInfo.vb =================================================================== --- trunk/Tween/ShowUserInfo.vb 2010-12-31 06:11:13 UTC (rev 1296) +++ trunk/Tween/ShowUserInfo.vb 2010-12-31 23:24:32 UTC (rev 1297) @@ -337,6 +337,12 @@ MyOwner.HashMgr.AddHashToHistory(hash.Trim, False) MyOwner.AddNewTabForSearch(hash) Exit Sub + ElseIf e.Url.AbsoluteUri.StartsWith("http://twitter.com/") Then + MyOwner.AddNewTabForUserTimeline(e.Url.AbsoluteUri.Remove(0, "http://twitter.com/".Length)) + Exit Sub + ElseIf e.Url.AbsoluteUri.StartsWith("https://twitter.com/") Then + MyOwner.AddNewTabForUserTimeline(e.Url.AbsoluteUri.Remove(0, "https://twitter.com/".Length)) + Exit Sub Else MyOwner.OpenUriAsync(e.Url.OriginalString) End If From svnnotify ＠ sourceforge.jp Sat Jan 1 08:24:34 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Sat, 01 Jan 2011 08:24:34 +0900 Subject: [Tween-svn] =?utf-8?b?WzEyOThdICDjgr/jg5bliYrpmaTmmYLjgavliY0=?= =?utf-8?b?5Zue44Gu44K/44OW44KS6YG45oqe44GZ44KL44KI44GG44Gr5aSJ5pu0?= Message-ID: <1293837874.876693.8693.nullmailer@users.sourceforge.jp> Revision: 1298 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1298 Author: anis774 Date: 2011-01-01 08:24:34 +0900 (Sat, 01 Jan 2011) Log Message: ----------- タブ削除時に前回のタブを選択するように変更 Modified Paths: -------------- trunk/Tween/StatusDictionary.vb trunk/Tween/Tween.vb -------------- next part -------------- Modified: trunk/Tween/StatusDictionary.vb =================================================================== --- trunk/Tween/StatusDictionary.vb 2010-12-31 23:24:32 UTC (rev 1297) +++ trunk/Tween/StatusDictionary.vb 2010-12-31 23:24:34 UTC (rev 1298) @@ -1637,9 +1637,6 @@ #End Region _ - Public Property BackToTab() As TabClass - - _ Public Property RelationTargetPost() As PostClass _ Modified: trunk/Tween/Tween.vb =================================================================== --- trunk/Tween/Tween.vb 2010-12-31 23:24:32 UTC (rev 1297) +++ trunk/Tween/Tween.vb 2010-12-31 23:24:34 UTC (rev 1298) @@ -57,6 +57,7 @@ Private _initialLayout As Boolean = True Private _ignoreConfigSave As Boolean 'True:起動時処理中 Private _tabDrag As Boolean 'タブドラッグ中フラグ（DoDragDropを実行するかの判定用） + Private _beforeSelectedTab As TabPage 'タブが削除されたときに前回選択されていたときのタブを選択する為に保持 Private _tabMouseDownPoint As Point Private _rclickTabName As String '右クリックしたタブの名前（Tabコントロール機能不足対応） Private ReadOnly _syncObject As New Object() 'ロック用 @@ -3643,6 +3644,9 @@ _tabPage.SuspendLayout() + If Me.ListTab.SelectedTab Is Me.ListTab.TabPages(idx) Then + Me.ListTab.SelectedTab = If(Me._beforeSelectedTab, Me.ListTab.TabPages(0)) + End If Me.ListTab.Controls.Remove(_tabPage) Dim pnl As Control = Nothing @@ -3714,6 +3718,7 @@ lst.VirtualListSize = _statuses.Tabs(tp.Text).AllCount End If Next + Return True End Function @@ -3721,6 +3726,7 @@ _itemCache = Nothing _itemCacheIndex = -1 _postCache = Nothing + _beforeSelectedTab = e.TabPage End Sub Private Sub ListTab_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListTab.MouseMove @@ -4901,19 +4907,6 @@ ElseIf e.KeyCode = Keys.Escape Then If ListTab.SelectedTab IsNot Nothing AndAlso _statuses.Tabs(ListTab.SelectedTab.Text).TabType = TabUsageType.Related Then Dim relTp As TabPage = ListTab.SelectedTab - Dim backToTab As TabClass = _statuses.Tabs(relTp.Text).BackToTab - If backToTab IsNot Nothing Then - Try - For Each tp As TabPage In ListTab.TabPages - If tp.Text = backToTab.TabName Then - ListTab.SelectTab(tp) - Exit For - End If - Next - Catch ex As Exception - - End Try - End If RemoveSpecifiedTab(relTp.Text, False) SaveConfigsTabs() End If @@ -10075,7 +10068,6 @@ Dim tb As TabClass = _statuses.GetTabByType(TabUsageType.Related) tb.RelationTargetPost = _curPost - tb.BackToTab = backToTab Me.ClearTab(tb.TabName, False) For i As Integer = 0 To ListTab.TabPages.Count - 1 If tb.TabName = ListTab.TabPages(i).Text Then From svnnotify ＠ sourceforge.jp Sat Jan 1 08:24:36 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Sat, 01 Jan 2011 08:24:36 +0900 Subject: [Tween-svn] =?utf-8?b?WzEyOTldICDoh6rliIbjga7jg53jgrnjg4jjgac=?= =?utf-8?b?44Gv5paw552A6YCa55+l44CB44K144Km44Oz44OJ5YaN55Sf44KS44GX44Gq?= =?utf-8?b?44GE44KI44GG44Gr5aSJ5pu0?= Message-ID: <1293837876.000230.8702.nullmailer@users.sourceforge.jp> Revision: 1299 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1299 Author: anis774 Date: 2011-01-01 08:24:35 +0900 (Sat, 01 Jan 2011) Log Message: ----------- 自分のポストでは新着通知、サウンド再生をしないように変更 Modified Paths: -------------- trunk/Tween/Tween.vb -------------- next part -------------- Modified: trunk/Tween/Tween.vb =================================================================== --- trunk/Tween/Tween.vb 2010-12-31 23:24:34 UTC (rev 1298) +++ trunk/Tween/Tween.vb 2010-12-31 23:24:35 UTC (rev 1299) @@ -1438,6 +1438,11 @@ End Function Private Sub NotifyNewPosts(ByVal notifyPosts() As PostClass, ByVal soundFile As String, ByVal addCount As Integer, ByVal newMentions As Boolean) + If notifyPosts IsNot Nothing AndAlso _ + notifyPosts.All(Function(post) post.Uid.ToString() = tw.UserIdNo OrElse post.Name = tw.Username) Then + Exit Sub + End If + '新着通知 If BalloonRequired() Then If notifyPosts IsNot Nothing AndAlso notifyPosts.Length > 0 Then From svnnotify ＠ sourceforge.jp Sat Jan 1 12:19:30 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Sat, 01 Jan 2011 12:19:30 +0900 Subject: [Tween-svn] =?utf-8?b?WzEzMDBdICAjIeOBjOWQq+OBvuOCjOOBpuOBhA==?= =?utf-8?b?44KL44Go44GN44GrIyEgLyDjg6bjg7zjgrbjg7xJROOBp1VzZXJfVGltZWxp?= =?utf-8?b?bmXjgYzlrp/ooYzjgZXjgozjgabjgYTjgZ/jga7jgpLkv67mraM=?= Message-ID: <1293851970.821779.31670.nullmailer@users.sourceforge.jp> Revision: 1300 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1300 Author: f_swallow Date: 2011-01-01 12:19:30 +0900 (Sat, 01 Jan 2011) Log Message: ----------- #!が含まれているときに#!/ユーザーIDでUser_Timelineが実行されていたのを修正 Modified Paths: -------------- trunk/Tween/Tween.vb -------------- next part -------------- Modified: trunk/Tween/Tween.vb =================================================================== --- trunk/Tween/Tween.vb 2010-12-31 23:24:35 UTC (rev 1299) +++ trunk/Tween/Tween.vb 2011-01-01 03:19:30 UTC (rev 1300) @@ -3252,12 +3252,13 @@ HashMgr.AddHashToHistory(hash.Trim, False) AddNewTabForSearch(hash) Exit Sub - ElseIf e.Url.AbsoluteUri.StartsWith("http://twitter.com/") Then - Me.AddNewTabForUserTimeline(e.Url.AbsoluteUri.Remove(0, "http://twitter.com/".Length)) - ElseIf e.Url.AbsoluteUri.StartsWith("https://twitter.com/") Then - Me.AddNewTabForUserTimeline(e.Url.AbsoluteUri.Remove(0, "https://twitter.com/".Length)) Else - OpenUriAsync(e.Url.OriginalString) + Dim m As Match = Regex.Match(e.Url.AbsoluteUri, "^https?://twitter.com/(#!/)?(?[a-zA-Z0-9_]+)$") + If m.Success AndAlso IsTwitterId(m.Result("${name}")) Then + Me.AddNewTabForUserTimeline(m.Result("${name}")) + Else + OpenUriAsync(e.Url.OriginalString) + End If End If End If End Sub From svnnotify ＠ sourceforge.jp Sat Jan 1 12:35:40 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Sat, 01 Jan 2011 12:35:40 +0900 Subject: [Tween-svn] =?utf-8?b?WzEzMDFdICByZXYxMzAw44Gu5aSJ5pu044KS44Om?= =?utf-8?b?44O844K244O85oOF5aCx44OA44Kk44Ki44Ot44Kw44Gr44KC6YGp55So?= Message-ID: <1293852940.686188.22416.nullmailer@users.sourceforge.jp> Revision: 1301 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1301 Author: anis774 Date: 2011-01-01 12:35:40 +0900 (Sat, 01 Jan 2011) Log Message: ----------- rev1300の変更をユーザー情報ダイアログにも適用 Revision Links: -------------- http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1300 Modified Paths: -------------- trunk/Tween/ShowUserInfo.vb trunk/Tween/Tween.vb -------------- next part -------------- Modified: trunk/Tween/ShowUserInfo.vb =================================================================== --- trunk/Tween/ShowUserInfo.vb 2011-01-01 03:19:30 UTC (rev 1300) +++ trunk/Tween/ShowUserInfo.vb 2011-01-01 03:35:40 UTC (rev 1301) @@ -337,14 +337,13 @@ MyOwner.HashMgr.AddHashToHistory(hash.Trim, False) MyOwner.AddNewTabForSearch(hash) Exit Sub - ElseIf e.Url.AbsoluteUri.StartsWith("http://twitter.com/") Then - MyOwner.AddNewTabForUserTimeline(e.Url.AbsoluteUri.Remove(0, "http://twitter.com/".Length)) - Exit Sub - ElseIf e.Url.AbsoluteUri.StartsWith("https://twitter.com/") Then - MyOwner.AddNewTabForUserTimeline(e.Url.AbsoluteUri.Remove(0, "https://twitter.com/".Length)) - Exit Sub Else - MyOwner.OpenUriAsync(e.Url.OriginalString) + Dim m As Match = Regex.Match(e.Url.AbsoluteUri, "^https?://twitter.com/(#!/)?(?[a-zA-Z0-9_]+)$") + If m.Success AndAlso MyOwner.IsTwitterId(m.Result("${name}")) Then + MyOwner.AddNewTabForUserTimeline(m.Result("${name}")) + Else + MyOwner.OpenUriAsync(e.Url.OriginalString) + End If End If End If End Sub Modified: trunk/Tween/Tween.vb =================================================================== --- trunk/Tween/Tween.vb 2011-01-01 03:19:30 UTC (rev 1300) +++ trunk/Tween/Tween.vb 2011-01-01 03:35:40 UTC (rev 1301) @@ -9059,7 +9059,7 @@ ' TwitterIDでない固定文字列を調べる（文字列検証のみ　実際に取得はしない） ' URLから切り出した文字列を渡す - Private Function IsTwitterId(ByVal name As String) As Boolean + Public Function IsTwitterId(ByVal name As String) As Boolean Return Not Regex.Match(name, "^(about|jobs|tos|privacy)$").Success End Function From svnnotify ＠ sourceforge.jp Sat Jan 1 15:22:03 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Sat, 01 Jan 2011 15:22:03 +0900 Subject: [Tween-svn] =?utf-8?b?WzEzMDJdICDmnKroqq3nrqHnkIbjgZfjgabjgYQ=?= =?utf-8?b?44KL44K/44OW44Gr44GC44KL5pei6Kqt44Gu44Od44K544OI44Go5ZCM5LiA?= =?utf-8?b?44Gu44Od44K544OI44GM5LuW44Gu44K/44OW44Gr6L+95Yqg44GV44KM44KL?= =?utf-8?b?6Zqb44Gr44CB44Gd44Gu44Od44K544OI44KC5pei6Kqt44Gr44GZ44KL44KI?= =?utf-8?b?44GG44Gr5aSJ5pu0?= Message-ID: <1293862923.960074.23556.nullmailer@users.sourceforge.jp> Revision: 1302 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1302 Author: anis774 Date: 2011-01-01 15:22:03 +0900 (Sat, 01 Jan 2011) Log Message: ----------- 未読管理しているタブにある既読のポストと同一のポストが他のタブに追加される際に、そのポストも既読にするように変更 正しく動作しているか、パフォーマンスに問題がないかの検証をお願いします。 Modified Paths: -------------- trunk/Tween/Twitter.vb -------------- next part -------------- Modified: trunk/Tween/Twitter.vb =================================================================== --- trunk/Tween/Twitter.vb 2011-01-01 03:35:40 UTC (rev 1301) +++ trunk/Tween/Twitter.vb 2011-01-01 06:22:03 UTC (rev 1302) @@ -1545,7 +1545,17 @@ post.IsRead = read If post.IsMe AndAlso Not read AndAlso _readOwnPost Then post.IsRead = True + Dim posts = From tab_ In TabInformations.GetInstance().Tabs + Where tab_.Value.UnreadManage + From post_ In DirectCast(IIf(tab_.Value.IsInnerStorageTabType, tab_.Value.Posts, TabInformations.GetInstance().Posts), Dictionary(Of Long, PostClass)) + Where post_.Value.Id = post.Id + Where post_.Value.IsRead + Where tab_.Value.Contains(post_.Value.Id) + If posts.Any() Then + post.IsRead = True + End If + If tab IsNot Nothing Then post.RelTabName = tab.TabName '非同期アイコン取得＆StatusDictionaryに追加 TabInformations.GetInstance.AddPost(post) From svnnotify ＠ sourceforge.jp Sat Jan 1 15:38:10 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Sat, 01 Jan 2011 15:38:10 +0900 Subject: [Tween-svn] =?utf-8?b?WzEzMDNdICByMTMwMuOBp+i/veWKoOOBl+OBnw==?= =?utf-8?b?44Ot44K444OD44Kv44Gr5p6d5YiH44KK44KS6L+95Yqg?= Message-ID: <1293863890.574680.14983.nullmailer@users.sourceforge.jp> Revision: 1303 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1303 Author: anis774 Date: 2011-01-01 15:38:10 +0900 (Sat, 01 Jan 2011) Log Message: ----------- r1302で追加したロジックに枝切りを追加 Modified Paths: -------------- trunk/Tween/Twitter.vb -------------- next part -------------- Modified: trunk/Tween/Twitter.vb =================================================================== --- trunk/Tween/Twitter.vb 2011-01-01 06:22:03 UTC (rev 1302) +++ trunk/Tween/Twitter.vb 2011-01-01 06:38:10 UTC (rev 1303) @@ -1545,15 +1545,15 @@ post.IsRead = read If post.IsMe AndAlso Not read AndAlso _readOwnPost Then post.IsRead = True - Dim posts = From tab_ In TabInformations.GetInstance().Tabs - Where tab_.Value.UnreadManage - From post_ In DirectCast(IIf(tab_.Value.IsInnerStorageTabType, tab_.Value.Posts, TabInformations.GetInstance().Posts), Dictionary(Of Long, PostClass)) - Where post_.Value.Id = post.Id - Where post_.Value.IsRead - Where tab_.Value.Contains(post_.Value.Id) + If Not post.IsRead Then + Dim posts = From tab_ In TabInformations.GetInstance().Tabs + Where tab_.Value.UnreadManage + From post_ In DirectCast(IIf(tab_.Value.IsInnerStorageTabType, tab_.Value.Posts, TabInformations.GetInstance().Posts), Dictionary(Of Long, PostClass)) + Where post_.Value.Id = post.Id + Where post_.Value.IsRead + Where tab_.Value.Contains(post_.Value.Id) - If posts.Any() Then - post.IsRead = True + post.IsRead = posts.Any() End If If tab IsNot Nothing Then post.RelTabName = tab.TabName From svnnotify ＠ sourceforge.jp Sun Jan 2 09:00:14 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Sun, 02 Jan 2011 09:00:14 +0900 Subject: [Tween-svn] =?utf-8?b?WzEzMDRdICByZXYxMzAx44Gr5oi744GX?= Message-ID: <1293926414.157475.30161.nullmailer@users.sourceforge.jp> Revision: 1304 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1304 Author: anis774 Date: 2011-01-02 09:00:13 +0900 (Sun, 02 Jan 2011) Log Message: ----------- rev1301に戻し Revision Links: -------------- http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1301 Modified Paths: -------------- trunk/Tween/Twitter.vb -------------- next part -------------- Modified: trunk/Tween/Twitter.vb =================================================================== --- trunk/Tween/Twitter.vb 2011-01-01 06:38:10 UTC (rev 1303) +++ trunk/Tween/Twitter.vb 2011-01-02 00:00:13 UTC (rev 1304) @@ -1545,17 +1545,7 @@ post.IsRead = read If post.IsMe AndAlso Not read AndAlso _readOwnPost Then post.IsRead = True - If Not post.IsRead Then - Dim posts = From tab_ In TabInformations.GetInstance().Tabs - Where tab_.Value.UnreadManage - From post_ In DirectCast(IIf(tab_.Value.IsInnerStorageTabType, tab_.Value.Posts, TabInformations.GetInstance().Posts), Dictionary(Of Long, PostClass)) - Where post_.Value.Id = post.Id - Where post_.Value.IsRead - Where tab_.Value.Contains(post_.Value.Id) - post.IsRead = posts.Any() - End If - If tab IsNot Nothing Then post.RelTabName = tab.TabName '非同期アイコン取得＆StatusDictionaryに追加 TabInformations.GetInstance.AddPost(post) From svnnotify ＠ sourceforge.jp Sun Jan 2 13:35:06 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Sun, 02 Jan 2011 13:35:06 +0900 Subject: [Tween-svn] =?utf-8?b?WzEzMDVdICDjg7vkuIvoqJjjgqjjg6njg7zjgas=?= =?utf-8?b?5a++5b+c?= Message-ID: <1293942906.436955.24302.nullmailer@users.sourceforge.jp> Revision: 1305 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1305 Author: anis774 Date: 2011-01-02 13:35:06 +0900 (Sun, 02 Jan 2011) Log Message: ----------- ・下記エラーに対応 　　muramura77:使用リビジョン：1304 ユーザタイムラインタブを２つ作成（２ユーザのMentionsクリックするだけ） 作成したユーザタイムラインタブを削除 これでTween.TweenMain.ListTabSelect(TabPage _tab) ここでぬるぽします #twnDev [http://twitter.com/muramura77/status/21410221914066944] Modified Paths: -------------- trunk/Tween/ImageListViewItem.vb trunk/Tween/Tween.vb -------------- next part -------------- Modified: trunk/Tween/ImageListViewItem.vb =================================================================== --- trunk/Tween/ImageListViewItem.vb 2011-01-02 00:00:13 UTC (rev 1304) +++ trunk/Tween/ImageListViewItem.vb 2011-01-02 04:35:06 UTC (rev 1305) @@ -13,9 +13,9 @@ Dim dummy As Image = imageDictionary.Item(imageKey, Sub(getImg) If getImg Is Nothing Then Exit Sub Me.img = getImg - If Me.ListView IsNot Nothing Then Me.ListView.Invoke(Sub() - If Me.Index < Me.ListView.VirtualListSize Then Me.ListView.RedrawItems(Me.Index, Me.Index, False) - End Sub) + If Me.ListView IsNot Nothing AndAlso Me.ListView.Created Then Me.ListView.Invoke(Sub() + If Me.Index < Me.ListView.VirtualListSize Then Me.ListView.RedrawItems(Me.Index, Me.Index, False) + End Sub) End Sub) End Sub Modified: trunk/Tween/Tween.vb =================================================================== --- trunk/Tween/Tween.vb 2011-01-02 00:00:13 UTC (rev 1304) +++ trunk/Tween/Tween.vb 2011-01-02 04:35:06 UTC (rev 1305) @@ -3651,7 +3651,7 @@ _tabPage.SuspendLayout() If Me.ListTab.SelectedTab Is Me.ListTab.TabPages(idx) Then - Me.ListTab.SelectedTab = If(Me._beforeSelectedTab, Me.ListTab.TabPages(0)) + Me.ListTab.SelectTab(If(Me._beforeSelectedTab IsNot Nothing AndAlso Me.ListTab.TabPages.Contains(Me._beforeSelectedTab), Me._beforeSelectedTab, Me.ListTab.TabPages(0))) End If Me.ListTab.Controls.Remove(_tabPage) From svnnotify ＠ sourceforge.jp Sun Jan 2 14:56:44 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Sun, 02 Jan 2011 14:56:44 +0900 Subject: [Tween-svn] =?utf-8?b?WzEzMDZdICDjg6Hjg4vjg6Xjg7zjgYvjgolVc2Vy?= =?utf-8?b?X1RpbWVsaW5l44KS5a6f6KGM44Gn44GN44KL44KI44GG44Gr?= Message-ID: <1293947804.133361.10950.nullmailer@users.sourceforge.jp> Revision: 1306 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1306 Author: f_swallow Date: 2011-01-02 14:56:44 +0900 (Sun, 02 Jan 2011) Log Message: ----------- メニューからUser_Timelineを実行できるように 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-02 04:35:06 UTC (rev 1305) +++ trunk/Tween/Tween.Designer.vb 2011-01-02 05:56:44 UTC (rev 1306) @@ -160,6 +160,7 @@ Me.ToolStripSeparator38 = New System.Windows.Forms.ToolStripSeparator() Me.ShowProfMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ShowRelatedStatusesMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.ShowUserTimelineToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.OpenOpMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.OpenHomeOpMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.OpenFavOpMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -293,6 +294,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.ShowUserTimelineContextMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripContainer1.BottomToolStripPanel.SuspendLayout() Me.ToolStripContainer1.ContentPanel.SuspendLayout() Me.ToolStripContainer1.TopToolStripPanel.SuspendLayout() @@ -1076,7 +1078,7 @@ ' 'MenuItemOperate ' - Me.MenuItemOperate.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ReplyOpMenuItem, Me.ReplyAllOpMenuItem, Me.DmOpMenuItem, Me.RtOpMenuItem, Me.RtUnOpMenuItem, Me.QtOpMenuItem, Me.ToolStripSeparator25, Me.FavOpMenuItem, Me.FavoriteRetweetMenuItem, Me.FavoriteRetweetUnofficialMenuItem, Me.UnFavOpMenuItem, Me.ToolStripSeparator38, Me.ShowProfMenuItem, Me.ShowRelatedStatusesMenuItem2, Me.OpenOpMenuItem, Me.CreateRuleOpMenuItem, Me.ListManageMenuItem, Me.ToolStripSeparator26, Me.ChangeReadOpMenuItem, Me.JumpReadOpMenuItem, Me.ToolStripSeparator27, Me.SelAllOpMenuItem, Me.DelOpMenuItem, Me.RefreshOpMenuItem, Me.RefreshPrevOpMenuItem}) + Me.MenuItemOperate.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ReplyOpMenuItem, Me.ReplyAllOpMenuItem, Me.DmOpMenuItem, Me.RtOpMenuItem, Me.RtUnOpMenuItem, Me.QtOpMenuItem, Me.ToolStripSeparator25, Me.FavOpMenuItem, Me.FavoriteRetweetMenuItem, Me.FavoriteRetweetUnofficialMenuItem, Me.UnFavOpMenuItem, Me.ToolStripSeparator38, Me.ShowProfMenuItem, Me.ShowRelatedStatusesMenuItem2, Me.ShowUserTimelineToolStripMenuItem, Me.OpenOpMenuItem, Me.CreateRuleOpMenuItem, Me.ListManageMenuItem, Me.ToolStripSeparator26, Me.ChangeReadOpMenuItem, Me.JumpReadOpMenuItem, Me.ToolStripSeparator27, Me.SelAllOpMenuItem, Me.DelOpMenuItem, Me.RefreshOpMenuItem, Me.RefreshPrevOpMenuItem}) Me.MenuItemOperate.Name = "MenuItemOperate" resources.ApplyResources(Me.MenuItemOperate, "MenuItemOperate") ' @@ -1150,6 +1152,11 @@ Me.ShowRelatedStatusesMenuItem2.Name = "ShowRelatedStatusesMenuItem2" resources.ApplyResources(Me.ShowRelatedStatusesMenuItem2, "ShowRelatedStatusesMenuItem2") ' + 'ShowUserTimelineToolStripMenuItem + ' + Me.ShowUserTimelineToolStripMenuItem.Name = "ShowUserTimelineToolStripMenuItem" + resources.ApplyResources(Me.ShowUserTimelineToolStripMenuItem, "ShowUserTimelineToolStripMenuItem") + ' 'OpenOpMenuItem ' Me.OpenOpMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OpenHomeOpMenuItem, Me.OpenFavOpMenuItem, Me.OpenStatusOpMenuItem, Me.OpenRepSourceOpMenuItem, Me.OpenFavotterOpMenuItem, Me.OpenUrlOpMenuItem, Me.OpenRterHomeMenuItem}) @@ -1574,7 +1581,7 @@ ' 'ContextMenuOperate ' - Me.ContextMenuOperate.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ReplyStripMenuItem, Me.ReplyAllStripMenuItem, Me.DMStripMenuItem, Me.ReTweetOriginalStripMenuItem, Me.ReTweetStripMenuItem, Me.QuoteStripMenuItem, Me.ToolStripSeparator39, Me.FavAddToolStripMenuItem, Me.FavoriteRetweetContextMenu, Me.FavoriteRetweetUnofficialContextMenu, Me.FavRemoveToolStripMenuItem, Me.ToolStripSeparator2, Me.ShowProfileMenuItem, Me.ShowRelatedStatusesMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem7, Me.ListManageUserContextToolStripMenuItem2, Me.ToolStripSeparator4, Me.ToolStripMenuItem11, Me.JumpUnreadMenuItem, Me.ToolStripSeparator10, Me.SelectAllMenuItem, Me.DeleteStripMenuItem, Me.RefreshStripMenuItem, Me.RefreshMoreStripMenuItem}) + Me.ContextMenuOperate.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ReplyStripMenuItem, Me.ReplyAllStripMenuItem, Me.DMStripMenuItem, Me.ReTweetOriginalStripMenuItem, Me.ReTweetStripMenuItem, Me.QuoteStripMenuItem, Me.ToolStripSeparator39, Me.FavAddToolStripMenuItem, Me.FavoriteRetweetContextMenu, Me.FavoriteRetweetUnofficialContextMenu, Me.FavRemoveToolStripMenuItem, Me.ToolStripSeparator2, Me.ShowProfileMenuItem, Me.ShowRelatedStatusesMenuItem, Me.ShowUserTimelineContextMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem7, Me.ListManageUserContextToolStripMenuItem2, Me.ToolStripSeparator4, Me.ToolStripMenuItem11, Me.JumpUnreadMenuItem, Me.ToolStripSeparator10, Me.SelectAllMenuItem, Me.DeleteStripMenuItem, Me.RefreshStripMenuItem, Me.RefreshMoreStripMenuItem}) Me.ContextMenuOperate.Name = "ContextMenuStrip2" Me.ContextMenuOperate.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional resources.ApplyResources(Me.ContextMenuOperate, "ContextMenuOperate") @@ -1833,6 +1840,11 @@ ' Me.OpenFileDialog1.FileName = "OpenFileDialog1" ' + 'ShowUserTimelineContextMenuItem + ' + Me.ShowUserTimelineContextMenuItem.Name = "ShowUserTimelineContextMenuItem" + resources.ApplyResources(Me.ShowUserTimelineContextMenuItem, "ShowUserTimelineContextMenuItem") + ' 'TweenMain ' Me.AllowDrop = True @@ -2151,5 +2163,7 @@ Friend WithEvents EventViewerMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TranslationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents UxnuMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShowUserTimelineToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShowUserTimelineContextMenuItem As System.Windows.Forms.ToolStripMenuItem End Class Modified: trunk/Tween/Tween.resx =================================================================== --- trunk/Tween/Tween.resx 2011-01-02 04:35:06 UTC (rev 1305) +++ trunk/Tween/Tween.resx 2011-01-02 05:56:44 UTC (rev 1306) @@ -288,639 +288,72 @@ Horizontal - - ListTab + + Bottom - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 130, 99 + + + 226, 22 - - TimelinePanel + + タブ作成(&N)... - - 0 + + 226, 22 - - Fill + + タブ名の変更(&R) - - 0, 0 + + 223, 6 - - 570, 240 + + 226, 22 - - 0 + + 未読管理(&U) - - TimelinePanel + + 226, 22 - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 新着通知表示(&Q) - - SplitContainer1.Panel1 + + 121, 26 - - 0 + + 再生するwavファイルを指定してください - - True + + 223, 6 - - ImageSelectedPicture + + 226, 22 - - System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 振り分けルール編集(&F)... - - ImageSelectionPanel + + 223, 6 - - 0 + + 226, 22 - - ImagePathPanel + + このタブの発言をクリア(&C) - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 223, 6 - - ImageSelectionPanel + + 226, 22 - - 1 + + タブ削除(&D) - - Fill - - - 0, 0 - - - 570, 240 - - - 1 - - - False - - - ImageSelectionPanel - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel1 - - - 1 - - - Fill - - - 0, 0 - - - 570, 240 - - - 2 - - - False - - - ProfilePanel - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel1 - - - 2 - - - SplitContainer1.Panel1 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1 - - - 0 - - - Fill - - - 0, 0 - - - Fill - - - 0, 0 - - - Horizontal - - - 4 - - - UserPicture - - - System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel1 - - - 0 - - - NameLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel1 - - - 1 - - - PostBrowser - - - System.Windows.Forms.WebBrowser, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel1 - - - 2 - - - DateTimeLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel1 - - - 3 - - - SourceLinkLabel - - - System.Windows.Forms.LinkLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel1 - - - 4 - - - Fill - - - 0, 0 - - - 2 - - - 570, 75 - - - 1 - - - TableLayoutPanel1 - - - System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer2.Panel1 - - - 0 - - - <?xml version="1.0" encoding="utf-16"?><TableLayoutSettings><Controls><Control Name="UserPicture" Row="0" RowSpan="2" Column="0" ColumnSpan="1" /><Control Name="NameLabel" Row="0" RowSpan="1" Column="1" ColumnSpan="1" /><Control Name="PostBrowser" Row="1" RowSpan="1" Column="1" ColumnSpan="3" /><Control Name="DateTimeLabel" Row="0" RowSpan="1" Column="2" ColumnSpan="1" /><Control Name="SourceLinkLabel" Row="0" RowSpan="1" Column="3" ColumnSpan="1" /></Controls><Columns Styles="Absolute,56,Percent,100,Absolute,120,AutoSize,0" /><Rows Styles="Absolute,17,Percent,100" /></TableLayoutSettings> - - - SplitContainer2.Panel1 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer2 - - - 0 - - - 0 - - - Fill - - - 0, 0 - - - 482, 19 - - - 1 - - - StatusText - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer2.Panel2 - - - 0 - - - Right - - - Off - - - 482, 0 - - - 44, 25 - - - 0 - - - 999 - - - MiddleCenter - - - lblLen - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer2.Panel2 - - - 1 - - - Right - - - Off - - - 526, 0 - - - 44, 25 - - - 2 - - - Post - - - PostButton - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer2.Panel2 - - - 2 - - - SplitContainer2.Panel2 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer2 - - - 1 - - - 19 - - - 570, 102 - - - 75 - - - 2 - - - 1 - - - SplitContainer2 - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer3.Panel1 - - - 0 - - - SplitContainer3.Panel1 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer3 - - - 0 - - - Fill - - - Off - - - 0, 0 - - - 194, 76 - - - Zoom - - - 1 - - - PreviewPicture - - - System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer3.Panel2 - - - 0 - - - Right - - - Off - - - 194, 0 - - - 17, 76 - - - 0 - - - PreviewScrollBar - - - System.Windows.Forms.VScrollBar, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer3.Panel2 - - - 1 - - - SplitContainer3.Panel2 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer3 - - - 1 - - - 570, 102 - - - 355 - - - 2 - - - SplitContainer3 - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 0 - - - SplitContainer1.Panel2 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1 - - - 1 - - - 23 - - - 574, 352 - - - 244 - - - 2 - - - 0 - - - SplitContainer1 - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripContainer1.ContentPanel - - - 0 - - - 574, 352 - - - ToolStripContainer1.ContentPanel - - - System.Windows.Forms.ToolStripContentPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripContainer1 - - - 0 - - - Fill - - - ToolStripContainer1.LeftToolStripPanel - - - System.Windows.Forms.ToolStripPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripContainer1 - - - 1 - - - 0, 0 - - - ToolStripContainer1.RightToolStripPanel - - - System.Windows.Forms.ToolStripPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripContainer1 - - - 2 - - - 574, 405 - - - 0 - - - ToolStripContainer1 - - - 143, 17 - - - None - - - 0, 0 - - - 574, 26 - - - 0 - - - MenuStrip1 - - - MenuStrip1 - - - System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripContainer1.TopToolStripPanel - - - 0 - - - ToolStripContainer1.TopToolStripPanel - - - System.Windows.Forms.ToolStripPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripContainer1 - - - 3 - - - ToolStripContainer1 - - - System.Windows.Forms.ToolStripContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 6 - - - Bottom - - - 130, 99 - 227, 212 @@ -949,7 +382,7 @@ 0, 0, 0, 0 - 570, 240 + 570, 244 0 @@ -966,66 +399,33 @@ 0 - - 226, 22 + + Fill - - タブ作成(&N)... + + 0, 0 - - 226, 22 + + 570, 244 - - タブ名の変更(&R) + + 0 - - 223, 6 + + TimelinePanel - - 226, 22 + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 未読管理(&U) + + SplitContainer1.Panel1 - - 226, 22 + + 0 - - 新着通知表示(&Q) + + True - - 121, 26 - - - 再生するwavファイルを指定してください - - - 223, 6 - - - 226, 22 - - - 振り分けルール編集(&F)... - - - 223, 6 - - - 226, 22 - - - このタブの発言をクリア(&C) - - - 223, 6 - - - 226, 22 - - - タブ削除(&D) - Fill @@ -1036,7 +436,7 @@ 0, 0 - 570, 212 + 570, 216 Zoom @@ -1056,105 +456,6 @@ 0 - - ImagefilePathText - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ImagePathPanel - - - 0 - - - FilePickButton - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ImagePathPanel - - - 1 - - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ImagePathPanel - - - 2 - - - ImageServiceCombo - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ImagePathPanel - - - 3 - - - ImageCancelButton - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ImagePathPanel - - - 4 - - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ImagePathPanel - - - 5 - - - Bottom - - - 0, 212 - - - 3, 3, 3, 3 - - - 570, 28 - - - 0 - - - ImagePathPanel - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ImageSelectionPanel - - - 1 - Fill @@ -1335,45 +636,120 @@ 5 - - 635, 58 - - - 263, 214 + + Bottom - - ContextMenuUserPicture + + 0, 216 - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 3, 3, 3, 3 - - Off + + 570, 28 - - 3, 3 + + 0 - - 50, 50 + + ImagePathPanel - - Zoom + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 5 + + ImageSelectionPanel - - UserPicture + + 1 - - System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Fill - - TableLayoutPanel1 + + 0, 0 - + + 570, 244 + + + 1 + + + False + + + ImageSelectionPanel + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel1 + + + 1 + + + Fill + + + 0, 0 + + + 570, 244 + + + 2 + + + False + + + ProfilePanel + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel1 + + + 2 + + + SplitContainer1.Panel1 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1 + + 0 + + Fill + + + 0, 0 + + + Fill + + + 0, 0 + + + Horizontal + + + 4 + + + 635, 58 + 262, 22 @@ -1434,6 +810,42 @@ 保存(&I)... + + 263, 214 + + + ContextMenuUserPicture + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Off + + + 3, 3 + + + 50, 50 + + + Zoom + + + 5 + + + UserPicture + + + System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TableLayoutPanel1 + + + 0 + True @@ -1479,45 +891,6 @@ 480, 17 - - 263, 364 - - - ContextMenuPostBrowser - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Fill - - - 59, 20 - - - 508, 52 - - - 6 - - - PostBrowser - - - System.Windows.Forms.WebBrowser, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel1 - - - 2 - - - 262, 22 - - - 選択文字列で検索(&S) - 180, 22 @@ -1548,6 +921,12 @@ 現在のタブ(&L) + + 262, 22 + + + 選択文字列で検索(&S) + 259, 6 @@ -1650,6 +1029,39 @@ この発言を翻訳 + + 263, 364 + + + ContextMenuPostBrowser + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Fill + + + 59, 20 + + + 508, 48 + + + 6 + + + PostBrowser + + + System.Windows.Forms.WebBrowser, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TableLayoutPanel1 + + + 2 + Top, Bottom, Right @@ -1728,12 +1140,378 @@ 4 - - 85, 22 + + Fill - - ファイル(&F) + + 0, 0 + + 2 + + + 570, 71 + + + 1 + + + TableLayoutPanel1 + + + System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer2.Panel1 + + + 0 + + + <?xml version="1.0" encoding="utf-16"?><TableLayoutSettings><Controls><Control Name="UserPicture" Row="0" RowSpan="2" Column="0" ColumnSpan="1" /><Control Name="NameLabel" Row="0" RowSpan="1" Column="1" ColumnSpan="1" /><Control Name="PostBrowser" Row="1" RowSpan="1" Column="1" ColumnSpan="3" /><Control Name="DateTimeLabel" Row="0" RowSpan="1" Column="2" ColumnSpan="1" /><Control Name="SourceLinkLabel" Row="0" RowSpan="1" Column="3" ColumnSpan="1" /></Controls><Columns Styles="Absolute,56,Percent,100,Absolute,120,AutoSize,0" /><Rows Styles="Absolute,17,Percent,100" /></TableLayoutSettings> + + + SplitContainer2.Panel1 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer2 + + + 0 + + + 0 + + + Fill + + + 0, 0 + + + 482, 19 + + + 1 + + + StatusText + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer2.Panel2 + + + 0 + + + Right + + + Off + + + 482, 0 + + + 44, 25 + + + 0 + + + 999 + + + MiddleCenter + + + lblLen + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer2.Panel2 + + + 1 + + + Right + + + Off + + + 526, 0 + + + 44, 25 + + + 2 + + + Post + + + PostButton + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer2.Panel2 + + + 2 + + + SplitContainer2.Panel2 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer2 + + + 1 + + + 19 + + + 570, 98 + + + 71 + + + 2 + + + 1 + + + SplitContainer2 + + + System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer3.Panel1 + + + 0 + + + SplitContainer3.Panel1 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer3 + + + 0 + + + Fill + + + Off + + + 0, 0 + + + 194, 100 + + + Zoom + + + 1 + + + PreviewPicture + + + System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer3.Panel2 + + + 0 + + + Right + + + Off + + + 194, 0 + + + 17, 100 + + + 0 + + + PreviewScrollBar + + + System.Windows.Forms.VScrollBar, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer3.Panel2 + + + 1 + + + SplitContainer3.Panel2 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer3 + + + 1 + + + 570, 98 + + + 355 + + + 2 + + + SplitContainer3 + + + System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 0 + + + SplitContainer1.Panel2 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1 + + + 1 + + + 23 + + + 574, 352 + + + 248 + + + 2 + + + 0 + + + SplitContainer1 + + + System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripContainer1.ContentPanel + + + 0 + + + 574, 352 + + + ToolStripContainer1.ContentPanel + + + System.Windows.Forms.ToolStripContentPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripContainer1 + + + 0 + + + Fill + + + ToolStripContainer1.LeftToolStripPanel + + + System.Windows.Forms.ToolStripPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripContainer1 + + + 1 + + + 0, 0 + + + ToolStripContainer1.RightToolStripPanel + + + System.Windows.Forms.ToolStripPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripContainer1 + + + 2 + + + 574, 405 + + + 0 + + + ToolStripContainer1 + + + 143, 17 + + + None + 189, 22 @@ -1785,11 +1563,11 @@ 終了(&X) - - 61, 22 + + 85, 22 - - 編集(&E) + + ファイル(&F) 259, 22 @@ -1860,11 +1638,11 @@ 抽出条件入力(&Q) - - 63, 22 + + 61, 22 - - 操作(&O) + + 編集(&E) Ctrl+R @@ -1980,11 +1758,11 @@ 関連発言表示(&G) - + 316, 22 - - 開く(&O) + + ユーザーのタイムラインを表示 Ctrl+H @@ -2049,11 +1827,11 @@ RTした人のホームを開く(&R) - + 316, 22 - - 振り分けルール作成(&C) + + 開く(&O) 227, 22 @@ -2067,6 +1845,12 @@ ID振り分けルール作成(&I) + + 316, 22 + + + 振り分けルール作成(&C) + 316, 22 @@ -2076,12 +1860,6 @@ 313, 6 - - 316, 22 - - - 未読状態変更(&H) - Ctrl+B @@ -2100,6 +1878,12 @@ 未読にする(&U) + + 316, 22 + + + 未読状態変更(&H) + 316, 22 @@ -2145,11 +1929,11 @@ 前データを取得(&I) - - 62, 22 + + 63, 22 - - タブ(&T) + + 操作(&O) 226, 22 @@ -2211,18 +1995,12 @@ タブ削除(&D) - - 98, 22 + + 62, 22 - - その他機能(&C) + + タブ(&T) - - 280, 22 - - - 入力欄のURLを短縮変換 - Ctrl+L @@ -2277,6 +2055,12 @@ ux.nu + + 280, 22 + + + 入力欄のURLを短縮変換 + 280, 22 @@ -2367,15 +2151,12 @@ リスト編集 - - False + + 98, 22 - - 91, 22 + + その他機能(&C) - - UserStream - 147, 22 @@ -2406,12 +2187,15 @@ View Events - - 75, 22 + + False - - ヘルプ(&H) + + 91, 22 + + UserStream + F1 @@ -2454,15 +2238,6 @@ Tweenについて(&A)... - - 227, 22 - - - デバッグモード - - - False - 232, 22 @@ -2481,101 +2256,155 @@ アイコンキャッシュ使用状況 - - 443, 58 - - - 244, 490 + + 227, 22 - - ContextMenuOperate + + デバッグモード - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + False + + 75, 22 + + + ヘルプ(&H) + + + 0, 0 + + + 574, 26 + + + 0 + + + MenuStrip1 + + + MenuStrip1 + + + System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripContainer1.TopToolStripPanel + + + 0 + + + ToolStripContainer1.TopToolStripPanel + + + System.Windows.Forms.ToolStripPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripContainer1 + + + 3 + + + ToolStripContainer1 + + + System.Windows.Forms.ToolStripContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 6 + + + 443, 58 + - 243, 22 + 244, 22 @返信(&R) - 243, 22 + 244, 22 @返信ALL(&E) - 243, 22 + 244, 22 DM送信(&M) - 243, 22 + 244, 22 Re&tweet - 243, 22 + 244, 22 Retweet(U&nofficial) - 243, 22 + 244, 22 &Quote - 240, 6 + 241, 6 - 243, 22 + 244, 22 Fav追加(&F) - 243, 22 + 244, 22 Fav追加+Retweet - 243, 22 + 244, 22 Fav追加+Retweet(Unofficial) - 243, 22 + 244, 22 Fav削除(&V) - 240, 6 + 241, 6 - 243, 22 + 244, 22 プロフィール表示 - 243, 22 + 244, 22 関連発言表示(&G) - - 243, 22 + + 244, 22 - - 開く(&O) + + ユーザーのタイムラインを表示 230, 22 @@ -2619,11 +2448,11 @@ RTした人のホームを開く(&R) - - 243, 22 + + 244, 22 - - 振り分けルール作成(&C) + + 開く(&O) 239, 22 @@ -2637,21 +2466,21 @@ ID振り分けルール作成... + + 244, 22 + + + 振り分けルール作成(&C) + - 243, 22 + 244, 22 リスト管理(&L) - 240, 6 + 241, 6 - - 243, 22 - - - 未読状態変更(&H) - 154, 22 @@ -2664,51 +2493,57 @@ 未読にする + + 244, 22 + + + 未読状態変更(&H) + - 243, 22 + 244, 22 未読へジャンプ(&J) - 240, 6 + 241, 6 - 243, 22 + 244, 22 全て選択(&A) - 243, 22 + 244, 22 削除(&D) - 243, 22 + 244, 22 更新(&U) - 243, 22 + 244, 22 前データを取得(&I) - - 276, 58 - - - 190, 154 + + 245, 534 - - ContextMenuFile + + ContextMenuOperate - + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 276, 58 + 189, 22 @@ -2757,6 +2592,15 @@ 終了(&X) + + 190, 154 + + + ContextMenuFile + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + 155, 58 @@ -3408,6 +3252,12 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ShowUserTimelineToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + OpenOpMenuItem @@ -4194,6 +4044,12 @@ System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ShowUserTimelineContextMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + TweenMain Modified: trunk/Tween/Tween.vb =================================================================== --- trunk/Tween/Tween.vb 2011-01-02 04:35:06 UTC (rev 1305) +++ trunk/Tween/Tween.vb 2011-01-02 05:56:44 UTC (rev 1306) @@ -2701,6 +2701,7 @@ ReplyAllStripMenuItem.Enabled = False DMStripMenuItem.Enabled = False ShowProfileMenuItem.Enabled = False + ShowUserTimelineContextMenuItem.Enabled = False ListManageUserContextToolStripMenuItem2.Enabled = False MoveToFavToolStripMenuItem.Enabled = False TabMenuItem.Enabled = False @@ -2713,6 +2714,7 @@ ReplyStripMenuItem.Enabled = True ReplyAllStripMenuItem.Enabled = True DMStripMenuItem.Enabled = True + ShowUserTimelineContextMenuItem.Enabled = True MoveToFavToolStripMenuItem.Enabled = True TabMenuItem.Enabled = True IDRuleMenuItem.Enabled = True @@ -3298,6 +3300,11 @@ Me.SearchButton_Click(ListTab.SelectedTab.Controls("panelSearch").Controls("comboSearch"), Nothing) End Sub + Private Sub ShowUserTimeline() + If Not Me.ExistCurrentPost Then Exit Sub + AddNewTabForUserTimeline(_curPost.Name) + End Sub + Public Sub AddNewTabForUserTimeline(ByVal user As String) '同一検索条件のタブが既に存在すれば、そのタブアクティブにして終了 For Each tb As TabClass In _statuses.GetTabsByType(TabUsageType.UserTimeline) @@ -9426,6 +9433,7 @@ Me.ReplyAllOpMenuItem.Enabled = False Me.DmOpMenuItem.Enabled = False Me.ShowProfMenuItem.Enabled = False + Me.ShowUserTimelineToolStripMenuItem.Enabled = False Me.ListManageMenuItem.Enabled = False Me.OpenFavOpMenuItem.Enabled = False Me.CreateTabRuleOpMenuItem.Enabled = False @@ -9437,6 +9445,7 @@ Me.ReplyAllOpMenuItem.Enabled = True Me.DmOpMenuItem.Enabled = True Me.ShowProfMenuItem.Enabled = True + Me.ShowUserTimelineToolStripMenuItem.Enabled = True Me.ListManageMenuItem.Enabled = True Me.OpenFavOpMenuItem.Enabled = True Me.CreateTabRuleOpMenuItem.Enabled = True @@ -10310,4 +10319,8 @@ Protected Overrides Sub Finalize() MyBase.Finalize() End Sub + + Private Sub ShowUserTimelineToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ShowUserTimelineToolStripMenuItem.Click, ShowUserTimelineContextMenuItem.Click + ShowUserTimeline() + End Sub End Class From svnnotify ＠ sourceforge.jp Mon Jan 3 00:32:26 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Mon, 03 Jan 2011 00:32:26 +0900 Subject: [Tween-svn] =?utf-8?b?WzEzMDddICDjgYTjgaPjgZ/jgpPliYrpmaQ=?= Message-ID: <1293982346.842538.6892.nullmailer@users.sourceforge.jp> Revision: 1307 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1307 Author: syo68k Date: 2011-01-03 00:32:26 +0900 (Mon, 03 Jan 2011) Log Message: ----------- いったん削除 Removed Paths: ------------- branches/query/ -------------- next part -------------- From svnnotify ＠ sourceforge.jp Mon Jan 3 00:33:17 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Mon, 03 Jan 2011 00:33:17 +0900 Subject: [Tween-svn] [1308] Message-ID: <1293982397.875656.8141.nullmailer@users.sourceforge.jp> Revision: 1308 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1308 Author: syo68k Date: 2011-01-03 00:33:17 +0900 (Mon, 03 Jan 2011) Log Message: ----------- Added Paths: ----------- branches/query/ -------------- next part -------------- Property changes on: branches/query ___________________________________________________________________ Added: svn:ignore + *.suo Tween.5.1.ReSharper.user _ReSharper.Tween Added: svn:mergeinfo + /branches/APIchangeevent:723-746 /branches/FixedImage:787-910 /branches/SettingDialog:1216-1230 /branches/UserStream:1077-1144 /branches/editlist:667-697 /branches/panelswitch:447-572 /branches/tm:782-794 From svnnotify ＠ sourceforge.jp Tue Jan 4 10:21:34 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Tue, 04 Jan 2011 10:21:34 +0900 Subject: [Tween-svn] =?utf-8?b?WzEzMDldICDmipXnqL/lkajjgorjga7jgrPjg7w=?= =?utf-8?b?44OJ44KS5pW055CG?= Message-ID: <1294104094.045248.30336.nullmailer@users.sourceforge.jp> Revision: 1309 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1309 Author: f_swallow Date: 2011-01-04 10:21:33 +0900 (Tue, 04 Jan 2011) Log Message: ----------- 投稿周りのコードを整理 Modified Paths: -------------- trunk/Tween/Tween.vb -------------- next part -------------- Modified: trunk/Tween/Tween.vb =================================================================== --- trunk/Tween/Tween.vb 2011-01-02 15:33:17 UTC (rev 1308) +++ trunk/Tween/Tween.vb 2011-01-04 01:21:33 UTC (rev 1309) @@ -7211,12 +7211,41 @@ 'TextBox1でEnterを押してもビープ音が鳴らないようにする If (keyData And Keys.KeyCode) = Keys.Enter Then If StatusText.Focused Then - '改行 - If StatusText.Multiline AndAlso _ - (Not SettingDialog.PostShiftEnter AndAlso (keyData And Keys.Shift) = Keys.Shift AndAlso _ - (keyData And Keys.Control) <> Keys.Control) OrElse _ - (SettingDialog.PostShiftEnter AndAlso (keyData And Keys.Control) = Keys.Control AndAlso _ - (keyData And Keys.Shift) <> Keys.Shift) Then + Dim _NewLine As Boolean = False + Dim _Post As Boolean = False + + If SettingDialog.PostCtrlEnter Then 'Ctrl+Enter投稿時 + If StatusText.Multiline Then + If (keyData And Keys.Shift) = Keys.Shift AndAlso (keyData And Keys.Control) <> Keys.Control Then _NewLine = True + + If (keyData And Keys.Control) = Keys.Control Then _Post = True + Else + If ((keyData And Keys.Control) = Keys.Control) Then _Post = True + End If + + ElseIf SettingDialog.PostShiftEnter Then 'SHift+Enter投稿時 + If StatusText.Multiline Then + If (keyData And Keys.Control) = Keys.Control AndAlso (keyData And Keys.Shift) <> Keys.Shift Then _NewLine = True + + If (keyData And Keys.Shift) = Keys.Shift Then _Post = True + Else + If ((keyData And Keys.Shift) = Keys.Shift) Then _Post = True + End If + + Else 'Enter投稿時 + If StatusText.Multiline Then + If (keyData And Keys.Shift) = Keys.Shift AndAlso (keyData And Keys.Control) <> Keys.Control Then _NewLine = True + + If ((keyData And Keys.Control) <> Keys.Control AndAlso (keyData And Keys.Shift) <> Keys.Shift) OrElse _ + ((keyData And Keys.Control) = Keys.Control AndAlso (keyData And Keys.Shift) = Keys.Shift) Then _Post = True + Else + If ((keyData And Keys.Shift) = Keys.Shift) OrElse _ + (((keyData And Keys.Control) <> Keys.Control) AndAlso _ + ((keyData And Keys.Shift) <> Keys.Shift)) Then _Post = True + End If + End If + + If _NewLine Then Dim pos1 As Integer = StatusText.SelectionStart If StatusText.SelectionLength > 0 Then StatusText.Text = StatusText.Text.Remove(pos1, StatusText.SelectionLength) '選択状態文字列削除 @@ -7224,26 +7253,13 @@ StatusText.Text = StatusText.Text.Insert(pos1, Environment.NewLine) '改行挿入 StatusText.SelectionStart = pos1 + Environment.NewLine.Length 'カーソルを改行の次の文字へ移動 Return True - End If - '投稿 - If (Not StatusText.Multiline AndAlso _ - ((keyData And Keys.Shift) = Keys.Shift AndAlso (Not SettingDialog.PostCtrlEnter AndAlso Not SettingDialog.PostShiftEnter)) OrElse _ - ((keyData And Keys.Control) = Keys.Control AndAlso SettingDialog.PostCtrlEnter) OrElse _ - ((keyData And Keys.Shift) = Keys.Shift AndAlso SettingDialog.PostShiftEnter) OrElse _ - (((keyData And Keys.Control) <> Keys.Control AndAlso Not SettingDialog.PostCtrlEnter) AndAlso _ - ((keyData And Keys.Shift) <> Keys.Shift AndAlso Not SettingDialog.PostShiftEnter))) OrElse _ - (StatusText.Multiline AndAlso _ - (Not SettingDialog.PostCtrlEnter AndAlso Not SettingDialog.PostShiftEnter AndAlso _ - ((keyData And Keys.Control) <> Keys.Control AndAlso (keyData And Keys.Shift) <> Keys.Shift) OrElse _ - ((keyData And Keys.Control) = Keys.Control AndAlso (keyData And Keys.Shift) = Keys.Shift)) OrElse _ - (SettingDialog.PostCtrlEnter AndAlso (keyData And Keys.Control) = Keys.Control) OrElse _ - (SettingDialog.PostShiftEnter AndAlso (keyData And Keys.Shift) = Keys.Shift)) Then + ElseIf _Post Then PostButton_Click(Nothing, Nothing) Return True End If ElseIf _statuses.Tabs(ListTab.SelectedTab.Text).TabType = TabUsageType.PublicSearch AndAlso _ - (ListTab.SelectedTab.Controls("panelSearch").Controls("comboSearch").Focused OrElse _ - ListTab.SelectedTab.Controls("panelSearch").Controls("comboLang").Focused) Then + (ListTab.SelectedTab.Controls("panelSearch").Controls("comboSearch").Focused OrElse _ + ListTab.SelectedTab.Controls("panelSearch").Controls("comboLang").Focused) Then Me.SearchButton_Click(ListTab.SelectedTab.Controls("panelSearch").Controls("comboSearch"), Nothing) Return True End If From svnnotify ＠ sourceforge.jp Tue Jan 4 15:16:02 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Tue, 04 Jan 2011 15:16:02 +0900 Subject: [Tween-svn] =?utf-8?b?WzEzMTBdICBDdHJsK1Xjgafjg6bjg7zjgrbjg7w=?= =?utf-8?b?44K/44Kk44Og44Op44Kk44Oz44KS6ZaL44GP44KI44GG44Gr?= Message-ID: <1294121762.159849.16149.nullmailer@users.sourceforge.jp> Revision: 1310 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1310 Author: f_swallow Date: 2011-01-04 15:16:02 +0900 (Tue, 04 Jan 2011) Log Message: ----------- Ctrl+Uでユーザータイムラインを開くように 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-04 01:21:33 UTC (rev 1309) +++ trunk/Tween/Tween.Designer.vb 2011-01-04 06:16:02 UTC (rev 1310) @@ -257,6 +257,7 @@ Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.ShowProfileMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ShowRelatedStatusesMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ShowUserTimelineContextMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() Me.MoveToHomeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MoveToFavToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -294,7 +295,6 @@ 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.ShowUserTimelineContextMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripContainer1.BottomToolStripPanel.SuspendLayout() Me.ToolStripContainer1.ContentPanel.SuspendLayout() Me.ToolStripContainer1.TopToolStripPanel.SuspendLayout() @@ -1656,6 +1656,11 @@ Me.ShowRelatedStatusesMenuItem.Name = "ShowRelatedStatusesMenuItem" resources.ApplyResources(Me.ShowRelatedStatusesMenuItem, "ShowRelatedStatusesMenuItem") ' + 'ShowUserTimelineContextMenuItem + ' + Me.ShowUserTimelineContextMenuItem.Name = "ShowUserTimelineContextMenuItem" + resources.ApplyResources(Me.ShowUserTimelineContextMenuItem, "ShowUserTimelineContextMenuItem") + ' 'ToolStripMenuItem6 ' Me.ToolStripMenuItem6.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MoveToHomeToolStripMenuItem, Me.MoveToFavToolStripMenuItem, Me.StatusOpenMenuItem, Me.RepliedStatusOpenMenuItem, Me.FavorareMenuItem, Me.OpenURLMenuItem, Me.MoveToRTHomeMenuItem}) @@ -1840,11 +1845,6 @@ ' Me.OpenFileDialog1.FileName = "OpenFileDialog1" ' - 'ShowUserTimelineContextMenuItem - ' - Me.ShowUserTimelineContextMenuItem.Name = "ShowUserTimelineContextMenuItem" - resources.ApplyResources(Me.ShowUserTimelineContextMenuItem, "ShowUserTimelineContextMenuItem") - ' 'TweenMain ' Me.AllowDrop = True Modified: trunk/Tween/Tween.resx =================================================================== --- trunk/Tween/Tween.resx 2011-01-04 01:21:33 UTC (rev 1309) +++ trunk/Tween/Tween.resx 2011-01-04 06:16:02 UTC (rev 1310) @@ -382,7 +382,7 @@ 0, 0, 0, 0 - 570, 244 + 570, 246 0 @@ -406,7 +406,7 @@ 0, 0 - 570, 244 + 570, 246 0 @@ -436,7 +436,7 @@ 0, 0 - 570, 216 + 570, 218 Zoom @@ -640,7 +640,7 @@ Bottom - 0, 216 + 0, 218 3, 3, 3, 3 @@ -670,7 +670,7 @@ 0, 0 - 570, 244 + 570, 246 1 @@ -697,7 +697,7 @@ 0, 0 - 570, 244 + 570, 246 2 @@ -1045,7 +1045,7 @@ 59, 20 - 508, 48 + 508, 46 6 @@ -1150,7 +1150,7 @@ 2 - 570, 71 + 570, 69 1 @@ -1288,10 +1288,10 @@ 19 - 570, 98 + 570, 96 - 71 + 69 2 @@ -1333,7 +1333,7 @@ 0, 0 - 194, 100 + 194, 98 Zoom @@ -1363,7 +1363,7 @@ 194, 0 - 17, 100 + 17, 98 0 @@ -1393,7 +1393,7 @@ 1 - 570, 98 + 570, 96 355 @@ -1432,7 +1432,7 @@ 574, 352 - 248 + 250 2 @@ -1758,6 +1758,9 @@ 関連発言表示(&G) + + Ctrl+U + 316, 22 @@ -3828,6 +3831,12 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ShowUserTimelineContextMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + ToolStripMenuItem6 @@ -4044,12 +4053,6 @@ System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ShowUserTimelineContextMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - TweenMain Modified: trunk/Tween/Tween.vb =================================================================== --- trunk/Tween/Tween.vb 2011-01-04 01:21:33 UTC (rev 1309) +++ trunk/Tween/Tween.vb 2011-01-04 06:16:02 UTC (rev 1310) @@ -4998,6 +4998,10 @@ e.Handled = True e.SuppressKeyPress = True SendKeys.Send("{UP}") + ElseIf e.KeyCode = Keys.U Then + e.Handled = True + e.SuppressKeyPress = True + ShowUserTimeline() End If ' Webページを開く動作 @@ -5855,6 +5859,10 @@ e.Handled = True e.SuppressKeyPress = True MenuItemSubSearch_Click(Nothing, Nothing) + ElseIf e.KeyCode = Keys.U Then + e.Handled = True + e.SuppressKeyPress = True + ShowUserTimeline() End If Select Case e.KeyCode @@ -6401,6 +6409,9 @@ Case Keys.E e.IsInputKey = True OpenURLMenuItem_Click(Nothing, Nothing) + Case Keys.U + e.IsInputKey = True + ShowUserTimeline() End Select End If From svnnotify ＠ sourceforge.jp Tue Jan 4 22:43:09 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Tue, 04 Jan 2011 22:43:09 +0900 Subject: [Tween-svn] =?utf-8?b?WzEzMTFdICDjg5fjg63jg5XjgqPjg7zjg6vooag=?= =?utf-8?b?56S65pmC44GrTnVsbFJlZmVyZW5jZUV4Y2VwdGlvbuOCkui1t+OBk+OBmQ==?= =?utf-8?b?5aC05ZCI44GM44GC44Gj44Gf44Gu44KS5L+u5q2j?= Message-ID: <1294148589.895725.1770.nullmailer@users.sourceforge.jp> Revision: 1311 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1311 Author: f_swallow Date: 2011-01-04 22:43:09 +0900 (Tue, 04 Jan 2011) Log Message: ----------- プロフィール表示時にNullReferenceExceptionを起こす場合があったのを修正 Modified Paths: -------------- trunk/Tween/Twitter.vb -------------- next part -------------- Modified: trunk/Tween/Twitter.vb =================================================================== --- trunk/Tween/Twitter.vb 2011-01-04 06:16:02 UTC (rev 1310) +++ trunk/Tween/Twitter.vb 2011-01-04 13:43:09 UTC (rev 1311) @@ -2524,6 +2524,7 @@ End Sub End Class Public Function CreateHtmlAnchor(ByVal Text As String, ByVal AtList As List(Of String)) As String + If Text Is Nothing Then Return Nothing Dim retStr As String = Text.Replace(">", "<<<<>>>>").Replace("<", "<<<<>>>>") 'uriの正規表現 'Const rgUrl As String = "(?(?:[^\""':!=]|^|\:))" + _ From svnnotify ＠ sourceforge.jp Wed Jan 5 10:03:37 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Wed, 05 Jan 2011 10:03:37 +0900 Subject: [Tween-svn] =?utf-8?b?WzEzMTJdICBUd2Vlbua1hOWMluS9nOaIpumWiw==?= =?utf-8?b?5aeL?= Message-ID: <1294189417.487414.24735.nullmailer@users.sourceforge.jp> Revision: 1312 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1312 Author: anis774 Date: 2011-01-05 10:03:37 +0900 (Wed, 05 Jan 2011) Log Message: ----------- Tween浄化作戦開始 Added Paths: ----------- branches/OperationClean/ -------------- next part -------------- Property changes on: branches/OperationClean ___________________________________________________________________ Added: svn:ignore + *.suo Tween.5.1.ReSharper.user _ReSharper.Tween Added: svn:mergeinfo + /branches/APIchangeevent:723-746 /branches/FixedImage:787-910 /branches/SettingDialog:1216-1230 /branches/UserStream:1077-1144 /branches/editlist:667-697 /branches/panelswitch:447-572 /branches/tm:782-794 From svnnotify ＠ sourceforge.jp Wed Jan 5 10:41:08 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Wed, 05 Jan 2011 10:41:08 +0900 Subject: [Tween-svn] =?utf-8?b?WzEzMTNdICDjg53jgrnjg4joqbPntLDooajnpLo=?= =?utf-8?b?6Zai6YCj44Gu44OV44Kh44Kk44Or44KS6L+95Yqg?= Message-ID: <1294191668.892329.15919.nullmailer@users.sourceforge.jp> Revision: 1313 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1313 Author: anis774 Date: 2011-01-05 10:41:08 +0900 (Wed, 05 Jan 2011) Log Message: ----------- ポスト詳細表示関連のファイルを追加 Modified Paths: -------------- branches/OperationClean/Tween/Tween.resx branches/OperationClean/Tween/Tween.vbproj Added Paths: ----------- branches/OperationClean/Tween/PostBrowser.Designer.vb branches/OperationClean/Tween/PostBrowser.resx branches/OperationClean/Tween/PostBrowser.vb branches/OperationClean/Tween/PostView.Designer.vb branches/OperationClean/Tween/PostView.resx branches/OperationClean/Tween/PostView.vb -------------- next part -------------- Added: branches/OperationClean/Tween/PostBrowser.Designer.vb =================================================================== --- branches/OperationClean/Tween/PostBrowser.Designer.vb (rev 0) +++ branches/OperationClean/Tween/PostBrowser.Designer.vb 2011-01-05 01:41:08 UTC (rev 1313) @@ -0,0 +1,53 @@ +? _ +Partial Class PostBrowser + Inherits System.Windows.Forms.UserControl + + 'UserControl はコンポーネント一覧をクリーンアップするために dispose をオーバーライドします。 + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows フォーム デザイナーで必要です。 + Private components As System.ComponentModel.IContainer + + 'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。 + 'Windows フォーム デザイナーを使用して変更できます。 + 'コード エディターを使って変更しないでください。 + _ + Private Sub InitializeComponent() + Me.WebBrowser1 = New System.Windows.Forms.WebBrowser() + Me.SuspendLayout() + ' + 'WebBrowser1 + ' + Me.WebBrowser1.AllowWebBrowserDrop = False + Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill + Me.WebBrowser1.IsWebBrowserContextMenuEnabled = False + Me.WebBrowser1.Location = New System.Drawing.Point(0, 0) + Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20) + Me.WebBrowser1.Name = "WebBrowser1" + Me.WebBrowser1.Size = New System.Drawing.Size(377, 131) + Me.WebBrowser1.TabIndex = 7 + Me.WebBrowser1.TabStop = False + Me.WebBrowser1.WebBrowserShortcutsEnabled = False + ' + 'PostBrowser + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.WebBrowser1) + Me.Name = "PostBrowser" + Me.Size = New System.Drawing.Size(377, 131) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser + +End Class Added: branches/OperationClean/Tween/PostBrowser.resx =================================================================== --- branches/OperationClean/Tween/PostBrowser.resx (rev 0) +++ branches/OperationClean/Tween/PostBrowser.resx 2011-01-05 01:41:08 UTC (rev 1313) @@ -0,0 +1,120 @@ +? + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file Added: branches/OperationClean/Tween/PostBrowser.vb =================================================================== --- branches/OperationClean/Tween/PostBrowser.vb (rev 0) +++ branches/OperationClean/Tween/PostBrowser.vb 2011-01-05 01:41:08 UTC (rev 1313) @@ -0,0 +1,31 @@ +?Public Class PostBrowser + Private _post As PostClass + Public Property Post As PostClass + Set(ByVal value As PostClass) + Me._post = value + End Set + Get + Return Me._post + End Get + End Property + + Private _isMonospace As Boolean + Public Property isMonospace As Boolean + Set(ByVal value As Boolean) + Me._isMonospace = value + End Set + Get + Return Me._isMonospace + End Get + End Property + + Private _font As Font = MyBase.Font + Public Overrides Property Font As Font + Set(ByVal value As Font) + Me._font = value + End Set + Get + Return Me._font + End Get + End Property +End Class Added: branches/OperationClean/Tween/PostView.Designer.vb =================================================================== --- branches/OperationClean/Tween/PostView.Designer.vb (rev 0) +++ branches/OperationClean/Tween/PostView.Designer.vb 2011-01-05 01:41:08 UTC (rev 1313) @@ -0,0 +1,151 @@ +? _ +Partial Class PostView + Inherits System.Windows.Forms.UserControl + + 'UserControl はコンポーネント一覧をクリーンアップするために dispose をオーバーライドします。 + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows フォーム デザイナーで必要です。 + Private components As System.ComponentModel.IContainer + + 'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。 + 'Windows フォーム デザイナーを使用して変更できます。 + 'コード エディターを使って変更しないでください。 + _ + Private Sub InitializeComponent() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.UserPicture = New System.Windows.Forms.PictureBox() + Me.NameLabel = New System.Windows.Forms.Label() + Me.DateTimeLabel = New System.Windows.Forms.Label() + Me.SourceLinkLabel = New System.Windows.Forms.LinkLabel() + Me.PostBrowser = New Tween.PostBrowser() + Me.TableLayoutPanel1.SuspendLayout() + CType(Me.UserPicture, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 4 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 56.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 120.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.Controls.Add(Me.UserPicture, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.NameLabel, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.PostBrowser, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.DateTimeLabel, 2, 0) + Me.TableLayoutPanel1.Controls.Add(Me.SourceLinkLabel, 3, 0) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 17.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(366, 184) + Me.TableLayoutPanel1.TabIndex = 2 + ' + 'UserPicture + ' + Me.UserPicture.BackColor = System.Drawing.Color.White + Me.UserPicture.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UserPicture.ImeMode = System.Windows.Forms.ImeMode.Off + Me.UserPicture.Location = New System.Drawing.Point(3, 3) + Me.UserPicture.Name = "UserPicture" + Me.TableLayoutPanel1.SetRowSpan(Me.UserPicture, 2) + Me.UserPicture.Size = New System.Drawing.Size(50, 50) + Me.UserPicture.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.UserPicture.TabIndex = 5 + Me.UserPicture.TabStop = False + ' + 'NameLabel + ' + Me.NameLabel.AutoEllipsis = True + Me.NameLabel.AutoSize = True + Me.NameLabel.Dock = System.Windows.Forms.DockStyle.Fill + Me.NameLabel.Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Bold) + Me.NameLabel.ImeMode = System.Windows.Forms.ImeMode.Off + Me.NameLabel.Location = New System.Drawing.Point(59, 3) + Me.NameLabel.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0) + Me.NameLabel.Name = "NameLabel" + Me.NameLabel.Size = New System.Drawing.Size(119, 14) + Me.NameLabel.TabIndex = 0 + Me.NameLabel.Text = "LblName" + Me.NameLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.NameLabel.UseMnemonic = False + ' + 'DateTimeLabel + ' + Me.DateTimeLabel.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.DateTimeLabel.AutoEllipsis = True + Me.DateTimeLabel.AutoSize = True + Me.DateTimeLabel.ImeMode = System.Windows.Forms.ImeMode.Off + Me.DateTimeLabel.Location = New System.Drawing.Point(260, 3) + Me.DateTimeLabel.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0) + Me.DateTimeLabel.Name = "DateTimeLabel" + Me.DateTimeLabel.Size = New System.Drawing.Size(38, 14) + Me.DateTimeLabel.TabIndex = 1 + Me.DateTimeLabel.Text = "Label1" + Me.DateTimeLabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'SourceLinkLabel + ' + Me.SourceLinkLabel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.SourceLinkLabel.AutoEllipsis = True + Me.SourceLinkLabel.AutoSize = True + Me.SourceLinkLabel.ImeMode = System.Windows.Forms.ImeMode.Off + Me.SourceLinkLabel.Location = New System.Drawing.Point(304, 3) + Me.SourceLinkLabel.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0) + Me.SourceLinkLabel.MaximumSize = New System.Drawing.Size(130, 0) + Me.SourceLinkLabel.Name = "SourceLinkLabel" + Me.SourceLinkLabel.Size = New System.Drawing.Size(59, 14) + Me.SourceLinkLabel.TabIndex = 7 + Me.SourceLinkLabel.TabStop = True + Me.SourceLinkLabel.Text = "LinkLabel1" + Me.SourceLinkLabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'PostBrowser + ' + Me.TableLayoutPanel1.SetColumnSpan(Me.PostBrowser, 3) + Me.PostBrowser.Dock = System.Windows.Forms.DockStyle.Fill + Me.PostBrowser.isMonospace = False + Me.PostBrowser.Location = New System.Drawing.Point(59, 20) + Me.PostBrowser.MinimumSize = New System.Drawing.Size(20, 20) + Me.PostBrowser.Name = "PostBrowser" + Me.PostBrowser.Post = Nothing + Me.PostBrowser.Size = New System.Drawing.Size(304, 161) + Me.PostBrowser.TabIndex = 6 + Me.PostBrowser.TabStop = False + ' + 'PostView + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Name = "PostView" + Me.Size = New System.Drawing.Size(366, 184) + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel1.PerformLayout() + CType(Me.UserPicture, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents UserPicture As System.Windows.Forms.PictureBox + Friend WithEvents NameLabel As System.Windows.Forms.Label + Friend WithEvents PostBrowser As PostBrowser + Friend WithEvents DateTimeLabel As System.Windows.Forms.Label + Friend WithEvents SourceLinkLabel As System.Windows.Forms.LinkLabel + +End Class Added: branches/OperationClean/Tween/PostView.resx =================================================================== --- branches/OperationClean/Tween/PostView.resx (rev 0) +++ branches/OperationClean/Tween/PostView.resx 2011-01-05 01:41:08 UTC (rev 1313) @@ -0,0 +1,120 @@ +? + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file Added: branches/OperationClean/Tween/PostView.vb =================================================================== --- branches/OperationClean/Tween/PostView.vb (rev 0) +++ branches/OperationClean/Tween/PostView.vb 2011-01-05 01:41:08 UTC (rev 1313) @@ -0,0 +1,12 @@ +?Public Class PostView + Private _post As PostClass + Public Property Post As PostClass + Set(ByVal value As PostClass) + Me._post = value + Me.PostBrowser.Post = value + End Set + Get + Return Me._post + End Get + End Property +End Class Modified: branches/OperationClean/Tween/Tween.resx =================================================================== --- branches/OperationClean/Tween/Tween.resx 2011-01-05 01:03:37 UTC (rev 1312) +++ branches/OperationClean/Tween/Tween.resx 2011-01-05 01:41:08 UTC (rev 1313) @@ -382,7 +382,7 @@ 0, 0, 0, 0 - 570, 246 + 570, 252 0 @@ -406,7 +406,7 @@ 0, 0 - 570, 246 + 570, 252 0 @@ -436,7 +436,7 @@ 0, 0 - 570, 218 + 570, 224 Zoom @@ -640,7 +640,7 @@ Bottom - 0, 218 + 0, 224 3, 3, 3, 3 @@ -670,7 +670,7 @@ 0, 0 - 570, 246 + 570, 252 1 @@ -697,7 +697,7 @@ 0, 0 - 570, 246 + 570, 252 2 @@ -1045,7 +1045,7 @@ 59, 20 - 508, 46 + 508, 40 6 @@ -1150,7 +1150,7 @@ 2 - 570, 69 + 570, 63 1 @@ -1288,10 +1288,10 @@ 19 - 570, 96 + 570, 90 - 69 + 63 2 @@ -1333,7 +1333,7 @@ 0, 0 - 194, 98 + 194, 92 Zoom @@ -1363,7 +1363,7 @@ 194, 0 - 17, 98 + 17, 92 0 @@ -1393,7 +1393,7 @@ 1 - 570, 96 + 570, 90 355 @@ -1432,7 +1432,7 @@ 574, 352 - 250 + 256 2 Modified: branches/OperationClean/Tween/Tween.vbproj =================================================================== --- branches/OperationClean/Tween/Tween.vbproj 2011-01-05 01:03:37 UTC (rev 1312) +++ branches/OperationClean/Tween/Tween.vbproj 2011-01-05 01:41:08 UTC (rev 1313) @@ -221,6 +221,18 @@ + + PostBrowser.vb + + + UserControl + + + PostView.vb + + + UserControl + SearchWord.vb @@ -399,6 +411,12 @@ OpenURL.vb Designer + + PostBrowser.vb + + + PostView.vb + SearchWord.vb Designer From svnnotify ＠ sourceforge.jp Wed Jan 5 14:32:59 2011 From: svnnotify ＠ sourceforge.jp (svnnotify ＠ sourceforge.jp) Date: Wed, 05 Jan 2011 14:32:59 +0900 Subject: [Tween-svn] =?utf-8?q?=5B1314=5D_PostBrowser=2E_IsMonospace?= =?utf-8?b?44OX44Ot44OR44OG44Kj44KS5a6f6KOF44CC5YuV44GP44GL56K66KqN44Gq?= =?utf-8?b?44KT44Gm44GX44Gm44Gq44GE44GX44CB44GT44KM44GM44Gp44GG44GE44GG?= =?utf-8?b?44OX44Ot44OR44OG44Kj44GL44KC55+l44KJ44KT44CC44Go44Gr44GL44GP?= =?utf-8?b?5pu444GE44Gf44CC44Gm44KG44O844GL44Kz44OU44Oa44GX44Gf44CC?= Message-ID: <1294205579.785548.29103.nullmailer@users.sourceforge.jp> Revision: 1314 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1314 Author: anis774 Date: 2011-01-05 14:32:59 +0900 (Wed, 05 Jan 2011) Log Message: ----------- PostBrowser.IsMonospaceプロパティを実装。動くか確認なんてしてないし、これがどういうプロパティかも知らん。とにかく書いた。てゆーかコピペした。 Modified Paths: -------------- branches/OperationClean/Tween/PostBrowser.vb -------------- next part -------------- Modified: branches/OperationClean/Tween/PostBrowser.vb =================================================================== --- branches/OperationClean/Tween/PostBrowser.vb 2011-01-05 01:41:08 UTC (rev 1313) +++ branches/OperationClean/Tween/PostBrowser.vb 2011-01-05 05:32:59 UTC (rev 1314) @@ -1,31 +1,91 @@ ?Public Class PostBrowser + Private Const detailHtmlFormatMono1 As String = "
"
+    Private Const detailHtmlFormatMono7 As String = "
" + Private Const detailHtmlFormat1 As String = "