'群离线消息bug修复'

Client/Group/GroupProcess.pas

@@ -537,7 +537,7 @@ begin
       AContent := StringReplace(AContent, '[\r][\n]', '\r\n', [rfReplaceAll]);
       ASender := AItem.S['sender'];
       ASendTime := UnixToDateTime(Round(AItem.I['ts'] / 1000) + 8 * 60 * 60);
-      AStyle := JsonToFont(AData.O['style']);
+      AStyle := JsonToFont(AItem.O['style']);
 
 //      jaImgs := AItem.A['img'];
 //      if jaImgs <> nil then
@@ -549,7 +549,7 @@ begin
 //            service.OnUploaded(AURL, jaImgs.O[jLoop].S['file']);
 //          end;
 //      end;
-      TGroupService.GetService.OnMessage(ATeamID, ASender, AContent, AStyle, ASendTime, AData.I['msgType'], AData.I['length']);
+      TGroupService.GetService.OnMessage(ATeamID, ASender, AContent, AStyle, ASendTime, AItem.I['msgType'], AItem.I['length']);
     finally
       Client.MessageMisc(ATeamID);
     end;

ZWT/XML/DefaultConfig.xml

@@ -6,8 +6,8 @@
 	<MainFormTop Value="-3"/>
 	<MainFormWidth Value="258"/>
 	<MainFormHeight Value="734"/>
-	<TalkingFormLeft Value="195"/>
-	<TalkingFormTop Value="143"/>
+	<TalkingFormLeft Value="719"/>
+	<TalkingFormTop Value="125"/>
 	<TalkingFormWidth Value="663"/>
 	<TalkingFormHeight Value="507"/>
 	<ShowMainFormOnStart Value="True"/>