[Руководство] Делаем нестандартный интерфейс (поддержка Skin'ов)

[Тигрь]

Делаем нестандартный интерфейс (поддержка Skin'ов)

Многие разработчики хотели бы как то выделить свою программу из остальных. И так как пользователь в первую очередь видит интерфейс программы, то хотелось бы сделать его необычным. После прочтения этого руководства вы научитесь с легкостью делать программы с таким интерфейсом:

[Ссылки могут видеть только зарегистрированные пользователи. ]

А так же добавить поддержку шкур в свои старые проекты за пару щелчков мыши.

И так для поддержки шкур и изменения интерфейса нам понадобится набор визуальных компонентов [Ссылки могут видеть только зарегистрированные пользователи. ].

Цитата с официального сайта AlphaControls:

Цитата: AlphaControls - это набор стандартных и некоторых уникальных компонентов, поддерживающих скины (AlphaSkins), а также имеющих некоторые дополнительнвые возможности. Все элементы скина могут иметь свои собственные свойства для рисования продвинутого градиента, реалистичных рамок, полу-прозрачности и размытых теней. Графические функции производят все расчеты и рисования в real-time, что позволяет гибко приспосабливаться к используемым цветовым схемам системы. Добавлено свойство BoundLabel для элементов редактирования. Обрабатываются различные события мыши, что дает некоторые доплнительные возможности компонентам. Менеджер подсказок управляет подсказками в приложении и придает им красивый вид с множеством настроек, которые можно изменять с помощью специального дизайнера. Аналоги стандартных компонентов обеспечивают все функциональные возможности и добавляют множество новых решений для улучшения работы программ и качества их внешнего вида.

Сначала нам нужно его установить, качаем AlphaControls с официального сайта и переходим к установке. Я приведу примеры установки на Delphi 2010 и Delphi 7:

1. Распаковываем компоненты в любую папку на жестком диске и указываем Delphi путь к библиотеке.
Delphi 2010: заходим в Tools -> Options -> Environment Options -> Library Win32 и указываем в Library Path путь к распакованным компонентам:

[Ссылки могут видеть только зарегистрированные пользователи. ]

[Ссылки могут видеть только зарегистрированные пользователи. ]

Delphi 7: заходим в Tools -> Environment Options -> Library и указываем в Library Path путь к распакованным компонентам:

[Ссылки могут видеть только зарегистрированные пользователи. ]

[Ссылки могут видеть только зарегистрированные пользователи. ]

2. Открываем файл acnt2010_R.dpk и компилируем его.
Delphi 2010: В Project Manager выбираем acnt2010_R.bpl, нажимаем на нем правой кнопкой мыши и жмем сначала Compile, потом – Build:

[Ссылки могут видеть только зарегистрированные пользователи. ]

Delphi 7: Нажимаем кнопку Compile в окне Package

[Ссылки могут видеть только зарегистрированные пользователи. ]

3. Открываем файл acnt2010.dpk и устанавливаем
Delphi 2010: В Project Manager выбираем acnt2010.bpl, нажимаем на нем правой кнопкой мыши и жмем Install

[Ссылки могут видеть только зарегистрированные пользователи. ]

Delphi 7:
Нажимаем в окне Package сначала кнопку Compile а затем Install

[Ссылки могут видеть только зарегистрированные пользователи. ]

Вот мы и установили AlphaControls, перезапускаем Delphi
не забывая сохранить изменения

[Ссылки могут видеть только зарегистрированные пользователи. ]

и в палитре компонентов видим три новые вкладки:

[Ссылки могут видеть только зарегистрированные пользователи. ]

1. AlphaStandard содержит 34 компонента-аналога стандартных компонентов Delphi: label, button, panel и т.д.
2. AlphaAdditional содержит дополнительные компоненты, такие как WebLabel, FXLabel и т.д., которые помогут Вам разукрасить Ваше приложение и привнести в него новые возможности и элементы дизайна.
3. AlphaTools – содержит компоненты диалогов для открытия файлов, настроек принтера и т.д., а также ряд дополнительных компонентов, например свой компонент для показа красивых подсказок.

С установкой мы разобрались, теперь напишем приложение с использованием AlphaControls.
Создадим новый проект в Delphi. Для создания интерфейса можно использовать аналоги стандартных компонентов из вкладки AlphaStandard. Но мы пойдем другим путем и будем использовать стандартные компоненты, и применим к ним AlphaControls, с помощью этого метода можно добавить поддержку шкур в любой свой старый проект без переделки его на компонентах из вкладки AlphaStandard. Теперь накидаем любых стандартных элементов управления (таких как кнопки, панели, поля ввода и т.д.) на форму. Затем добавим SkinManager из вкладки AlphaTools, он даст нам возможность использовать скины в программе.

[Ссылки могут видеть только зарегистрированные пользователи. ]

Для того что бы использовать скины нам нужно некотором свойствам SkinManager присвоить определенные значения:
SkinDirectory - тут указываем путь к папке со скинами
SkinName - указываем имя применяемого скина
А что бы скины применялись к стандартным элементам нужно в свойстве ThirdParty указать это. Выбираем StandartVCL и эмем на кнопку “<<” для добавления элементов.

[Ссылки могут видеть только зарегистрированные пользователи. ]

Именно так можно сделать поддержку шкур в старых проектах. Все готоро, запускаем программу и любуемся на то что получилось:

[Ссылки могут видеть только зарегистрированные пользователи. ]

Дополнительные шкурки можно скачать с официального сайта AlphaControls, так же там есть программа для самостоятельного изготовления шкур.

© Тигрь.

P.S. Во вложении находятся исходники примера на Delphi 2010.

[RAGE_OF_MARS]

acnt2010_R.bpl не хочет компилироваться
[DCC Fatal Error] acnt2010_R.dpk(29): E2202 Required package 'vcl' not found

Update: проблему решил путем к пути

$(BDS)\lib;$(BDSUSERDIR)\Imports;$(BDS)\Imports;$(BDS)\Lib\Indy10;$(BDSCOMMONDIR)\Dcp;$(BDS)\include;$(BDS)\RaveReports\Lib

приписал

W:\acnt_t

а до этого просто только один путь оставил

W:\acnt_t

[symbiozis]

to Тигрь, ты используешь Evaluation или Лайт?

[single_shot]

люди!
а как сделать чтобы при переносе на другой комп скин сохранялся?
почему-то если просто положить в такую же папку (например, c:\skins (как было на компе разработчика)), не работает.
пробовал писать нечто такое

var
  dir:string;
begin
  getdir(0,dir);
  sskinmanager1.SkinDirectory:=dir;
end;

но чёто не фурыкает. что посоветуете?


---------
вопрос отпал))

