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.9 by deux, Tue Jan 6 15:44:20 2004 UTC revision 1.10 by q9_, Sat Apr 3 09:32:20 2004 UTC
# Line 72  begin Line 72  begin
72  {$IF Defined(FRCRND) }  {$IF Defined(FRCRND) }
73      Giko.GikoForm.LoginAction.Checked := true; // 動作試験用途      Giko.GikoForm.LoginAction.Checked := true; // 動作試験用途
74  {$IFEND}  {$IFEND}
75    
76            if not Giko.GikoForm.LoginAction.Checked then begin
77                    if GikoSys.Setting.UserID <> '' then begin
78                            msg := 'ログインしないと巡回は出来ません' + #13#10
79                                    + '今ログインしますか';
80                            if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin
81                                    Exit;
82                            end;
83                            Giko.GikoForm.LoginAction.Execute;
84                    end;
85            end;
86    
87          if not Giko.GikoForm.LoginAction.Checked then begin          if not Giko.GikoForm.LoginAction.Checked then begin
88                  msg := 'ログインしないと巡回は出来ません';// + #13#10                  msg := 'ログインしないと巡回は出来ません';// + #13#10
89  //                               + '分からない人はギコナビスレッドで聞いてください';  //                               + '分からない人はギコナビスレッドで聞いてください';

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