7themes (All-In-One) [AIMP4.51]

[Тень]

7Themes Тень | 2020-01-04 | 90.2 MB | Downloads: 78341 Platform: Windows App Version: v4.60 or newer Form: Horizontal, All-in-One Tone: Dark, Middle Surface: Mat Interface: Thematic Skin based on style of 7themes.su site Download

В скине есть секретки, обнаружив которые, можно расширить возможности скина.

C наступающим новым годом всех)

7themes-проект https://yadi.sk/d/kn-4JBTFe147UA
Облегчённый вариант скина (весит 15 mb) https://yadi.sk/d/FpXSzP76JMLNSg

[Aleksandr009]

Приветствую.
Замечания - в обложке остались не используемые провайдеры и скрипты, на светлых фонах практически не читаем текст(можно добавить в скрипт смены фона изменение цветов шрифта). Снимок прикрепил.

[Тень]

Добрый день. Тот фон, который на картинке, он был задуман как фон для стеклянной поверхности. На картинке я выделил область красным цветом, при нажатии на неё можно выбрать стеклянную поверхность. (картинка снизу прикреплена)
Неиспользуемые провайдеры уберу, хотя они на скин не влияют никак... Цвет шрифта постараюсь поменять, где то в справке об этом написано... Спасибо за идею)

[Тень]

Aleksandr009, исправлено. Но цвет шрифта не стал менять, потому что специально подбирал нейтральные и тёмные фоны для светлого шрифта. Вместо шрифта сделал затемнение светлых фонов, вроде получилось неплохо. Кстати спасибо вам за то, что вы выложили проект G.O.A.T. Без него небыло бы этого скина)
Ссылки в первом посте обновил.

[Black_AVP_Bim]

Скин интересный (+1), но вот эти русские сокращения: "Пле" , "Тек", "Фон"... просто убивают, кого-то, наверное, могут даже ввести в заблуждение. Фон - можно подумать, что это некие операции с фоном. Не лучше ли было применить узнавемые значки?
Посмотрел Ваш проект. На будущее, вместо такой длинной писанины:

procedure Execute(var State: Integer); // Входной/выходной параметр - состояние счётчика провайдера
var 
Container: TComponent; // Объявляем переменную
begin   
Container := FindObject('liMainContent'); // Ищем контейнер, теперь работая с переменной CO - мы будем работать с контейнером 
case State of // Проверяем состояние счётчика провайдера   
0: // Счётчик равен 0, соответствующий первой картинке фона (по умолчанию)
begin             
Container.Set('Texture.ID', '0'); // Серая картинка фона
end;         
1: // Счётчик равен 1, соответствующий второй картинке фона
begin           
Container.Set('Texture.ID', '01'); // Сиреневая картинка фона
end;
2: // Счётчик равен 2, соответствующий третьей картинке фона
begin           
Container.Set('Texture.ID', '02'); // Каричневая картинка фона
end;
3: // Счётчик равен 3, соответствующий четвёртой картинке фона
begin           
Container.Set('Texture.ID', '03'); // Синяя картинка фона
end;
4: // Счётчик равен 4, соответствующий пятой картинке фона
begin           
Container.Set('Texture.ID', '04'); // Зелёная картинка фона
end;
5: // Счётчик равен 5, соответствующий шестой картинке фона
begin           
Container.Set('Texture.ID', '05'); // Металлическая картинка фона
end;
6: // Счётчик равен 6, соответствующий седьмой картинке фона
begin           
Container.Set('Texture.ID', '06'); // Матовостеклянная картинка фона
end;
7: // Счётчик равен 7, соответствующий восьмой картинке фона
begin           
Container.Set('Texture.ID', '07'); // Тёмно-красная картинка фона
end;
8: // Счётчик равен 8, соответствующий девятой картинке фона
begin           
Container.Set('Texture.ID', '08'); // Сине-карбоновая картинка фона
end;
9: // Счётчик равен 9, соответствующий десятой картинке фона
begin           
Container.Set('Texture.ID', '09'); // Чёрно-сиреневая картинка фона
end;             
end;
end;

можно использовать совсем коротенький скрипт (в обнулении полос эквалайзера Вы же такое сделали):

