Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.458 by genyakun, Tue Oct 12 01:21:35 2004 UTC revision 1.459 by genyakun, Tue Oct 12 01:44:10 2004 UTC
# Line 6882  begin Line 6882  begin
6882                  LoginAction.Checked := False;                  LoginAction.Checked := False;
6883                  if GikoSys.Setting.GengoSupport then begin                  if GikoSys.Setting.GengoSupport then begin
6884                          AddMessageList(GikoSys.Setting.Gengo.Names[1], nil, gmiOK);                          AddMessageList(GikoSys.Setting.Gengo.Names[1], nil, gmiOK);
6885                    end else begin
6886                            AddMessageList('ログアウトしました', nil, gmiOK);
6887                  end;                  end;
6888                  AddMessageList('ログアウトしました', nil, gmiOK);                  LoginAction.Caption := 'ログイン(&L)';
                 LoginAction.Caption := 'ログイン(&L)';  
6889          end else begin          end else begin
6890                  TmpCursor := Screen.Cursor;                  TmpCursor := Screen.Cursor;
6891                  Screen.Cursor := crHourGlass;                  Screen.Cursor := crHourGlass;
# Line 6905  begin Line 6906  begin
6906                                          LoginAction.Checked := True;                                          LoginAction.Checked := True;
6907                                  if GikoSys.Setting.GengoSupport then begin                                  if GikoSys.Setting.GengoSupport then begin
6908                                          AddMessageList(GikoSys.Setting.Gengo.Names[2] + GikoSys.Setting.UserID, nil, gmiOK);                                          AddMessageList(GikoSys.Setting.Gengo.Names[2] + GikoSys.Setting.UserID, nil, gmiOK);
6909                                  end;                                  end else begin
6910                                          AddMessageList('ログインしました - ' + GikoSys.Setting.UserID, nil, gmiOK);                                          AddMessageList('ログインしました - ' + GikoSys.Setting.UserID, nil, gmiOK);
6911                                          LoginAction.Caption := 'ログアウト(&L)';                                  end;
6912                      LoginToolButton.Style := tbsCheck;                                  LoginAction.Caption := 'ログアウト(&L)';
6913                                    LoginToolButton.Style := tbsCheck;
6914                                  end else begin                                  end else begin
6915                  //                      MsgBox(Handle, 'ログイン出来ませんでした', 'エラー', MB_OK or MB_ICONSTOP);                  //                      MsgBox(Handle, 'ログイン出来ませんでした', 'エラー', MB_OK or MB_ICONSTOP);
6916                                          AddMessageList(GikoSys.Dolib.ErrorMsg, nil, gmiNG);                                          AddMessageList(GikoSys.Dolib.ErrorMsg, nil, gmiNG);

Legend:
Removed from v.1.458  
changed lines
  Added in v.1.459

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