[tihonsas]

Цитата: Сообщение от Тигрь А что бы скины применялись к стандартным элементам нужно в свойстве ThirdParty указать это. Выбираем StandartVCL и эмем на кнопку “<<” для добавления элементов.

а у меня нет StandartVCL вообще нет правого столбика тот что на скрине((((
что мне делать???
плз скажыте

[Roxs.]

у меня прога на компе работает и скин показывает,а на другом компе нет,что делать?

[Тигрь]

Цитата: Сообщение от Roxs. у меня прога на компе работает и скин показывает,а на другом компе нет,что делать?

Нужно загрузить внутренние скины в свойстве InternalSkins с помощью редактора свойств.

А еще на плохо было бы почитать документацию на сайте [Ссылки могут видеть только зарегистрированные пользователи. ]

[Тигрь]

На сайте компонента [Ссылки могут видеть только зарегистрированные пользователи. ] есть документация по созданию собственных скинов.

[GaZer]

У меня ошибку выдает((( Что не правельно делают мои кревые руки....

[Fatal Error] acnt2010_R.dpk(32): Required package 'vclimg' not found

[Роспотребнадзор]

Как быть с этим? [Ссылки могут видеть только зарегистрированные пользователи. ]

[VeTaL_UA]

Цитата: Сообщение от РОСПОТРЕБНАДЗОР Как быть с этим?

Правильно установить компонент

[-=|GOOBER|=-]

Я с первого раза все поставил,хотя только начал изучать делфи...как вы умудряетесь так тупить..?

[-=|GOOBER|=-]

Для тех кто не прочитал мануал на сайте,при разпаке файлов потребует пароль!слово 'расширение', набранное маленькими русскими буквами в английской раскладке =)
Сам с такой проблемой столкнулся)

[Steam~]

[Ссылки могут видеть только зарегистрированные пользователи. ]

делал все по инструкции

[VeTaL_UA]

Цитата: Сообщение от Steam~ делал все по инструкции

неправильно установлен компонент.