Русские субтитры: Добавление субтитра (только в переводе) - Русские субтитры

Перейти к содержимому

Страница 1 из 1
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

Добавление субтитра (только в переводе)

#1 Пользователь офлайн   BedaZzle Иконка

  • Иконка
  • Отправить ЛС
  • Группа: Admin
  • Сообщений: 2 987
  • Регистрация: 22 Октябрь 02
  • Страна:
  • Прислал(a) субтитров: 98
  • Своих переводов: 16

Отправлено 17 Апрель 2007 - 02:00

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

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


// 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.

0

Страница 1 из 1
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему