![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png){kind=logo}
Changeset 18254
- Timestamp:
- 08/26/08 19:04:56 (5 years ago)
- Location:
- lang/vb2005/Tween/Tween
- Files:
-
- 2 modified
-
Resources/ChangeLog.txt (modified) (1 diff)
-
Tween.vb (modified) (10 diffs)
Legend:
- Unmodified
- Added
- Removed
-
lang/vb2005/Tween/Tween/Resources/ChangeLog.txt
r18226 r18254 1 1 更新履歴 2 2 3 ***Ver0.0.9.4(Unreleased) 4 -48サイズアイコンの発言間を微調整 5 -発言を削除できない場合がある問題を修正 6 -自分宛@がrecentタブで未読状態で表示されたままになる問題を修正 3 7 ***Ver0.0.9.3(2008/8/26) 4 8 -48サイズアイコンのとき、Ver0091までの複数列表示も選べるようにした。 -
lang/vb2005/Tween/Tween/Tween.vb
r18226 r18254 814 814 If hit Then 815 815 ts.allCount += 1 816 Dim lvItem2 As ListViewItem = lvItem.Clone 816 817 If _readed = False And ts.unreadManage Then 817 lvItem .Font = _fntUnread818 lvItem .ForeColor = _clUnread819 lvItem .SubItems(8).Text = "False"818 lvItem2.Font = _fntUnread 819 lvItem2.ForeColor = _clUnread 820 lvItem2.SubItems(8).Text = "False" 820 821 'ts.tabPage.ImageIndex = 0 821 822 ts.unreadCount += 1 822 823 Else 823 lvItem .Font = _fntReaded824 lvItem .ForeColor = _clReaded825 lvItem .SubItems(8).Text = "True"824 lvItem2.Font = _fntReaded 825 lvItem2.ForeColor = _clReaded 826 lvItem2.SubItems(8).Text = "True" 826 827 'ts.tabPage.ImageIndex = -1 827 828 End If 828 829 If _onewaylove And SettingDialog.OneWayLove = True Then 829 lvItem .ForeColor = _clOWL830 lvItem2.ForeColor = _clOWL 830 831 End If 831 832 If _fav Then 832 lvItem.ForeColor = _clFav 833 End If 834 835 Dim lvItem2 As ListViewItem = lvItem.Clone 833 lvItem2.ForeColor = _clFav 834 End If 835 836 836 If lvItem2.SubItems(8).Text = "False" Then 837 837 If ts.oldestUnreadItem IsNot Nothing Then … … 846 846 End If 847 847 Next 848 849 If lItem.Reply Or Regex.IsMatch(lItem.Data, "@" + _username + "([^a-zA-Z0-9_]|$)", RegexOptions.IgnoreCase) Then 850 Dim lvItem2 As ListViewItem = lvItem.Clone 851 _tabs(1).allCount += 1 852 If _readed = False And _tabs(1).unreadManage Then 853 lvItem2.Font = _fntUnread 854 lvItem2.ForeColor = _clUnread 855 lvItem2.SubItems(8).Text = "False" 856 'ListTab.TabPages(1).ImageIndex = 0 857 _tabs(1).unreadCount += 1 858 Else 859 lvItem2.Font = _fntReaded 860 lvItem2.ForeColor = _clReaded 861 lvItem2.SubItems(8).Text = "True" 862 'ListTab.TabPages(1).ImageIndex = -1 863 End If 864 If _onewaylove And SettingDialog.OneWayLove = True Then 865 lvItem2.ForeColor = _clOWL 866 End If 867 If _fav Then 868 lvItem2.ForeColor = _clFav 869 End If 870 If lvItem2.SubItems(8).Text = "False" Then 871 If _tabs(1).oldestUnreadItem IsNot Nothing Then 872 If lvItem2.SubItems(5).Text < _tabs(1).oldestUnreadItem.SubItems(5).Text Then _tabs(1).oldestUnreadItem = lvItem2 873 Else 874 _tabs(1).oldestUnreadItem = lvItem2 875 End If 876 End If 877 Reply.Items.Add(lvItem2) 878 If _tabs(1).notify Then nf = True 879 If _tabs(1).soundFile <> "" Then snd = _tabs(1).soundFile '優先度高 880 '_reply = True 881 RepCnt += 1 882 End If 883 848 884 If mv = False Then 849 885 _tabs(0).allCount += 1 … … 877 913 End If 878 914 879 If lItem.Reply Or Regex.IsMatch(lItem.Data, "@" + _username + "([^a-zA-Z0-9_]|$)", RegexOptions.IgnoreCase) Then880 _tabs(1).allCount += 1881 If _readed = False And _tabs(1).unreadManage Then882 lvItem.Font = _fntUnread883 lvItem.ForeColor = _clUnread884 lvItem.SubItems(8).Text = "False"885 'ListTab.TabPages(1).ImageIndex = 0886 _tabs(1).unreadCount += 1887 Else888 lvItem.Font = _fntReaded889 lvItem.ForeColor = _clReaded890 lvItem.SubItems(8).Text = "True"891 'ListTab.TabPages(1).ImageIndex = -1892 End If893 If _onewaylove And SettingDialog.OneWayLove = True Then894 lvItem.ForeColor = _clOWL895 End If896 If _fav Then897 lvItem.ForeColor = _clFav898 End If899 Dim lvItem2 As ListViewItem = lvItem.Clone900 If lvItem2.SubItems(8).Text = "False" Then901 If _tabs(1).oldestUnreadItem IsNot Nothing Then902 If lvItem2.SubItems(5).Text < _tabs(1).oldestUnreadItem.SubItems(5).Text Then _tabs(1).oldestUnreadItem = lvItem2903 Else904 _tabs(1).oldestUnreadItem = lvItem2905 End If906 End If907 Reply.Items.Add(lvItem2)908 If _tabs(1).notify Then nf = True909 If _tabs(1).soundFile <> "" Then snd = _tabs(1).soundFile '優先度高910 '_reply = True911 RepCnt += 1912 End If913 915 914 916 nm = "" … … 2428 2430 For Each itm As ListViewItem In ts.listCustom.Items 2429 2431 If MyList.SelectedItems(cnt2).SubItems(5).Text = itm.SubItems(5).Text Then 2430 If ts.oldestUnreadItem .Equals(itm) Then ts.oldestUnreadItem = Nothing2432 If ts.oldestUnreadItem IsNot Nothing AndAlso ts.oldestUnreadItem.Equals(itm) Then ts.oldestUnreadItem = Nothing 2431 2433 If itm.SubItems(8).Text = "False" Then ts.unreadCount -= 1 2432 2434 ts.allCount -= 1 … … 2439 2441 For Each ts As TabStructure In _tabs 2440 2442 If ts.listCustom.Equals(MyList) Then 2441 If ts.oldestUnreadItem .Equals(MyList.SelectedItems(cnt2)) Then ts.oldestUnreadItem = Nothing2443 If ts.oldestUnreadItem IsNot Nothing AndAlso ts.oldestUnreadItem.Equals(MyList.SelectedItems(cnt2)) Then ts.oldestUnreadItem = Nothing 2442 2444 If MyList.SelectedItems(cnt2).SubItems(8).Text = "False" Then ts.unreadCount -= 1 2443 2445 ts.allCount -= 1 … … 2478 2480 For Each ts As TabStructure In _tabs 2479 2481 If ts.listCustom.Equals(MyList) Then 2480 If ts.oldestUnreadItem .Equals(MyList.SelectedItems(cnt2)) Then ts.oldestUnreadItem = Nothing2482 If ts.oldestUnreadItem IsNot Nothing AndAlso ts.oldestUnreadItem.Equals(MyList.SelectedItems(cnt2)) Then ts.oldestUnreadItem = Nothing 2481 2483 If MyList.SelectedItems(cnt2).SubItems(8).Text = "False" Then ts.unreadCount -= 1 2482 2484 ts.allCount -= 1 … … 3642 3644 If i = 0 Then 3643 3645 If wd2 - MyList.SmallImageList.ImageSize.Width > 0 Then 3644 Dim sRct As New Rectangle(x + 1 + MyList.SmallImageList.ImageSize.Width, e.Item.SubItems(i).Bounds.Y + 1, wd2 - MyList.SmallImageList.ImageSize.Width, e.Item.SubItems(i).Bounds.Height - 2)3646 Dim sRct As New Rectangle(x + 1 + MyList.SmallImageList.ImageSize.Width, e.Item.SubItems(i).Bounds.Y, wd2 - MyList.SmallImageList.ImageSize.Width, e.Item.SubItems(i).Bounds.Height - 3) 3645 3647 e.Graphics.DrawString(e.Item.SubItems(i).Text, e.Item.Font, brs, sRct, sf) 3646 3648 End If 3647 3649 Else 3648 Dim sRct As New Rectangle(e.Item.SubItems(i).Bounds.X + 1, e.Item.SubItems(i).Bounds.Y + 1, e.Item.SubItems(i).Bounds.Width - 2, e.Item.SubItems(i).Bounds.Height - 2)3650 Dim sRct As New Rectangle(e.Item.SubItems(i).Bounds.X + 1, e.Item.SubItems(i).Bounds.Y, e.Item.SubItems(i).Bounds.Width - 2, e.Item.SubItems(i).Bounds.Height - 3) 3649 3651 e.Graphics.DrawString(e.Item.SubItems(i).Text, e.Item.Font, brs, sRct, sf) 3650 3652 End If … … 3664 3666 If i = 0 Then 3665 3667 If wd2 - MyList.SmallImageList.ImageSize.Width > 0 Then 3666 Dim sRct As New Rectangle(x + 1 + MyList.SmallImageList.ImageSize.Width, e.Item.SubItems(i).Bounds.Y + 1, wd2 - MyList.SmallImageList.ImageSize.Width, e.Item.SubItems(i).Bounds.Height - 2)3668 Dim sRct As New Rectangle(x + 1 + MyList.SmallImageList.ImageSize.Width, e.Item.SubItems(i).Bounds.Y, wd2 - MyList.SmallImageList.ImageSize.Width, e.Item.SubItems(i).Bounds.Height - 3) 3667 3669 e.Graphics.DrawString(e.Item.SubItems(i).Text, e.Item.Font, brs, sRct, sf) 3668 3670 End If 3669 3671 Else 3670 Dim sRct As New Rectangle(e.Item.SubItems(i).Bounds.X + 1, e.Item.SubItems(i).Bounds.Y + 1, e.Item.SubItems(i).Bounds.Width - 2, e.Item.SubItems(i).Bounds.Height - 2)3672 Dim sRct As New Rectangle(e.Item.SubItems(i).Bounds.X + 1, e.Item.SubItems(i).Bounds.Y, e.Item.SubItems(i).Bounds.Width - 2, e.Item.SubItems(i).Bounds.Height - 3) 3671 3673 e.Graphics.DrawString(e.Item.SubItems(i).Text, e.Item.Font, brs, sRct, sf) 3672 3674 End If … … 3699 3701 3700 3702 If wd2 - _iconSz - 5 > 0 Then 3701 Dim sRct As New Rectangle(x + 5 + _iconSz, e.Item.Bounds.Y + 1, wd2 - _iconSz - 5, e.Item.Font.Height)3702 Dim sRct2 As New Rectangle(x + 5 + _iconSz, e.Item.Bounds.Y + 1 + e.Item.Font.Height, wd2 - _iconSz - 5, _iconSz - 2- e.Item.Font.Height)3703 Dim sRct As New Rectangle(x + 5 + _iconSz, e.Item.Bounds.Y, wd2 - _iconSz - 5, e.Item.Font.Height) 3704 Dim sRct2 As New Rectangle(x + 5 + _iconSz, e.Item.Bounds.Y + e.Item.Font.Height, wd2 - _iconSz - 5, _iconSz - e.Item.Font.Height) 3703 3705 Dim fnt As New Font(e.Item.Font, FontStyle.Bold) 3704 3706 e.Graphics.DrawString(e.Item.SubItems(1).Text + "(" + e.Item.SubItems(4).Text + ") " + e.Item.SubItems(0).Text + " " + e.Item.SubItems(3).Text, fnt, brs, sRct, sf) … … 3714 3716 brs = New SolidBrush(e.Item.ForeColor) 3715 3717 If wd2 - _iconSz - 5 > 0 Then 3716 Dim sRct As New Rectangle(x + 5 + _iconSz, e.Item.Bounds.Y + 1, wd2 - _iconSz - 5, e.Item.Font.Height)3717 Dim sRct2 As New Rectangle(x + 5 + _iconSz, e.Item.Bounds.Y + 1 + e.Item.Font.Height, wd2 - _iconSz - 5, _iconSz - 2- e.Item.Font.Height)3718 Dim sRct As New Rectangle(x + 5 + _iconSz, e.Item.Bounds.Y, wd2 - _iconSz - 5, e.Item.Font.Height) 3719 Dim sRct2 As New Rectangle(x + 5 + _iconSz, e.Item.Bounds.Y + e.Item.Font.Height, wd2 - _iconSz - 5, _iconSz - e.Item.Font.Height) 3718 3720 Dim fnt As New Font(e.Item.Font, FontStyle.Bold) 3719 3721 e.Graphics.DrawString(e.Item.SubItems(1).Text + "(" + e.Item.SubItems(4).Text + ") " + e.Item.SubItems(0).Text + " " + e.Item.SubItems(3).Text, fnt, brs, sRct, sf)
