Рез больше не теряет настройки клипа

После разреза хвост оставался без цветового ключа: перенос настроек был
написан перечислением полей, а ключ появился позже и в перечень не попал.
Хвост переставал быть наложением, становился обычным победителем и
закрывал собой всё, что ниже — вместо компаса в углу окно показывало
пурпурную плашку во весь кадр.

Перечисление заменено на CopySettingsFrom: одно место, где сказано, что
переносится при копировании клипа, а что делает клип этим клипом. Иначе
та же ловушка досталась бы следующему свойству.

Проверка в lfmcheck: рез клипа с ключом, прозрачностью, громкостью и
кадрированием — всё остаётся у обеих половин, связки у них разные и
непустые.

Проекты, разрезанные прежней сборкой, правка задним числом не чинит:
у хвоста ключ надо включить заново.

tests/lfmcheck/lfmcheck.lpr

@@ -15,7 +15,7 @@ uses
   { Interfaces нужен, чтобы связалась вся LCL и заработала загрузка
     файлов форм. }
   Interfaces, Forms, Classes, SysUtils, Math, TypInfo, uTheme,
-  uMediaProbe, uProject, uTimelineCtrl,
+  uMediaProbe, uProject, uTransform, uTimelineCtrl,
   uPanCropForm, uDepsForm, uMismatchForm, uProgressForm, uProjectInfoForm,
   uRemuxForm;
 
@@ -153,6 +153,100 @@ begin
   end;
 end;
 
+{ Рез не должен терять настройки клипа.
+
+  Половина клипа после реза — тот же клип, и цветовой ключ, кадрирование,
+  прозрачность, громкость и текст должны остаться при обеих половинах.
+  Однажды не остались: у хвоста пропадал ключ, клип переставал быть
+  наложением и закрывал собой всё, что под ним. }
+procedure CheckSplitKeepsSettings;
+var
+  Proj: TProject;
+  Info: TMediaInfo;
+  Media: TMediaItem;
+  Timeline: TTimelineControl;
+  Head, Tail, Cl: TClip;
+  Key: TColorKey;
+  Tr: TMediaTransform;
+  I: Integer;
+begin
+  WriteLn;
+  WriteLn('Рез сохраняет настройки клипа');
+  WriteLn;
+
+  Info := Default(TMediaInfo);
+  Info.Valid := True;
+  Info.Kind := mkVideo;
+  Info.Duration := 600;
+  Info.HasVideo := True;
+  Info.VideoCodec := 'hevc';
+  Info.Width := 1920;
+  Info.Height := 1080;
+  Info.FpsNum := 30;
+  Info.FpsDen := 1;
+  Info.PixFmt := 'yuv420p';
+
+  Proj := TProject.Create;
+  Timeline := TTimelineControl.Create(nil);
+  try
+    Proj.Clear;
+    Proj.AddTrack('V1');
+    Media := Proj.AddMedia('/несуществующий/видео.mp4', Info);
+    Cl := Proj.AddClip(Proj.Tracks[0], Media, 0, 10, 0);
+
+    Key := DefaultColorKey;
+    Key.Enabled := True;
+    Key.Similarity := 22;
+    Cl.ColorKey := Key;
+    Cl.Opacity := 0.5;
+    Cl.Volume := 0.3;
+    Tr := Cl.Transform;
+    Tr.Zoom := 0.4;
+    Tr.OffsetX := 0.7;
+    Cl.Transform := Tr;
+    Cl.GroupId := 'g1';
+
+    Timeline.Project := Proj;
+    Timeline.PixelsPerSecond := 100;
+    Timeline.Playhead := 4;
+    Timeline.SplitAtPlayhead(False, False);
+
+    CheckTrue('клипов стало два', Proj.Tracks[0].Count = 2);
+    if Proj.Tracks[0].Count <> 2 then
+      Exit;
+
+    Head := nil;
+    Tail := nil;
+    for I := 0 to Proj.Tracks[0].Count - 1 do
+      if Proj.Tracks[0][I].TlStart < 0.001 then
+        Head := Proj.Tracks[0][I]
+      else
+        Tail := Proj.Tracks[0][I];
+    CheckTrue('обе половины нашлись', (Head <> nil) and (Tail <> nil));
+    if (Head = nil) or (Tail = nil) then
+      Exit;
+
+    CheckTrue('ключ остался у хвоста', Tail.ColorKey.Enabled);
+    CheckTrue('и с тем же цветом', Tail.ColorKey.Color = Key.Color);
+    CheckTrue('и с тем же допуском', Tail.ColorKey.Similarity = 22);
+    CheckTrue('прозрачность осталась', Abs(Tail.Opacity - 0.5) < 0.001);
+    CheckTrue('громкость осталась', Abs(Tail.Volume - 0.3) < 0.001);
+    CheckTrue('кадрирование осталось',
+      (Abs(Tail.Transform.Zoom - 0.4) < 0.001) and
+      (Abs(Tail.Transform.OffsetX - 0.7) < 0.001));
+    CheckTrue('ключ остался и у головы', Head.ColorKey.Enabled);
+    { Связки разные, и обе не пустые: иначе удаление одной половины
+      уносило бы вторую. }
+    CheckTrue('связка у половин разная и не пустая',
+      (Head.GroupId <> Tail.GroupId) and (Head.GroupId <> '') and
+      (Tail.GroupId <> ''));
+    CheckTrue('появление у хвоста снято', Abs(Tail.FadeIn) < 0.001);
+  finally
+    Timeline.Free;
+    Proj.Free;
+  end;
+end;
+
 begin
   WriteLn('Свойства из файлов форм');
   WriteLn;
@@ -180,6 +274,7 @@ begin
   CheckForm(TRemuxForm);
 
   CheckPlayheadSnap;
+  CheckSplitKeepsSettings;
 
   WriteLn;
   if Failed = 0 then