VPF::Alphacontrols. Получить цвета скина. - Форум программистов

Gwire

Дата 18.2.2011, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

Репутация: 1
Всего: 4

С "альфой" обычно мало проблем. Но одна всё же есть:
Я часто использую свои визуальные компоненты. И зачастую использую всего одну шкурку в "альфе".
Но не в текущей задаче. Объект настроенны под "Office2007 Blue" коряво смотрится на "Office2007 Black".

Есть ли в Alphacontrols компонент с фукцией получения "Color" и "Color text" для разных секций шурки.

Например: для TsPanel (использую шкурку "Office2007 Blue")
устанавливаю SkinData.SkinSection = 'PANEL_LOW'. Панель имеет такой цвет 15915202 (Hex F2D8C2)
устанавливаю SkinData.SkinSection = 'EDIT'. Панель перекрашивается в 16511722 (Hex FBF2EA)

Цвета я взял из AlphaSkins editor, но хотелось бы их получать динамичиски в программе,
и перекрашивать в нужный цвет объекты которые не являются альфовскими в зависимости от шурки и SkinSection.

Если кто уже нашел решение подскажите, коли не в тягость.

PS: "объект(ы) не являются альфовскими" - имеется ввиду компоненты которые она не умеет подменять.

Gwire

Дата 18.2.2011, 20:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

Репутация: 1
Всего: 4

Нашел. Все лежит в массиве TsSkinManager.gd.
Пролучить нужный индекс можно TsSkinManager.GetSkinIndex

Код


var I: Integer;
begin
    I:= sSkinManager1.GetSkinIndex('EDIT'); 
    MyObj.Color:= sSkinManager1.gd[ I ].Color;
end

PS: Часа четыре искал. Но только спросил и нашел сам. Видимо vingrad каким-то образом влияет на поток мыслей.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »