1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62
63. 63
64. 64
65. 65
66. 66
67. 67
68. 68
69. 69
70. 70
71. 71
72. 72
73. 73
74. 74
75. 75
76. 76
77. 77
78. 78
79. 79
80. 80
81. 81
82. 82
83. 83
84. 84
85. 85
86. 86
87. 87
88. 88
89. 89

for i := 0 to high(vParagsChanges) do
    begin
      if vParNumIn < vParagsChanges[i].ParNo1 then
      begin
        inc(vParNumOut, vParagsChanges[i].ParNo1 - vParNumIn);
        vParNumIn := vParagsChanges[i].ParNo1;
      end;

      if i < high(vParagsChanges) then
        if (vParagsChanges[i].ParNo1+vParagsChanges[i].Range=vParagsChanges[i+1].ParNo1) and
        ((vParagsChanges[i].Kind=ckDelete) and (vParagsChanges[i+1].Kind=ckAdd)) then
          {if vParagsChanges[i].Range = vParagsChanges[i+1].Range then} 
          begin
            vUnitedPars := min(vParagsChanges[i].Range, vParagsChanges[i+1].Range);
            if vParagsChanges[i+1].Range >= vUnitedPars then
              vParagsChanges[i+1].Range := vParagsChanges[i+1].Range - vUnitedPars;
            if vParagsChanges[i].Range >= vUnitedPars then
              vParagsChanges[i].Range := vParagsChanges[i].Range - vUnitedPars;
            for j := 0 to vUnitedPars-1 do 
            begin
              FParsHL[vParNumIn+vInsertedCount1+j].Kind := pkReplaced;
              vTagsInfoEx := GetTagsInfo(Editor1.Parag(vParNumIn+vInsertedCount1+j).Str); 
              FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds);
              vTagsInfoEx := GetTagsInfo(Editor2.Parag(vParNumIn+vInsertedCount1+j).Str);
              FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups + GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds);
              if vParagsChanges[i].InCard then 
                FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups + [vgCard]
              else
                FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups + [vgText];
            end;
            inc(vParNumIn, vUnitedPars);
            inc(vParNumOut, vUnitedPars);
          end;

      case vParagsChanges[i].Kind of
        ckAdd: begin
          for j := 0 to vParagsChanges[i].Range-1 do
          begin
            vTmpParag := TRTFParag.Create(nil, False, False, raLeft{raRight});
            FEditor1.InsPar(vParNumIn+vInsertedCount1+j, vTmpParag, false);
            FParsHL[vParNumIn+vInsertedCount1+j].Kind := pkAdded;
            vTagsInfoEx := GetTagsInfo(Editor2.Parag(vParNumOut+vInsertedCount2+j).Str); 
            if vParagsChanges[i].InCard then 
              FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds) + [vgCard]
            else 
              FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds) + [vgText];
          end;
          inc(vInsertedCount1, vParagsChanges[i].Range);
          inc(vParNumOut, vParagsChanges[i].Range);
        end;
        ckDelete: begin
          for j := 0 to vParagsChanges[i].Range-1 do
          begin
            vTmpParag := TRTFParag.Create(nil, False, False, raLeft);
            FEditor2.InsPar(vParNumOut+vInsertedCount2+j, vTmpParag, false);
            FParsHL[vParNumOut+vInsertedCount2+j].Kind := pkDeleted;
            vTagsInfoEx := GetTagsInfo(Editor1.Parag(vParNumIn+vInsertedCount1+j).Str); 
            if vParagsChanges[i].InCard then 
              FParsHL[vParNumOut+vInsertedCount2+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds) + [vgCard]
            else 
              FParsHL[vParNumOut+vInsertedCount2+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds) + [vgText];
          end;
          inc(vInsertedCount2, vParagsChanges[i].Range);
          inc(vParNumIn, vParagsChanges[i].Range);
        end;
        ckModify: begin 
          if (ciAlignment in vParagsChanges[i].ChangedItems) and (vParagsChanges[i].StrChanges = nil) then
            FParsHL[vParNumIn+vInsertedCount1].Kind := pkAlignment
          else
            FParsHL[vParNumIn+vInsertedCount1].Kind := pkModified;

          FParsHL[vParNumIn+vInsertedCount1].Changes := GetViewChanges(vParagsChanges[i].StrChanges);
          FParsHL[vParNumIn+vInsertedCount1].ViewGroups := GetViewGroupsByChangeItems(vParagsChanges[i].ChangedItems);
          if vParagsChanges[i].InCard then 
            if (ciText in vParagsChanges[i].ChangedItems) or (ciAlignment in vParagsChanges[i].ChangedItems) then 
            begin 
              FParsHL[vParNumIn+vInsertedCount1].ViewGroups := FParsHL[vParNumIn+vInsertedCount1].ViewGroups + [vgCard];
              FParsHL[vParNumIn+vInsertedCount1].ViewGroups := FParsHL[vParNumIn+vInsertedCount1].ViewGroups - [vgText, vgAlignment];

              for j := 0 to high(FParsHL[vParNumIn+vInsertedCount1].Changes) do 
                if FParsHL[vParNumIn+vInsertedCount1].Changes[j].ViewGroup = vgText then
                  FParsHL[vParNumIn+vInsertedCount1].Changes[j].ViewGroup := vgCard;
            end;

          inc(vParNumIn, 1);
          inc(vParNumOut, 1);
        end;
      end;
    end;