Нехитрые полезности и идеи для создателей скинов

[Black_AVP_Bim]

Много полезных вещей уже утонуло в теме [FAQ] Вопросы по работе в AIMP SkinEditor v3.50+, да и в других тоже, порой трудно что-либо найти, а новичкам даже подобрать ключевые слова для поиска. В справке по редактору скинов тоже пока много чего нет, да и невозможно все осветить нюансы работы над скином, равно, как и примеры скриптов на все случаю жизни.
Предлагаю выкладывать сюда полезные идеи и нетривиальные решения каких-либо проблем. Свелые головы на форуме ещё не перевелись.
Но вопросы, всё же, лучше задавать в вышеупомянутой теме, дабы и эта тема не превратилась в свалку.
Как с помощью слайдеров изменять раздельно оттенок, насыщенность и прозрачность элементов
Простейшая реализация ColorPicker-а
Изменение параметров шрифтов
Как сбросить все полосы эквалайзера в 0 dB нажатием кнопки
Как сбросить все эффекты DSP
Эффект циклического изменения цвета элементов
Работа с провайдером prvPlayerState
Обработка событий, ScriptableEventHandler
Текстовый ввод параметра
Анимация динамиков на основе TASEAnimator (AIMP 4.6+)
Скриптовая реализация Track Preview и Repeat AB
Color Picker a la Photoshop
Визуализация функции Repeat AB на основе Bliss Lite
Bliss Compact with Track Preview
Модификация на "Визуализация функции Repeat AB"
Переключение темы по расписанию
Автоперключение тем в стандартном Bliss4k по расписанию
Ввод числовых параметров перемещением мыши
Пример совместного использования LayoutTabbedGroup и TabControl
Пример использования гиперссылок в скине
Плавное изменение прозрачности элемента с помощью таймера
Пример использования новых элементов AIMP5 и немного "хитрого"  биндинга

[Black_AVP_Bim]

Пример работы со цветом. Как с помощью слайдеров изменять раздельно оттенок, насыщенность и прозрачность элементов.

[Black_AVP_Bim]

Простейшая реализация ColorPicker-а. Может пригодиться в диалогах настройки собственного скина.

[Black_AVP_Bim]

Многие испытывают трудности с изменением параметров шрифтов. Пример для шрифтов в плейлисте:

Code: [Select]

procedure Execute(var State: Integer);
var
  PL: TComponent;
 
begin 
  PL:= FindObject('Playlist');
  PL.Set('Resources.ItemLine1Fonts.Normal.Name', 'Arial');
  PL.Set('Resources.ItemLine1Fonts.Normal.Color', $FF0000);
  PL.Set('Resources.ItemLine1Fonts.Normal.Height', 14);
  PL.Set('Resources.ItemLine1Fonts.Normal.Style', '[fsBold, fsItalic]');
end;

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

[Black_AVP_Bim]

Как сбросить все полосы эквалайзера в 0 dB нажатием кнопки.

Code: [Select]

procedure Execute(var State: Integer);
var
  N: Integer;
 
begin
  with FindObject('prvEqualizer') do
    for N:= 1 to 18 do
      Set('BandValue' + IntToStr(N), 0);
end;

Кнопка должна быть связана со скриптовым счётчиком, выражение в связи: Value+1, модуль счётчика - по умолчанию (2).

[Black_AVP_Bim]

Этот эффект в своих скина я назвал "Радугой", использовался для подсветки индикаторов в УМ.
В данном примере панель меняет циклически свой цвет, проходя все оттенки цветового круга.

Code: [Select]

procedure Execute(var State: Integer);
begin
  FindObject('Panel').Set('Color', HSLToColor(State / 360, 1, 0.5))
end;
Таймер с периодом 100 мс подключен к скриптовому счётчику с модулем 360.
Весь цикл при этом занимает 36 с. Кому-то, возможно, это покажется слишком долго, тогда можно уменьшить модуль счёткика.

В этом примере модуль = 36

Code: [Select]

procedure Execute(var State: Integer);
const
  Step = 10;
 
begin
  FindObject('Panel').Set('Color', HSLToColor(State * Step / 360, 1, 0.5))
end;


[Black_AVP_Bim]

Работа с провайдером prvPlayerState.
Из скриптов доступны свойства: State, Position, PositionMin, PositionMax
Возвращаемые значения State (тип - String): 'opsStop', 'opsPause', 'opsPlay'
Position, PositionMin, PositionMax - тип Double. Position - текущая позиция в треке при воспроизведении, PositionMin и PositionMax определяют диапазон для Position.

Code: [Select]

  PS:= FindObject('prvPlayerState');
  Pt:= PS.Get('Position'); -  текущая позиция в треке
  Pm:= PS.Get('PositionMax'); - продолжительность трека

Обработка состояний плеера:

