[Bodkin]

НуПогоди (07 Февраль 2010 - 16:55) писал:

Понадобились кое-какие детали для скрипта и выяснилось, в который уже раз, что на новом IPB-движке спойлер-таг не работает и до их содержимого никак не добраться.

Тут в теме поправил. Где ещё не добраться?

[НуПогоди]

Bodkin (15 Февраль 2010 - 20:05) писал:

Тут в теме поправил. Где ещё не добраться?

Странно! во втором посте этой темы спойлер открывается, а во всех остальных (#4, #6, #8, #10, #12) - нет. Может, мой FF3.0.5 глючит? Или, может быть, там какие-то хитрые двойные спойлеры вставлены?
ПС Вообще-то надо будет на досуге всё переписать куда-нибудь без спойлеров - головная боль при каждом апгрейде форума.

[Bodkin]

НуПогоди (16 Февраль 2010 - 10:36) писал:

Странно! во втором посте этой темы спойлер открывается, а во всех остальных (#4, #6, #8, #10, #12) - нет. Может, мой FF3.0.5 глючит? Или, может быть, там какие-то хитрые двойные спойлеры вставлены?
ПС Вообще-то надо будет на досуге всё переписать куда-нибудь без спойлеров - головная боль при каждом апгрейде форума.

И там обновил, не заметил вчера, что это спойлеры. Раньше у нас на IPB 2 стоял отдельный мод со своим форматом тега спойлера, сейчас в IPB 3 мод не нужен, но формат тегов поменялся.

[НуПогоди]

Bodkin (16 Февраль 2010 - 11:54) писал:

И там обновил, не заметил вчера, что это спойлеры. Раньше у нас на IPB 2 стоял отдельный мод со своим форматом тега спойлера, сейчас в IPB 3 мод не нужен, но формат тегов поменялся.

Теперь всё отлично. Спасибо. Если вечером руки дойдут, соберу всю выложенную там информацию и оформлю в приличном виде - скажем, в виде пдф (для изучения в оффтопе)

[BedaZzle]

Так, похоже, я разобрался как добавлять поддержку новых функций в паскалевские скрипты. На сегодня можно идти спать с чистой совестью.

[НуПогоди]

BedaZzle (16 Сентябрь 2011 - 23:45) писал:

Так, похоже, я разобрался как добавлять поддержку новых функций в паскалевские скрипты.

"Новые" функции? Может, ты имел в виду доступ из скриптов к функциям, определённых в SW-исходниках? Например:

НуПогоди (07 Февраль 2010 - 15:55) писал:

...как программно задать функцию скроллинга VirtualTreeView к титру №ХХ (аналогично команде Ctrl-G, только без интерактивного окошка для введения номера титра)?

[BedaZzle]

НуПогоди (17 Сентябрь 2011 - 10:48) писал:

"Новые" функции? Может, ты имел в виду доступ из скриптов к функциям, определённых в SW-исходниках? Например:

Да, в таком аксепте.

[НуПогоди]

Попробовал запускать кое-какие скрипты в свежей версии 2.52бета - той, где добавлена функция GoToLineNumber(N). Кратко:

• Функция GoToLineNumber(N) работает так, как описано в example.pas - спасибо.
• Появились проблемы при установке фокуса на VirtualTreeView - раньше (SW2.51) всё отлично работало по TWinControl(Form.Components[47]).SetFocus. Сейчас все зависит от того, включена ли при компиляции скрипта мода VideoPreview - если включена, то VirtualTreeView=Components[46] (видимо удалён один из элементов; вероятно, пункт меню, отвечающий за обновление версии Воркшопа). Отключаю превью, и только что работавший скрипт начинает ругаться, что я пытаюсь установить фокус на disabled or invisible window.

Есть идеи, как это обойти, т.е. сделать скрипт с работающим с обеими версиями SW вне зависимости от моды VideoPreview?

PS Чтобы было понятнее

Цитата

program test;
var Form:TForm;
begin
Form:=TForm(Application.MainForm);
TWinControl(Form.Components[46]).SetFocus;
GoToLineNumber(GetSubtitleCount);
end.

[BedaZzle]

НуПогоди (18 Сентябрь 2011 - 00:40) писал:

(видимо удалён один из элементов; вероятно, пункт меню, отвечающий за обновление версии Воркшопа).

Он не удалён, а пока просто visible := FALSE;
попробовал вернуть, скомпилировал, запустил, - ругается.

Завтра буду смотреть подробнее, что не нравится.

[BedaZzle]

а откуда магическое число 46 взялось?
у меня на версии 2.51 воркшоп ругается что с видео, что без, но сообщение об ошибке - пустое окошко

Прикрепленные файлы

•  controls.png (3,59К)
  Количество загрузок:: 6

[НуПогоди]

BedaZzle (18 Сентябрь 2011 - 01:31) писал:

а откуда магическое число 46 взялось?

Для версии 2.51 магическое число = 47 (не зависит от videopreviewmode). Про него я, кажется, где-то когда-то на урусофтовском форуме вычитал... не уверен... надо будет погуглить... [EDIT] нашёл
Версия 2.52b: свежеобнаруженное магическое число = 48 (тоже не зависит от videopreviewmode), но отличается от прежней версии.

BedaZzle (18 Сентябрь 2011 - 01:31) писал:

у меня на версии 2.51 воркшоп ругается что с видео, что без, но сообщение об ошибке - пустое окошко

скрипт "Чтобы было понятнее" для канонической версии 2.51 (должен запускаться для любого videopreviewmode и переносить фокус с любого элемента на VirtualTreeView).

Цитата

program test;
var Form:TForm;
begin
Form:=TForm(Application.MainForm);
TWinControl(Form.Components[47]).SetFocus;
// MsgBox('VirtualTreeView is Focused!','Ok','','',0);
end.

А если закомментировать строку с SetFocus, то фокус есссно останется там, где был до запуска скрипта...

Итог: похоже, назрела необходимость новой простенькой функции для скриптов function SW_Version : string. A уж исходя из стринга, который она будет возвращать, можно будет впоследствии подгонять старые версии скриптов под новые версии SW.

Сообщение отредактировал НуПогоди: 18 Сентябрь 2011 - 15:31

[BedaZzle]

НуПогоди (18 Сентябрь 2011 - 10:24) писал:

Итог: похоже, назрела необходимость новой простенькой функции для скриптов function SW_Version : string. A уж исходя из стринга, который она будет возвращать, можно будет впоследствии подгонять старые версии скриптов под новые версии SW.

Добавить её могу, только вот толку, если 2.51 её понимать не научится.

[НуПогоди]

BedaZzle (18 Сентябрь 2011 - 16:11) писал:

Добавить её могу, только вот толку, если 2.51 её понимать не научится.

Может, попросту изменить caption главного окна? в 2.51 он как известно "Subtitle Workshop" или "Subtitle Workshop - Filename", а в новой пусть будет, скажем, "Subtitle Workshop 2.5Х - Filename". А уж из скрипта этот caption прочесть - дело плёвое...

Или, если очень уж не хочется "портить" традиционный интерфейс, то можно дописать в SubtitleWorkshop.ini строку с версией... если строки типа Version=2.5X в нём не окажется, значит версия <2.52.

[BedaZzle]

НуПогоди (18 Сентябрь 2011 - 18:10) писал:

Может, попросту изменить caption главного окна? в 2.51 он как известно "Subtitle Workshop" или "Subtitle Workshop - Filename", а в новой пусть будет, скажем, "Subtitle Workshop 2.5Х - Filename". А уж из скрипта этот caption прочесть - дело плёвое...

Версия в заголовке уже светится, специально чтобы 2.52 было легче отличать от старого 2.51.
Поддержку GetSWVersion в скриптах добавил.

НуПогоди (18 Сентябрь 2011 - 18:10) писал:

Или, если очень уж не хочется "портить" традиционный интерфейс, то можно дописать в SubtitleWorkshop.ini строку с версией... если строки типа Version=2.5X в нём не окажется, значит версия <2.52.

В ини-файле версию хранить не самая лучшая идея.

[BedaZzle]

НуПогоди (18 Сентябрь 2011 - 00:40) писал:

Появились проблемы при установке фокуса на VirtualTreeView - раньше (SW2.51) всё отлично работало по TWinControl(Form.Components[47]).SetFocus.

Не зависящий от версии Воркшопа метод. К сожалению, избавиться от 1000 простыми методами пока не получилось.

program test;
var 
  Form: TForm;
  i : Integer;
begin
  Form := TForm(Application.MainForm);

  for i := 0 to 1000 do
    if Form.Components[i].Name =  'lstSubtitles' then
    begin
      TWinControl(Form.Components[i]).SetFocus;
      break;
    end;
end.

[НуПогоди]

BedaZzle (18 Сентябрь 2011 - 22:51) писал:

Не зависящий от версии Воркшопа метод. К сожалению, избавиться от 1000 простыми методами пока не получилось.

Идея ясна, спасибо. Я бы искал как-то так

while Form.Components[i].Name<>'lstSubtitles' do i:=i+1;
TWinControl(Form.Components[i]).SetFocus;

ПС Даёшь честное пионерское не менять имена уже существующих компонентов?

[BedaZzle]

НуПогоди (19 Сентябрь 2011 - 09:27) писал:

Идея ясна, спасибо. Я бы искал как-то так

while Form.Components[i].Name<>'lstSubtitles' do i:=i+1;
TWinControl(Form.Components[i]).SetFocus;

ПС Даёшь честное пионерское не менять имена уже существующих компонентов?

Даю.
И твой цикл красивее, да.