0 Members and 3 Guests are viewing this topic.
Для этого есть ColorToHSV и HSVToColor.
Я так и не понял. Как преобразовать TColor в шестнадцатеричный цвет?
Так а зачем его преобразовыать сам в себя, это он и есть. $000000...$FFFFFFFF
procedure Execute(EventData: TComponent);var C: String;begin C:=FindObject('SpectrumDisplayLT').Get('Color'); FindObject('LyricsDisplay').Set('Template', Insert(C, '[Color=]%v[/Color]', 7)) end;
Вот скрипт который у меня не получается сделать. Форат цвета из запроса не в виде RRGGBB, а просто цифры
Из имеющихся в нашем распоряжении функций подойдёт, наверное, только Format().
procedure Execute(EventData: TComponent);var Color: Variant; s, Template: String;begin Color := FindResource('Skin.Color.Item.Focused').Get('Value'); s := Format('%x', [Color]); s := Copy(s, 3, 6); Template := '[B][color=' + s + ']%v[/color][/B]'; FindObject('iwtTrackLyrics').Set('Template', Template);end;
Не знал, что так можно. Действительно, работает:
s := Copy(s, 3, 6);
Не знал, что так можно. Действительно, работает:Code: [Select]procedure Execute(EventData: TComponent);var Color: Variant; s, Template: String;begin Color := FindResource('Skin.Color.Item.Focused').Get('Value'); s := Format('%x', [Color]); s := Copy(s, 3, 6); Template := '[B][color=' + s + ']%v[/color][/B]'; FindObject('iwtTrackLyrics').Set('Template', Template);end;
Не знал, что так можно. Действительно, работает:Read more...Code: [Select]procedure Execute(EventData: TComponent);var Color: Variant; s, Template: String;begin Color := FindResource('Skin.Color.Item.Focused').Get('Value'); s := Format('%x', [Color]); s := Copy(s, 3, 6); Template := '[B][color=' + s + ']%v[/color][/B]'; FindObject('iwtTrackLyrics').Set('Template', Template);end;
А это зачем:Обрезать прозрачность?
Да. Сначала попытался использовать Delete, но не компилировалось, оказалось, что это процедура, а не функция.
Заходим в репозиторий, выбираем ресурс, "Удалить" или Del... Как-то так
В каких случаях Caption кнопки принимает значение Disabled? Можно ли его использовать как 2е состояние кнопки?
Спасибо! Честно, не знал, что репозиторий находится во вкладке "Проект")