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;
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;
procedure Execute(var State: Integer);
begin
FindObject('Panel').Set('Color', HSLToColor(State / 360, 1, 0.5))
end;
Таймер с периодом 100 мс подключен к скриптовому счётчику с модулем 360. procedure Execute(var State: Integer);
const
Step = 10;
begin
FindObject('Panel').Set('Color', HSLToColor(State * Step / 360, 1, 0.5))
end;
PS:= FindObject('prvPlayerState');
Pt:= PS.Get('Position'); - текущая позиция в треке
Pm:= PS.Get('PositionMax'); - продолжительность трека
case PS.Get('State') of
'opsStop':
begin
{Ваш код для обработки этого состояния}
end;
'opsPlay':
begin
{Ваш код для обработки этого состояния}
end;
'opsPause':
begin
{Ваш код для обработки этого состояния}
end;
end;
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;
... жаль не проектПроект не секрет, тогда просто это ни у кого интереса не вызвало, да и сейчас, скорее всего, тоже. :-[
Переключение темы по расписанию.Что-то уж больно мудрёно... :-\
У на с же есть в распоряжении провайдер prvSystemTimeДа уж, с провайдером гораздо проще получается
Изменять время лучше всего вращением колеса над меткой.Да, я потому и спрашивал ранее про SliderMasked, просто тут не стал уже делать.
... Да, я потому и спрашивал ранее про SliderMasked, просто тут не стал уже делать.В принципе можно использовать способ ввода, как в Фотошопе (и не только) в числовых полях с двунаправленными стрелочками - протяжкой мыши с зажатой ЛКМ.
| (https://i.imgur.com/VvAW8T2.png) |
|
| (https://i.imgur.com/9poIvVU.gif) |
|
| (https://i.imgur.com/6R7zD6i.gif) |
|
| (https://i.imgur.com/UbHFP3Y.gif) |
|
Пример использования новых элементов AIMP5 и немного "хитрого" биндинга.Спасибо. Думаю пригодится, как начну переходить на 5-ю версию...
Этот эффект в своих скина я назвал "Радугой", использовался для подсветки индикаторов в УМ.
В данном примере панель меняет циклически свой цвет, проходя все оттенки цветового круга.Code: [Select]procedure Execute(var State: Integer);Таймер с периодом 100 мс подключен к скриптовому счётчику с модулем 360.
begin
FindObject('Panel').Set('Color', HSLToColor(State / 360, 1, 0.5))
end;
Весь цикл при этом занимает 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);
var
Vol, Bal: TComponent;
VL, VR: Integer;
begin
Vol:= FindObject('prvVolume');
Bal:= FindObject('prvBalance');
VL:= FindObject('VolumeLeftCounter').Get('Position');
VR:= FindObject('VolumeRightCounter').Get('Position');
Bal.Set('Position', Round(VR-VL)/100);
If VL > VR then
begin
Vol.Set('Position',(VL/100))
end
else
begin
Vol.Set('Position',(VR/100))
end
end;но вот как организовать "обратную связь", чтобы положение ползунков соответствовало состоянию prvVolume и prvBalance, регулируемыми штатными средствами? :-\
Давно мозг сверлила мысль: а как бы разделить регулировку громкости на два регулятора ...Молодец! +1
... но вот как организовать "обратную связь", чтобы положение ползунков соответствовало состоянию prvVolume и prvBalance, регулируемыми штатными средствами? :-\Завести связи с prvVolume.Progress и prvBalance.Progress на тот же коммутатор, только надо модуль срипт. счётчика увеличить воизбежание недоразумений при суммировании.
Молодец! +1Спасибо за "причёску".
Завести связи с prvVolume.Progress и prvBalance.Progress на тот же коммутатор, только надо модуль срипт. счётчика увеличить воизбежание недоразумений при суммировании.
Это просто заблокирует действия пользователя при попытках изменить громкость и баланс. Скрипт немного причесал.
Собственно, самих регуляторов громкости и баланса в скине может и не быть, в примере оставлены для наглядности.
Не совсем понял. Общий скролл громкости от мыши тоже блокирован, на слайдерах Л и П он работает.Вариант с блокировкой неприемлем, поскольку, как я думаю, громкость чаще всего регулируют именно скроллом. Мне нужно положения графических регуляторов (точнее, счётчиков, с ними связанных) синхронизировать со значениями баланса и громкости, изменяемых сторонним воздействием. Ладно, буду ломать мозг дальше...
Вариант с блокировкой неприемлем, поскольку, как я думаю, громкость чаще всего регулируют именно скроллом.А, по-моему, для реального аппарата, где два раздельных регулятора, самое то. Для скинов Hi-Fi тематики это вполне приемлимо, зачем тогда изображать эти регуляторы, если их никто не будет таскать мышкой.
А, по-моему, для реального аппарата, где два раздельных регулятора, самое то. Для скинов Hi-Fi тематики это вполне приемлимо, зачем тогда изображать эти регуляторы, если их никто не будет таскать мышкой.Логично, но предвижу жалобы, что скролл на громкость не работает. С балансом, понятное дело таких проблем не должно быть, однако надо быть последовательным.
Если ты хочешь скроллом регулировать общую громкость, то надо ещё обрабатывать и такие ситуации, когда в одном из каналов уровень упрётся в максимум, а во втором будет меньше, баланс тоже надо соблюдать.Вариант с непараллельной громкостью не проблема, уровень доходит до 100% в канале с большей громкостью и всё. Этот вариант и на биндинге можно реализовать, мысли есть.
Давно мозг сверлила мысль: а как бы разделить регулировку громкости на два регулятора, что имеет место быть в некоторых магнитофонных скинах.Расчет громкости и баланса немного поправил, там получалось, что ползунок левого канала немного менял громкость и в правом канале (и наоборот). Но при логарифмической громкости всё равно будет работать не совсем корректно.
Разделить-то ума хватило, может и коряво,
но вот как организовать "обратную связь", чтобы положение ползунков соответствовало состоянию prvVolume и prvBalance, регулируемыми штатными средствами? :-\
Логично, но предвижу жалобы, что скролл на громкость не работает.Ну, никто же не жалуется, что та же перемотка от клавиатуры не работает.
Расчет громкости и баланса немного поправил, там получалось, что ползунок левого канала немного менял громкость и в правом канале (и наоборот). Но при логарифмической громкости всё равно будет работать не совсем корректно.Спасибо! Принцип, насколько я успел понять, совсем иной. Буду вникать.
Добавил расчет значения счетчиков, блокировку от зацикливания сделал на таймерах - вроде работает.
Ну, никто же не жалуется, что та же перемотка от клавиатуры не работает.А должна?
Спасибо! Принцип, насколько я успел понять, совсем иной. Буду вникать.Есть еще вариант без таймеров - разделить каждый слайдер на два слайдера: прозрачный, который будет управлять громкостью и балансом, а под ним видимый, но недоступный пользователю, для "обратной связи". Но там свои загвоздки могут быть.
Есть еще вариант без таймеров - разделить каждый слайдер на два слайдера: прозрачный, который будет управлять громкостью и балансом, а под ним видимый, но недоступный пользователю, для "обратной связи". Но там свои загвоздки могут быть.Пока только одна загвоздка: при переключении на скин с раздельной регулировкой громкости из любого другого, положения слайдеров соответствуют скриптам, а фактические громкость и баланс - настройкам предыдущего скина, пока не сдвинешь како-либо из слайдеров. Думаю, в OnLoadedScript надо прописать что-то типа обновления этих данных...
Хот-кеи по умолчанию Ctrl+Стрелки. Сам трек перематывается, бобины не крутятся.Да, есть такой косяк. Правда, я хоткеями пользуюсь крайне редко (в основном включение/выключение шаффла), о перемотке даже не помышлял, за ненадобностью.
Да, есть такой косяк.Это не косяк, а невозможность реализовать такое поведение. Я когда-то предлагал сделать что-то типа KeyHandler, чтоб скин мог обрабатывать хоткеи, но той темы уже нет.
Правда, я хоткеями пользуюсь крайне редко (в основном включение/выключение шаффла)...А кто-то, наверное, только ими и пользуется. Я, вот, регулировкой громкости ни в плеере, ни в системе не пользуюсь, только в усилителе мощности, пультом, поскольку только там тонкомпенсация может работать правильно.
... о перемотке даже не помышлял, за ненадобностью.А зачем тогда вообще надо было реализовывать перемотку? А если дальше рассуждать, то тогда зачем изобретать подобные скины? Поставь обои на рабочий стол со всякой аудиотехникой, запусти плеер с дефолтным скином - то же самое удовольствие получишь.
А зачем тогда вообще надо было реализовывать перемотку? А если дальше рассуждать, то тогда зачем изобретать подобные скины? Поставь обои на рабочий стол со всякой аудиотехникой, запусти плеер с дефолтным скином - то же самое удовольствие получишь.Нет, в имитаторах главная фишка в ответной реакции на твои действия. Поэтому всякие анимашки юзеру в радость, и чем больше фич, имитирующих поведение реального аппарата, тем прикольнее! Вот я в новом своём скине и извращаюсь (надеюсь, к Новому году успею).
Думаю, в OnLoadedScript надо прописать что-то типа обновления этих данных...Поправил
ПоправилВот это Супер!