Русские субтитры: Копирование оригинала в перевод - Русские субтитры

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

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

Копирование оригинала в перевод

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

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

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

Копирование выделенных субтитров оригинала поверх перевода.

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

// Copy text to translation. Made by Bedazzle.

program CopyToTransa;

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

var
  n: Integer;
  i: Integer;

  txt: String;

begin
  n := GetSubtitleCount;

  for i := 0 to n-1 do
  begin
	 if (IsSubtitleSelected(i) = true) then
	 begin
		txt := GetSubtitleText(i);
		SetSubtitleTrans(i, txt);
	 end;
  end;
end.

0

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