Русские субтитры: Добавление копирайта - Русские субтитры

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

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

Добавление копирайта

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

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

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

Добавление в конец субтитров копирайта, с указанием текущей даты.

// Insert copyright. Made by Bedazzle.

program Copyright;

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

var
  n: Integer;
  final: Integer;

  txt: String;

begin
  if IsOriginalLoaded = False then EnableWorkArea;

  n := GetSubtitleCount;

  final := GetSubtitleFinalTime(n-1);

  txt := 'Checked with Subtitle Workshop';

  txt := txt + ''#13''#10 + FormatDateTime('dd.mm.yyyy', now);

  InsertSubtitle(n, final+5000, final+10000, txt, txt);
end.

0

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