| 1715 |
//Samba24のファイルチェック |
//Samba24のファイルチェック |
| 1716 |
GikoSys.SambaFileExists(); |
GikoSys.SambaFileExists(); |
| 1717 |
|
|
|
//にちゃん語ファイル読み出し |
|
|
|
|
| 1718 |
// マウスジェスチャー |
// マウスジェスチャー |
| 1719 |
MouseGesture := TMouseGesture.Create; |
MouseGesture := TMouseGesture.Create; |
| 1720 |
GikoSys.Setting.Gestures.LoadGesture( |
GikoSys.Setting.Gestures.LoadGesture( |
| 1725 |
MouseGesture.OnGestureEnd := OnGestureEnd; |
MouseGesture.OnGestureEnd := OnGestureEnd; |
| 1726 |
if GikoSys.Setting.GestureEnabled then |
if GikoSys.Setting.GestureEnabled then |
| 1727 |
MouseGesture.SetHook( Handle ); |
MouseGesture.SetHook( Handle ); |
| 1728 |
|
|
| 1729 |
|
//2ch言語読み出し |
| 1730 |
|
if GikoSys.Setting.GengoSupport then begin |
| 1731 |
|
GikoSys.Setting.Gengo := TStringList.Create; |
| 1732 |
|
GikoSys.Setting.Gengo.LoadFromFile(GikoSys.GetConfigDir + 'language.ini'); |
| 1733 |
|
end; |
| 1734 |
end; |
end; |
| 1735 |
|
|
| 1736 |
// CoolBar の設定を変数に保存 |
// CoolBar の設定を変数に保存 |
| 1918 |
TabAutoSaveAction.Execute; |
TabAutoSaveAction.Execute; |
| 1919 |
end; |
end; |
| 1920 |
end; |
end; |
| 1921 |
|
//2ch言語ファイルFree |
| 1922 |
|
if GikoSys.Setting.GengoSupport then begin |
| 1923 |
|
GikoSys.Setting.Gengo.Free; |
| 1924 |
|
end; |
| 1925 |
//Application.HookMainWindow(Hook); |
//Application.HookMainWindow(Hook); |
| 1926 |
Application.UnhookMainWindow(Hook); |
Application.UnhookMainWindow(Hook); |
| 1927 |
Application.Terminate; |
Application.Terminate; |
| 6880 |
//ログアウト |
//ログアウト |
| 6881 |
GikoSys.Dolib.Disconnect; |
GikoSys.Dolib.Disconnect; |
| 6882 |
LoginAction.Checked := False; |
LoginAction.Checked := False; |
| 6883 |
|
if GikoSys.Setting.GengoSupport then begin |
| 6884 |
|
AddMessageList(GikoSys.Setting.Gengo.Names[1], nil, gmiOK); |
| 6885 |
|
end; |
| 6886 |
AddMessageList('ログアウトしました', nil, gmiOK); |
AddMessageList('ログアウトしました', nil, gmiOK); |
| 6887 |
LoginAction.Caption := 'ログイン(&L)'; |
LoginAction.Caption := 'ログイン(&L)'; |
| 6888 |
end else begin |
end else begin |
| 6903 |
end; |
end; |
| 6904 |
if GikoSys.Dolib.Connect then begin |
if GikoSys.Dolib.Connect then begin |
| 6905 |
LoginAction.Checked := True; |
LoginAction.Checked := True; |
| 6906 |
|
if GikoSys.Setting.GengoSupport then begin |
| 6907 |
|
AddMessageList(GikoSys.Setting.Gengo.Names[2] + GikoSys.Setting.UserID, nil, gmiOK); |
| 6908 |
|
end; |
| 6909 |
AddMessageList('ログインしました - ' + GikoSys.Setting.UserID, nil, gmiOK); |
AddMessageList('ログインしました - ' + GikoSys.Setting.UserID, nil, gmiOK); |
| 6910 |
LoginAction.Caption := 'ログアウト(&L)'; |
LoginAction.Caption := 'ログアウト(&L)'; |
| 6911 |
LoginToolButton.Style := tbsCheck; |
LoginToolButton.Style := tbsCheck; |