| 430 |
ToolBarUtil, NewBoard, HTMLCreate, IndividualAbon, |
ToolBarUtil, NewBoard, HTMLCreate, IndividualAbon, |
| 431 |
GikoBayesian, About, ShellAPI, |
GikoBayesian, About, ShellAPI, |
| 432 |
RoundName, RoundData, Menus, ListViewUtils, |
RoundName, RoundData, Menus, ListViewUtils, |
| 433 |
ThreadControl; |
ThreadControl, GikoMessage; |
| 434 |
|
|
| 435 |
|
|
| 436 |
{$R *.dfm} |
{$R *.dfm} |
| 1817 |
//ログアウト |
//ログアウト |
| 1818 |
GikoSys.Dolib.Disconnect; |
GikoSys.Dolib.Disconnect; |
| 1819 |
LoginAction.Checked := False; |
LoginAction.Checked := False; |
| 1820 |
GikoForm.AddMessageList(GikoSys.Setting.GetMessage(Ord(gmLogout)), nil, gmiOK); |
GikoForm.AddMessageList(GikoSys.GetGikoMessage(gmLogout), nil, gmiOK); |
| 1821 |
LoginAction.Caption := 'ログイン(&L)'; |
LoginAction.Caption := 'ログイン(&L)'; |
| 1822 |
end else begin |
end else begin |
| 1823 |
TmpCursor := GikoForm.ScreenCursor; |
TmpCursor := GikoForm.ScreenCursor; |
| 1837 |
end; |
end; |
| 1838 |
if GikoSys.Dolib.Connect then begin |
if GikoSys.Dolib.Connect then begin |
| 1839 |
LoginAction.Checked := True; |
LoginAction.Checked := True; |
| 1840 |
GikoForm.AddMessageList(GikoSys.Setting.GetMessage(Ord(gmLogin)) + GikoSys.Setting.UserID, nil, gmiOK); |
GikoForm.AddMessageList(GikoSys.GetGikoMessage(gmLogin) + GikoSys.Setting.UserID, nil, gmiOK); |
| 1841 |
LoginAction.Caption := 'ログアウト(&L)'; |
LoginAction.Caption := 'ログアウト(&L)'; |
| 1842 |
//LoginToolButton.Style := tbsCheck; |
//LoginToolButton.Style := tbsCheck; |
| 1843 |
end else begin |
end else begin |
| 1867 |
GikoSys.Dolib.ForcedConnect; |
GikoSys.Dolib.ForcedConnect; |
| 1868 |
if GikoSys.Dolib.Connect then begin |
if GikoSys.Dolib.Connect then begin |
| 1869 |
LoginAction.Checked := True; |
LoginAction.Checked := True; |
| 1870 |
GikoForm.AddMessageList(GikoSys.Setting.GetMessage(Ord(gmForceLogin)) + GikoSys.Setting.UserID, nil, gmiOK); |
GikoForm.AddMessageList(GikoSys.GetGikoMessage(gmForceLogin) + GikoSys.Setting.UserID, nil, gmiOK); |
| 1871 |
LoginAction.Caption := 'ログアウト(&L)'; |
LoginAction.Caption := 'ログアウト(&L)'; |
| 1872 |
//LoginToolButton.Style := tbsCheck; |
//LoginToolButton.Style := tbsCheck; |
| 1873 |
end else begin |
end else begin |