| 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; |
| 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); |