[BedaZzle]

Добавление субтитра в перевод.

Удобно использовать для сдвига текста перевода, при подгонке имеющегося текста без или со сбитым таймингом.

// Insert subtitle (only in translation). Made by Bedazzle.

program InsertTransaSubs;

// -----------------------------------------------------------------------------

var
  n: Integer;
  i: Integer;
  j: Integer;

  txt: String;

begin
  n := GetSubtitleCount-1;

  for i := 0 to n do
  begin
	 if (IsSubtitleSelected(i) = true) then
	 begin
		for j := n downto i+1 do
		begin
		   txt := GetSubtitleTrans(j-1);
		   SetSubtitleTrans(j, txt);
		end;

		SetSubtitleTrans(i+1, '');

		break;
	 end;
  end;
end.