| 3617 |
LogItemAction.Checked := False; |
LogItemAction.Checked := False; |
| 3618 |
NewItemAction.Checked := False; |
NewItemAction.Checked := False; |
| 3619 |
//SelectItemAction.Checked := True; |
//SelectItemAction.Checked := True; |
| 3620 |
|
ModifySelectList; |
| 3621 |
Dlg := TListSelectDialog.Create(Self); |
Dlg := TListSelectDialog.Create(Self); |
| 3622 |
try |
try |
| 3623 |
Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList); |
Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList); |
| 3624 |
|
Dlg.SelectComboBox.Text := SelectComboBox.Text; |
| 3625 |
Dlg.ShowModal; |
Dlg.ShowModal; |
| 3626 |
if Dlg.ModalResult = mrCancel then begin |
if Dlg.ModalResult = mrCancel then begin |
| 3627 |
|
AllItemAction.Checked := True; |
| 3628 |
|
SelectComboBox.Text := ''; |
| 3629 |
if GetActiveList is TBoard then |
if GetActiveList is TBoard then |
| 3630 |
SetListViewType(gvtUser, TBoard(GetActiveList).ParentCategory.ParentBBS2ch.SelectText , Dlg.KubetsuCheckBox.Checked); |
SetListViewType(gvtAll, TBoard(GetActiveList).ParentCategory.ParentBBS2ch.SelectText , Dlg.KubetsuCheckBox.Checked); |
| 3631 |
end else begin |
end else begin |
| 3632 |
idx := GikoSys.Setting.SelectTextList.IndexOf(Dlg.SelectComboBox.Text); |
idx := GikoSys.Setting.SelectTextList.IndexOf(Dlg.SelectComboBox.Text); |
| 3633 |
if idx <> -1 then |
if idx <> -1 then |
| 3636 |
while Dlg.SelectComboBox.Items.Count > 100 do begin |
while Dlg.SelectComboBox.Items.Count > 100 do begin |
| 3637 |
Dlg.SelectComboBox.Items.Delete(Dlg.SelectComboBox.Items.Count - 1); |
Dlg.SelectComboBox.Items.Delete(Dlg.SelectComboBox.Items.Count - 1); |
| 3638 |
end; |
end; |
| 3639 |
|
SelectComboBox.Text := Dlg.SelectComboBox.Text; |
| 3640 |
SetListViewType(gvtUser, Dlg.SelectComboBox.Text, Dlg.KubetsuCheckBox.Checked); |
SetListViewType(gvtUser, Dlg.SelectComboBox.Text, Dlg.KubetsuCheckBox.Checked); |
| 3641 |
end; |
end; |
| 3642 |
finally |
finally |