Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Round.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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; |
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 |
// + '分からない人はギコナビスレッドで聞いてください'; |
// + '分からない人はギコナビスレッドで聞いてください'; |
| 258 |
|
|
| 259 |
procedure TRoundDialog.RoundDeleteButtonClick(Sender: TObject); |
procedure TRoundDialog.RoundDeleteButtonClick(Sender: TObject); |
| 260 |
var |
var |
| 261 |
Board: TBoard; |
// Board: TBoard; |
| 262 |
ThreadItem: TThreadItem; |
// ThreadItem: TThreadItem; |
| 263 |
RoundItem: TRoundItem; |
RoundItem: TRoundItem; |
| 264 |
ListChangeEvent: TLVChangeEvent; |
ListChangeEvent: TLVChangeEvent; |
| 265 |
begin |
begin |
|
|
Legend:
| Removed from v.1.7 |
|
| changed lines |
| |
Added in v.1.8 |
|
|
|