0 Members and 1 Guest are viewing this topic.
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;
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, просто тут не стал уже делать.
Очень хотелось бы возможность менять тему на светленькую ( а если совсем наглеть то и настройки фонового цвета и цвета шрифта)
- Change the color of album groupe name ? Actually the grey is very simlilar to the background and make hard to read the name. Maybe an option in pannel option of skin ?
Обложка очень нравится, жаль до идеала не дотягивает по нескольким пунктам:1. Нельзя растянуть по ширине (см. скрин)2. Показывается мало плейлистов3. Хотелось бы уменьшить вертикальные зазоры
3. 4.
Приветствую! Спасибо за обложку!И такая просьба. У меня ноут, экран небольшой и название 3-го по списку плэйлиста постоянно обрезается
Здрасти. А можно сделать что-то типа компактного режима? Пикрелейтед.
It would be nice if the next version had these features!1. Visualization of the waveform of the track in execution and of the following trace, of large dimensions as well as possibility of zooming of the waveform;
- Custom image for background of top header is possible ? Or if is too long or difficult, more choice of background. But i like actual girls.
Пример использования новых элементов 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;
