| 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 |
+ '分からない人はギコナビスレッドで聞いてください'; |
+ '分からない人はギコナビスレッドで聞いてください'; |
| 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]; |
| 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]; |