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

[Kibermanick]

ELECTRON!CK такого решения хватит или надо подробнее?

[Black_AVP_Bim]

Заставили, таки, старика залезть в редактор. Всё намного проще (см. влож.)

[Kibermanick]

Заставили, таки, старика залезть в редактор. Всё намного проще (см. влож.)

Я не стал так делать потому что не был уверен можно ли менять позицию скрипткаунтера из самого себя

[Kibermanick]

А вообще я реализовал тз если можно так сказать, электроник сам пытался написать скрипт который реализует каунтер с тремя позициями и анализирует яркость цвета.

[Black_AVP_Bim]

Я не стал так делать потому что не был уверен можно ли менять позицию скрипткаунтера из самого себя

В некоторых скриптах нужно так делать, в данном случае скрипт просто не будет срабатывать при смене трека, если все треки подряд с каверами.

[ELECTRON!CK]

Заставили, таки, старика залезть в редактор. Всё намного проще (см. влож.)

Спасибо подключившимся к моей проблеме! Круто, но это еще не всё тут нужна зависимость от выбранной темы (в ручную и автоматом) во время прослушивания трека соответственно событие

[Kibermanick]

Спасибо подключившимся к моей проблеме! Круто, но это еще не всё тут нужна зависимость от выбранной темы (в ручную и автоматом) во время прослушивания трека соответственно событие

Это надо делать вызов скрипта из другого скрипта, в справке есть пример. Надо копать в этом направлении. Этот скрипт уже можно вызывать сменой позиции режима темы.

[Kibermanick]

Спасибо подключившимся к моей проблеме! Круто, но это еще не всё тут нужна зависимость от выбранной темы (в ручную и автоматом) во время прослушивания трека соответственно событие

У тебя как реализован выбор режима? Ты с нуля его делал или взял из стандартного скина?

[Black_AVP_Bim]

Тут ещё дело осложняется тем, что пользователь может выбрать в настройках плеера свою тему или "Автоматически", тогда все эти плюшки пойдут коту под хвост.
Всё это будет работать только при дефолтной цветовой схеме в плеере.

[ELECTRON!CK]

Тут ещё дело осложняется тем, что пользователь может выбрать в настройках плеера свою тему или "Автоматически", тогда все эти плюшки пойдут коту под хвост.
Всё это будет работать только при дефолтной цветовой схеме в плеере.

P.S. я такую бороду делал работает как то но криво, почему то только на белый фон реагирует только

Code: [Select]

procedure SetupResource(const AName, ASuffix: string);
var
  Res: TComponent;
begin
  Res := FindResource(AName);
  if Res <> nil then
    Res.Set('ID', AName + '_' + ASuffix);
end;

{ Переключение цветов }
procedure SetupTheme(const ASuffix: string);
begin
  SetupResource('AlbumArt.Colors.Back', ASuffix);
  SetupResource('AlbumArt.Colors.Front', ASuffix);                                               
end;                                       

procedure Execute(Sender, Arguments: TComponent);
var
  H, S, L: Single;
  State: Integer;
  Res, Theme_Trigger: TComponent;
  TriggerValue: Integer;
begin
  BeginUpdateResources;
  try

    Res := FindResource('AlbumArt.Colors.Background');
    Theme_Trigger := FindObject('Theme_Trigger');

    if (Res <> nil) and (Theme_Trigger <> nil) then
    begin
      ColorToHSL(Res.Get('Value'), H, S, L);
     
      TriggerValue := Theme_Trigger.Get('Position');   //тема
     

      if (L >= 0.0) and (L <= 0.2) and (TriggerValue = 1) then
      begin
        State := 0; // Темная обложка + счетчик в режиме темной темы
      end
      else if (L >= 0.8) and (L <= 1.0) and (TriggerValue > 1) then
      begin
        State := 1; // Светлая обложка + счетчик в режиме светлой темы
      end     
      else
      begin
        State := 2; // Средняя обложка или несоответствие счетчику
      end;


      if (State = 0)  or (State = 2) then
        SetupTheme('0')
      else
        SetupTheme('1');
    end;
  finally
    EndUpdateResources;
  end;
end;

[Kibermanick]

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

[Kibermanick]

Theme_Trigger должен возвращать либо 0 либо 1, если он возвращает три значения значит это не то. у тебя там (TriggerValue > 1) подразумевает третье значение. Его либо нету вот оно и работает только со светлой либо не туда смотрим в целом.

[Black_AVP_Bim]

Code: [Select]

procedure SetupResource(const AName, ASuffix: string);
var
  Res: TComponent;
begin
  Res := FindResource(AName);
  if Res <> nil then
    Res.Set('ID', AName + '_' + ASuffix);
end;

{ Переключение цветов }
procedure SetupTheme(const ASuffix: string);
begin
  SetupResource('AlbumArt.Colors.Back', ASuffix);
  SetupResource('AlbumArt.Colors.Front', ASuffix);                                               
end;                                       

procedure Execute(Sender, Arguments: TComponent);
var
  H, S, L: Single;
  State: Integer;
  Res, Theme_Trigger: TComponent;
  TriggerValue: Integer;
begin
  BeginUpdateResources;
  try

    Res := FindResource('AlbumArt.Colors.Background');
    Theme_Trigger := FindObject('Theme_Trigger');

    if (Res <> nil) and (Theme_Trigger <> nil) then
    begin
      ColorToHSL(Res.Get('Value'), H, S, L);
     
      TriggerValue := Theme_Trigger.Get('Position');   //тема
     

      if (L >= 0.0) and (L <= 0.2) and (TriggerValue = 1) then
      begin
        State := 0; // Темная обложка + счетчик в режиме темной темы
      end
      else if (L >= 0.8) and (L <= 1.0) and (TriggerValue > 1) then
      begin
        State := 1; // Светлая обложка + счетчик в режиме светлой темы
      end     
      else
      begin
        State := 2; // Средняя обложка или несоответствие счетчику
      end;


      if (State = 0)  or (State = 2) then
        SetupTheme('0')
      else
        SetupTheme('1');
    end;
  finally
    EndUpdateResources;
  end;
end;

Нет смысла проверять L >= 0.0, оно не может быть отрицательным, равно, как и L <= 1.0, - больше 1 тоже быть не может.
Так же можно упустить операторные скобки, поскольку между ними одно выражение:

Code: [Select]

      if  (L <= 0.2) and (TriggerValue = 1) then
        State := 0 // Темная обложка + счетчик в режиме темной темы
      else
        if (L >= 0.8) and (TriggerValue > 1) then
          State := 1 // Светлая обложка + счетчик в режиме светлой темы
        else
          State := 2; // Средняя обложка или несоответствие счетчику


[Kibermanick]

Как вообще получить значение результирующего режима посылаемого виндой? Если мы явно указываем темную или светлую тут всё понятно а если выбираем авто откуда считывать значение 0 или 1?

[Black_AVP_Bim]

В справке вот что по этому поводу написано:

Цвет акцента приложения не применяется к цветам, посчитанным на основе обложке альбома, но может применяться к значениям по умолчанию - это поведение регулируется свойством AllowColoration