Code: [Select]

  case PS.Get('State') of
    'opsStop':
      begin
          {Ваш код для обработки этого состояния}
      end; 
    'opsPlay':
      begin
          {Ваш код для обработки этого состояния}
      end; 
    'opsPause':
      begin
          {Ваш код для обработки этого состояния}
      end; 
  end;


[Black_AVP_Bim]

Попытка имитации снегопада. Можно расценивать как шутку в свете приближающегося Нового года.
Вместо снежинок могут быть и капли дождя, стекающие по BluredGlass - у кого на что фантазии хватит.

[Black_AVP_Bim]

Как сбросить все эффекты DSP.

Достаточно подключить кнопку к скиптовому счётчику, содержащему следующий код:

Code: [Select]

procedure Execute(var State: Integer);
begin
  FindObject('prvTempo').Set('Position', 1);
  FindObject('prvSpeed').Set('Position', 1);
  FindObject('prvReverb').Set('Position', 0);
  FindObject('prvFlanger').Set('Position', 0);
  FindObject('prvPitch').Set('Position', 0);
  FindObject('prvTrueBass').Set('Position', 0);
  FindObject('prvEcho').Set('Position', 0);
  FindObject('prvEnhancer').Set('Position', 0);
  FindObject('prvChorus').Set('Position', 0);
  FindObject('prvBalance').Set('Position', 0)
end;

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



Правда, есть некоторые нюансы, связанные с тем, что биндинг работает только с целочисленными значениями. 

[Black_AVP_Bim]

Пример обработки событий. В качестве подопытного контрола выбран TASETextDisplay, имеющий все доступные события. В принципе, это может быть любой другой элемент.

[Aleksandr009]

Текстовый ввод параметра.

Пример со сменой шрифта.
В примере используется элемент TASESearchEdit и 3 скрипта. Один сменяет шрифт в репозитории ресурсов и сохраняет его в файл настроек обложки, второй стоит в событие OnLoaded (В главном окне) чтобы при перезапуске плеера шрифт автоматически применялся.  И последний служит просто для сброса шрифта.

Также на основе этого примера в обложку можно вводить многие текстовые данные, например цвет.

[Black_AVP_Bim]

Анимация динамиков на основе TASEAnimator (AIMP 4.6+)
В основе идеи - аниматор диффузора с "обратной связью", т.е. он сам себя останавливает при достижении последнего кадра. Кадров всего 4: выдвинутое состояние (1), втянутое (3) и  два кадра нейтрального положения (2 и 4).
ScriptableVisualizationHandler получает информацию со спектрума, находит максимум в указанном диапазоне частот и сравнивает его со значением, заданным регулятором чувствительности и при превышении этого порога запускает аниматор с первого кадра.
Подробности во вложенном проекте.

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

array [0..AIMP_VISUAL_SPECTRUM_MAX - 1] of Single;

Распределение значений: [0.0 .. 100.0 .. бесконечность]

Краткий список соответствия индекса массива частоте сигнала:
0 ~ 20 Гц
10 ~ 200 Гц
20 ~ 400 Гц
30 ~ 630 Гц
40 ~ 870 Гц
50 ~ 1.1 KГц
60 ~ 1.4 KГц
70 ~ 1.7 KГц
80 ~ 2.1 KГц
90 ~ 2.5 KГц
100 ~ 3.0 KГц
110 ~ 3.5 KГц
120 ~ 4.0 KГц
130 ~ 4.5 KГц
140 ~ 5.2 KГц
150 ~ 6.0 KГц
160 ~ 6.7 KГц
170 ~ 7.6 KГц
180 ~ 8.5 KГц
190 ~ 9.6 KГц
200 ~ 11.0 KГц
210 ~ 12.0 KГц
220 ~ 13.5 KГц
230 ~ 15.0 KГц
240 ~ 16.8 KГц
255 ~ 20.0 KГц

(Костаната AIMP_VISUAL_SPECTRUM_MAX = 256)

[ColorCode]

"Прослушивание участка" - скриптовый вариант Track Preview для прослушивания определённого участка дорожек.

"Повтор отрезка АБ" - графические метки для встроенной функции "Повтор отрезка А-Б".

P.S. Упс, а вот это лучше -> ссылка (жаль не проект)

[Black_AVP_Bim]

Ещё одна реализация Color Picker (AIMP 4.6). Старался максимально приблизить поведение к привычному колорпикеру в Photoshop.
Пришлось несколько покостылить по причине того, что нельзя при вызове хендлера передать ему параметры.
Во вложении пример диалога кастомизации с вызовом Color Picker'a. Все парамеры цвета элементов сохраняются в ini-файле скина.


Добавлен вариант с регулировкой прозрачности.
Файл проекта обновлён.

[Black_AVP_Bim]

... жаль не проект

Проект не секрет, тогда просто это ни у кого интереса не вызвало, да и сейчас, скорее всего, тоже. 
Визуализация функции Repeat AB.