Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Round.pas

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

revision 1.4 by h677, Wed Dec 10 13:53:05 2003 UTC revision 1.5 by h677, Sat Dec 13 09:46:19 2003 UTC
# Line 69  begin Line 69  begin
69  //              GikoSys.MsgBox(msg, 'エラー', MB_OK or MB_ICONSTOP);  //              GikoSys.MsgBox(msg, 'エラー', MB_OK or MB_ICONSTOP);
70  //              Exit;  //              Exit;
71  //      end;  //      end;
72        Giko.GikoForm.LoginAction.Checked := true;
73          if not Giko.GikoForm.LoginAction.Checked then begin          if not Giko.GikoForm.LoginAction.Checked then begin
74                  msg := 'ログインしないと巡回は出来ません' + #13#10                  msg := 'ログインしないと巡回は出来ません' + #13#10
75                                   + '分からない人はギコナビスレッドで聞いてください';                                   + '分からない人はギコナビスレッドで聞いてください';
# Line 228  begin Line 229  begin
229          RoundListView.OnChange := nil;          RoundListView.OnChange := nil;
230          try          try
231                  RoundListView.Clear;                  RoundListView.Clear;
232                  for i := 0 to RoundList.Count[grtBoard] - 1 do begin                  for i := RoundList.Count[grtBoard] - 1 downto 0 do begin
233                          if (RoundList.Items[i, grtBoard].RoundName = RoundName) or (RoundName = '') then begin                          if (RoundList.Items[i, grtBoard].RoundName = RoundName) or (RoundName = '') then begin
234                                  ListItem := RoundListView.Items.Add;                                  ListItem := RoundListView.Items.Add;
235                                  ListItem.Data := RoundList.Items[i, grtBoard];                                  ListItem.Data := RoundList.Items[i, grtBoard];
# Line 239  begin Line 240  begin
240                                  ListItem.ImageIndex := 0;                                  ListItem.ImageIndex := 0;
241                          end;                          end;
242                  end;                  end;
243                  for i := 0 to RoundList.Count[grtItem] - 1 do begin                  for i := RoundList.Count[grtItem] - 1 downto 0 do begin
244                          if (RoundList.Items[i, grtItem].RoundName = RoundName) or (RoundName = '') then begin                          if (RoundList.Items[i, grtItem].RoundName = RoundName) or (RoundName = '') then begin
245                                  ListItem := RoundListView.Items.Add;                                  ListItem := RoundListView.Items.Add;
246                                  ListItem.Data := RoundList.Items[i, grtItem];                                  ListItem.Data := RoundList.Items[i, grtItem];

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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