Rolled back the changes about synchronized session

diff --git a/bottleclient/TalkShowFrame.pas b/bottleclient/TalkShowFrame.pas
index 4bc2ef7..56af39d 100644 (file)
--- a/bottleclient/TalkShowFrame.pas
+++ b/bottleclient/TalkShowFrame.pas
@@ -68,7 +68,7 @@ end;
 
 procedure TfrmTalkShow.PaintBoxPaint(Sender: TObject);
 var i, y, sur, sur0, sur1: integer;
-    UnyuTalking, InSync, SurfaceChangeInSync: boolean;
+    UnyuTalking, InSync: boolean;
     Talk: String;
   procedure TalkEnd;
   begin
@@ -120,16 +120,12 @@ begin
   Talk := '';
   UnyuTalking := false;
   InSync := false;
-  SurfaceChangeInSync := false;
   //
   for i := 0 to FSsParser.Count-1 do
   begin
     case FSsParser.MarkUpType[i] of
       mtTag:
         begin
-          if ((FSsParser[i] = '\u') or (FSsParser[i] = '\h')) and InSync then
-            SurfaceChangeInSync := true; // \_s\93à\82Å\82Ì\83X\83R\81[\83v\95Ï\8dX\82Å
-                                         // \82»\82Ì\8cã\82Ì\s\83^\83O\82Ì\8b\93\93®\82É\95Ï\8dX\82ª\82 \82é
           if (FSsParser[i] = '\h') and UnyuTalking then
           begin
             if not InSync then
@@ -144,13 +140,11 @@ begin
           begin
             TalkEnd;
             InSync := not InSync;
-            if InSync then
-              SurfaceChangeInSync := false;
           end else if FSsParser.Match(FSsParser[i], '\s[%D]') > 0 then
           begin
             TalkEnd;
             sur := StrToInt(FSsParser.GetParam(FSsParser[i], 1));
-            if InSync and not SurfaceChangeInSync then
+            if InSync then
             begin
               sur0 := sur;
               sur1 := sur;
@@ -162,7 +156,7 @@ begin
           begin
             TalkEnd;
             sur := Ord(FSsParser[i][3]) - Ord('0');
-            if InSync and not SurfaceChangeInSync then
+            if InSync then
             begin
               sur0 := sur;
               sur1 := sur;