Browse Source

用户在线状态bug修复

lqq 8 years ago
parent
commit
73801cd034
2 changed files with 4 additions and 4 deletions
  1. 3 3
      Client/Services/UsersService.pas
  2. 1 1
      ZWT/XML/DefaultConfig.xml

+ 3 - 3
Client/Services/UsersService.pas

@@ -305,10 +305,10 @@ begin
   AUser := GetUser(ALoginName);
   if AUser = nil then Exit;
 
-  if not (ALoginState <> stMobileOnline) or (AUser.LoginState = stOffline) then
-    AUser.LoginState := ALoginState
+  if (ALoginState = stMobileOnline) and (AUser.LoginState <> stOffline) then
+    Exit
   else
-    Exit;
+    AUser.LoginState := ALoginState;
 
   AUser.LeaveMessage := ALeaveMessage;
   if (AUser.LoginState <> stOffline) and (AUser.LoginState <> stHidden) then

+ 1 - 1
ZWT/XML/DefaultConfig.xml

@@ -4,7 +4,7 @@
 	<UIMainColor Value="15392442"/>
 	<MainFormLeft Value="1256"/>
 	<MainFormTop Value="261"/>
-	<MainFormWidth Value="258"/>
+	<MainFormWidth Value="-300"/>
 	<MainFormHeight Value="752"/>
 	<TalkingFormLeft Value="759"/>
 	<TalkingFormTop Value="491"/>