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;