[FAQ] Вопросы по работе в AIMP SkinEditor v3.50+

[Black_AVP_Bim]

А что значит тогда в твоём вопросе:

... при применении скина ...

чем оно отличается от загрузки?

[Zhenya]

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

Я это понимаю. Просто пробую разными способами сделать кнопку, сжимающую окно до минимума.
Меня интересует, проще это сделать никак нельзя? Только ручной заменой макс. размеров корневого контейнера окна на значения из мин. размеров?

А что значит тогда в твоём вопросе:чем оно отличается от загрузки?

Ничем, просто я по разному написал.

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

Позже распишу подробнее, с примером.

[Tarik]

Меня интересует, проще это сделать никак нельзя? Только ручной заменой макс. размеров корневого контейнера окна на значения из мин. размеров?

Можно попробовать запрещать AllowResize.

[Zhenya]

Можно попробовать запрещать AllowResize.

Работает, спасибо.
Код, конечно, не принципиально сокращается в объёме, ну хоть писать меньше и проще:

Code: [Select]

procedure Execute(var State: Integer);
var
  container, B_max : TComponent;
  B_max_bindings   : TASEBindings;
  window_is_max    : boolean;
   
begin
  container := FindObject('liMain');
  B_max     := FindObject('cmfButtonMaximize');
   
  if container <> nil AND B_max <> nil then
    begin
      B_max_bindings := B_max.Get('Bindings');
     
      //восстановление окна, если оно развёрнуто на весь экран
      window_is_max := B_max_bindings.GetDataAsBoolean('State');
      if window_is_max then
        B_max_bindings.ExecuteAction('Action');     

      container.BeginUpdate;
      container.Set('AllowResizeByHeight', 'False');
      container.Set('AllowResizeByWidth', 'False');
      container.EndUpdate;
     
      container.BeginUpdate;     
      container.Set('AllowResizeByHeight', 'True');
      container.Set('AllowResizeByWidth', 'True');
      container.EndUpdate;
    end; 
end;

Вообще, да, понятно, что тут одной командой не сделать сжатие окна. У окон ведь никогда не было задаваемых скинмейкером размеров. Главное, что это вообще можно сделать.

[Zhenya]

Задать из скрипта ширину/высоту контейнера никак нельзя?

[Zhenya]

Я просто не могу понять, почему в одном случае при применении скина скрипт со счётчиком равным 1 срабатывает (например, в скрипте открывается окно), а в другом - нет (скрипт меняет размеры контейнеров)?

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

Позже распишу подробнее, с примером.

Это можно обойти, оказывается. Просто прямо в скрипте обнулять State счётчика скрипта.

Задать из скрипта ширину/высоту контейнера никак нельзя?

И это, в принципе, можно сделать обходными путями. Тем же изменением SizeMinimal и SizeMaximal.

[Kibermanick]

Как сделать прогресс подгрузки онлайн контента.

[Zhenya]

Как сделать прогресс подгрузки онлайн контента.

Какого онлайн контента?

[Soolo]

Как сделать прогресс подгрузки онлайн контента.

Только в виде вэйвформ дисплея

[Kibermanick]

Какого онлайн контента?

Я где-то на форуме читал, что-то про вторую полосу прогресса. Как везде в интернете. Она обычно серая.

[Kibermanick]

Только в виде вэйвформ дисплея

Что это?

[Tarik]

Я где-то на форуме читал, что-то про вторую полосу прогресса. Как везде в интернете. Она обычно серая.

Тема-предложение - 3-й фрейм Progress/Volume бара

Что это?

TASEWaveFormDisplay. Но все равно это не решение.

[Kibermanick]

Это оказывается еще предложение. ну, спасибо за внимание.

[Zhenya]

Как обратиться к свойствам TASEBindingLink? По справке не понял.
Нужно сначала получить доступ к TASEBindings? Потом через LinkFind?

[Zhenya]

Как обратиться к свойствам TASEBindingLink? По справке не понял.
Нужно сначала получить доступ к TASEBindings? Потом через LinkFind?

Всё, разобрался:

Code: [Select]

procedure Execute(var State: Integer);
var
  button              : TComponent;
  button_bindings     : TASEBindings;
  button_binding_link : TComponent;
  str1, str2          : string;
 
begin
  button := FindObject('B_gw_maximize');

  if (button = nil) then
    Exit;
 
  button_bindings := button.Get('Bindings');
  button_binding_link := button_bindings.LinkFind('Action');
  str1 := button_binding_link.Get('Expression');
  str2 := button_binding_link.Get('SourcePin');

  ShowMessage(str1);
  ShowMessage(str2);
end;

Получается тип возвращаемого значения указан неправильно - TASEBindingLink вместо TComponent:

Code: [Select]

function <TASEBindings>.LinkFind(const PinName: string): TASEBindingLink

И у метода LinkAdd тоже, наверно.