0 Members and 1 Guest are viewing this topic.
Пример использования новых элементов AIMP5 и немного "хитрого" биндинга.
Этот эффект в своих скина я назвал "Радугой", использовался для подсветки индикаторов в УМ. В данном примере панель меняет циклически свой цвет, проходя все оттенки цветового круга.Code: [Select]procedure Execute(var State: Integer);begin FindObject('Panel').Set('Color', HSLToColor(State / 360, 1, 0.5))end;Таймер с периодом 100 мс подключен к скриптовому счётчику с модулем 360. Весь цикл при этом занимает 36 с. Кому-то, возможно, это покажется слишком долго, тогда можно уменьшить модуль счёткика.В этом примере модуль = 36Code: [Select]procedure Execute(var State: Integer);const Step = 10; begin FindObject('Panel').Set('Color', HSLToColor(State * Step / 360, 1, 0.5))end;
procedure Execute(var State: Integer);begin FindObject('Panel').Set('Color', HSLToColor(State / 360, 1, 0.5))end;
procedure Execute(var State: Integer);const Step = 10; begin FindObject('Panel').Set('Color', HSLToColor(State * Step / 360, 1, 0.5))end;
