Исходники.Ру - Программирование
Исходники
Статьи
Книги и учебники
Скрипты
Новости RSS
Магазин программиста

Главная » Статьи по программированию » Delphi - Все статьи »

Обсудить на форуме Обсудить на форуме

Волк в овечьей шкуре. (Как в Delphi создать приложение с поддержкой скинов)

Я не сторонник неправильных форм, приложений со сменой "шкурок" и различных визуальных эффектов.

Но пользователь зачастую выбирает программный продукт который красивее, а не удобнее. Конечно кто красивое не любит :). Понятно что калькулятор с поддержкой скинов, по крайней мере глупо, но в медиа плеерах например это часто можно увидеть. Сегодня я научу тебя как использовать в твоих приложениях поддержку скинов.

Первое что надо сделать это естественно установить библиотеку для работы со скинами. Их великое множество, но я предпочитаю работать DynamicSkinForm(http://www.almdev.com/), единственный его маленький недостаток что он требует денег за использование. Не хочешь что бы при запуске твоей программы выскакивало окошко с надписью "Это приложение использует незрегистрироваый DynamicSkinForm", либо плати кровные WMZ либо качай сам знаешь что. Зато его большой плюс что ты сам можешь создавать спины при помощи утилиты SkinBuilder. Теперь приступим.

Для начала кинь на форму компонент который называется spSkinData, со вкладки SkinPack. Закинул? Ок теперь добавляй туда spDynamicSkinForm. Зачем это надо. Первый компонент открывает твои шкурки, а второй уже "одевает" шкурку.

Теперь добавь одну spSkinEdit, один spSkinSpeedButton, spOpenSkinDialog со вкладки SkinPackDialogs ну и добавь ещё spSkinButton для наглядности. Теперь создай обработчик события OnCreate для формы и напишу туда всего одну строчку кода.

SpSkinData.LoadFromCompressedFile('YourSkin.skn');

Внимание. Если твой скит находится не в одной директории с исполняемым файлом приложения то ничего и не откроется.

Теперь давай напишем код для смены скинов.

procedure TForm1.spSkinSpeedButton1Click(Sender: TObject);
begin
if spOpenSkinDialog.Execute then
   SpSkinData.LoadFromCompressedFile('YourSkin.skn');
end;

Теперь у spSkinEdit, у spSkinSpeedButton и spSkinButton в параметре SkinData выстави spSkinData.

Вот и всё. Можно запускать, менять радоваться и пускать слюни от счастья. Ведь теперь и ты можешь встроить в свой калькулятор поддержку шкурок.


Может пригодится:


Автор: F1reF0x
Прочитано: 3498
Рейтинг:
Оценить: 1 2 3 4 5

Комментарии: (0)

Добавить комментарий
Ваше имя*:
Ваш email:
URL Вашего сайта:
Ваш комментарий*:
Код безопастности*:

Рассылка новостей
Рейтинги
© 2007, Программирование Исходники.Ру