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

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

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

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

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

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

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

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

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


// Delete subtitle (only from translation). Made by Bedazzle.

program ShiftSubs;

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

var
  n: Integer;
  s: Boolean;
  i: Integer;
  it: Integer;
  ft: Integer;

  curr: Integer;
  txt: String;

begin
  n := GetSubtitleCount;

  s := false;

  for i := 1 to GetSubtitleCount do
  begin
	 if (s = false) then
	 begin
		if (IsSubtitleSelected(i) = true) then
		begin
		   curr := i;
		   break;
		end;
	 end;
  end;

  for i := curr to GetSubtitleCount-1 do
  begin
	 txt := GetSubtitleTrans(i+1);
	 SetSubtitleTrans(i, txt);
  end;
end.

0

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