Суббота, 18.05.2024
Королевство Delphi
Главное меню
Статьи
Наш опрос
Как часто ви на этот сайт заходите?
Всего ответов: 159
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Разные » Пользовательский интерфейс

Как в 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

Получить ссылку на материал

Категория: Пользовательский интерфейс | Добавил: Барон (08.12.2011)
Просмотров: 946 | Теги: delphi | Рейтинг: 0.0/0
[ Пожертвования для сайта ] [ Пожаловаться на материал ]

Если вам помог материал сайта кликните по оплаченной рекламе размещенной в центре

Поиск
Категории раздела
Delphi.NET [3]
Kylix Delphi for Linux [9]
Советы Дельферу [6]
Хитрости в Delphi [2]
Обзор Delphi [45]
Инсталлятор [11]
Пользовательский интерфейс [18]
Примеры Delphi [93]
Функции и процедуры [15]
Разные [31]
Королевство Delphi © 2010-2024
Яндекс цитирования