=================================================================== RCS file: /cvsroot/gikonavi/gikonavi/Round.pas,v retrieving revision 1.7 diff -r1.7 Round.pas 72a73,84 > > if not Giko.GikoForm.LoginAction.Checked then begin > if GikoSys.Setting.UserID <> '' then begin > msg := 'ログインしないと巡回は出来ません' + #13#10 > + '今ログインしますか'; > if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin > Exit; > end; > Giko.GikoForm.LoginAction.Execute; > end; > end; >
=================================================================== RCS file: /cvsroot/gikonavi/gikonavi/RoundData.pas,v retrieving revision 1.14 diff -r1.14 RoundData.pas 429c429,430 < for i := 1 to sl.Count - 1 do begin --- > i := 1; > while i < sl.Count do begin 437c438,439 < end; --- > end; > i := i + 1;
(2/2) −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ・ギコナビの雑誌での掲載許可：○ or × ・ギコナビの付録CD-ROMへの収録許可：○ or × ・ギコナビの弊誌ホームページでの掲載許可：○ or × ・弊誌ホームページおよび付録CD-ROM内のHTMLメニューにおける ギコナビプロジェクト様のホームページへのリンク許可：○ or ×
・正式表記と最新バージョンの確認：ギコナビ Version バタ45 Build 468 （できるだけ最新バージョンを収録させていただきたいと思っております。 このバージョンでOKかどうかご確認ください）
・許諾後に最新版がリリースされた場合の自動収録許可：○ or × （できるだけ最新のものを収録させていただくため，許諾をいただいた後 でも，時間の許す限り最新版をチェックしております。許可いただいた バージョンより新しいものがアップされた場合，それを収録しても大丈夫 かどうかの確認です。なお当然のことながら，許諾をいただいた月号のCD- ROMが対象となります）
Index: Giko.pas =================================================================== RCS file: /cvsroot/gikonavi/gikonavi/Giko.pas,v retrieving revision 1.196 diff -r1.196 Giko.pas 3087c3087 < if ActiveTab then begin --- > if (ActiveTab) or (BrowserTab.Tabs.Count=1) then begin