Code: [Select]

//krasiwosti

procedure Execute(var State: Integer);
begin   
   FindObject('liMainContent').Set('Texture.ID', '0' + IntTostr(State))
end;
// только нулевой ресурс надо переименовать в "00"
// аналогично и три других скрипта:

procedure Execute(var State: Integer);
begin   
   FindObject('TCFonContainer').Set('Texture.ID', 'Mfon' + IntTostr(State))
end;

procedure Execute(var State: Integer);
begin   
   FindObject('TCContainer').Set('Texture.ID', 'Mramka' + IntTostr(State))
end;


P.S. Кстати, и аббревиатура AIMP официально существует только на латинице.

[Тень]

"Не лучше ли было применить узнавемые значки?"

Можно и значки сделать, чтобы удобно было для всех. Сделаю многостраничную группу, где можно будет выбирать между сокращениями и значками. В одном контейнере будут сокращения а в другом значки. Спасибо за помощь со скриптом, это мой первый скрипт), писал его по справке, а на Eq0 не обратил внимания, т.к. не мой. Надо будет подправить. С аббревиатурой, то я многостраничными группами сильно увлёкся, уж очень они мне понравились)
Рад, что вам понравился мой скин, старался.

[Soolo]

Скин хорош +
Бяки:
При растягивании скина - эквалайзер остаётся мелким.
Переход лучше сделать без плавности вовсе, чем с такими глюками - будет выглядеть лучше.

[Тень]

Скин хорош +
Бяки:
При растягивании скина - эквалайзер остаётся мелким.
Переход лучше сделать без плавности вовсе, чем с такими глюками - будет выглядеть лучше.

Подправлю.

[Тень]

Готово)
Эквалайзер растянул, но функционал немного урезался. Эффект затухания убрал, т.к. если непрозрачные панели от подмигиваний добавлять, то это надо ещё и скрипты сложные делать, чтобы цвет фона вместе с цветом панели менялся, вообщем массив работы, а если ещё и плейлист перепрограммируют, то придётся возвращать всё обратно. Проще отключить анимацию и ждать с надеждой 
Black_AVP, аббревиатура теперь только английская. Значки сделал, кнопку-переключатель упоминать не стану, где она находится, думаю вы догадаетесь) Интересную головоломку вы со скриптом сделали, упомянули 3 скрипта, а описали только 2, при этом проблемный пропустили. Там оказывается всё просто, после слова должна быть всего 1 цифра, чтобы команда работала правильно. Хотя вначале перепробовал множество неправильных вариантов и под конец нашёл правильный. Так и в жизни происходит...
Вроде всё, ничего не пропустил.

[Black_AVP_Bim]

... Интересную головоломку вы со скриптом сделали, упомянули 3 скрипта, а описали только 2, при этом проблемный пропустили.

Полагаю, по аналогии несложно просто догадаться, даже не зная Паскаля.

[Mr.HiD]

Интересный скин. +1

Коммент
Есть куда расти. Надеюсь, что будут еще сюрпризы в будущих обновах.

Замечание
А почему бы не убрать скобки и стоп?

Проблемки
Мелковаты элементы при 1980x1080   

[Black_AVP_Bim]

Замечание
А почему бы не убрать скобки и стоп?

Скобки, действительно, смотрятся не очень, а вот кнопку СТОП убирать не надо - далеко не всем понравится закрывать плеер на ПАУЗЕ, особенно если в настройках стоит "Запоминать состояние плеера при выходе".

[Тень]

Интересный скин. +1

Коммент
Есть куда расти. Надеюсь, что будут еще сюрпризы в будущих обновах.

Замечание
А почему бы не убрать скобки и стоп?

Проблемки
Мелковаты элементы при 1980x1080   

Что-нибудь придумаю и в крупном обновлении выложу.

[TurboDISCO Adept]

 

[Тень]

... а вот кнопку СТОП убирать не надо - далеко не всем понравится закрывать плеер на ПАУЗЕ, особенно если в настройках стоит "Запоминать состояние плеера при выходе".

Тоже так думаю.

TurboDISCO Adept, спасибо за идею, как-нибудь на досуге займусь скином, как дел будет поменьше. Все пожелания учту.