Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.9 by yoffy, Tue Aug 12 17:31:10 2003 UTC revision 1.10 by yoffy, Tue Aug 12 17:41:56 2003 UTC
# Line 3617  begin Line 3617  begin
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
# Line 3632  begin Line 3636  begin
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

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26