svnno****@sourc*****
svnno****@sourc*****
2011年 3月 30日 (水) 16:22:48 JST
Revision: 1508 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1508 Author: f_swallow Date: 2011-03-30 16:22:48 +0900 (Wed, 30 Mar 2011) Log Message: ----------- ルール編集時にボタンのEnabledが変わったあとにもう一度変更されていたのを直した Modified Paths: -------------- trunk/Tween/FilterDialog.vb -------------- next part -------------- Modified: trunk/Tween/FilterDialog.vb =================================================================== --- trunk/Tween/FilterDialog.vb 2011-03-30 07:00:04 UTC (rev 1507) +++ trunk/Tween/FilterDialog.vb 2011-03-30 07:22:48 UTC (rev 1508) @@ -240,6 +240,12 @@ If ListFilters.SelectedIndex = -1 Then Exit Sub ShowDetail() + + Dim idx As Integer = ListFilters.SelectedIndex + ListFilters.SelectedIndex = -1 + ListFilters.SelectedIndex = idx + ListFilters.Enabled = False + ButtonNew.Enabled = False ButtonEdit.Enabled = False ButtonDelete.Enabled = False @@ -252,10 +258,6 @@ ListTabs.Enabled = False GroupTab.Enabled = False - Dim idx As Integer = ListFilters.SelectedIndex - ListFilters.SelectedIndex = -1 - ListFilters.SelectedIndex = idx - ListFilters.Enabled = False _mode = EDITMODE.Edit End Sub @@ -275,8 +277,6 @@ End If If rslt = Windows.Forms.DialogResult.Cancel Then Exit Sub - If _mode = EDITMODE.Edit Then ButtonCancel_Click(Nothing, Nothing) - For idx As Integer = ListFilters.Items.Count - 1 To 0 Step -1 If ListFilters.GetSelected(idx) Then _sts.Tabs(ListTabs.SelectedItem.ToString()).RemoveFilter(DirectCast(ListFilters.Items(idx), FiltersClass))