Большой архив статей, книг, документации по программированию, вебдизайну, компьютерной графике, сетям, операционным системам и многому другому
 
<Добавить в Избранное>    <Сделать стартовой>    <Реклама на сайте>    <Контакты>
  Главная Документация Новости ИТ Программы Книги Games   Обои   Экспорт RSS E-Books
 
Поиск по сайту

TOP-10 программ
Symantec Norton Ghost 9.0
Partition Magic 8.0.2 Pro
Xilisoft 3GP Video Converter v3.1.7.0616b
Norton AntiVirus 2005
Xilisoft 3GP Video Converter v2.1.52.831b
Антивирус Касперского Personal 5.0.303 beta 2
RAR Password Cracker 4.12
ABBYY PDF Transformer v1.00.820
MP3 To Ringtone Gold v3.02
Mobtime Cell Phone Manager v5.3.1
 
Наши сервисы
Рассылка новостей. Подпишитесь на рассылку сейчас и вы всегда будете в курсе последних событий в мире информационных технологий.
Новостные информеры. Поставьте наши информеры к себе и у вас на сайте появится дополнительный постоянно обновляемый раздел.
Добавление статей. Если вы являетесь автором статьи или обзора на тему ИТ присылайте материал нам, мы с удовольствием опубликуем его у себя на сайте.
 
 

   Программирование -> Delphi / Pascal -> Как в 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
Источник: www.codenet.ru

Ссылки по теме
Алгоритмы Сортировки. Часть 1
Введение в Delphi 8
Работа с реестром в Delphi
Delphi и ресурсы компьютера
Советы начинающим программировать на Delphi
Структуры и базы данных, методы сортировки
 

Компьютерная документация от А до Я - Главная

 
Популярные книги

Технология программирования на C++. Начальный курс

Подробнее

Photoshop CS2. Настоящий самоучитель

Подробнее

SQL для "чайников", 5-е издание

Подробнее

 

 
Новости ИТ
01.12.2008  Buffalo выпустил миниатюрные USB-накопители
01.12.2008  VENTO TA-U1 - стильный корпус представлен Asus
01.12.2008  Fujitsu-Siemens выпускает в продажу внешний ускоритель для ноутбуков
01.12.2008  Оригинальные чехлы для ноутбуков от Choiix
01.12.2008  Опубликован код драйвера для беспроводных карт Atheros
01.12.2008  Лучший блог 2008
01.12.2008  Linux запустили на Apple iPhone
01.12.2008  LG KC780
01.12.2008  MSI дополнит линейку Wind-нетбуков двумя моделями
01.12.2008  Nikon D3X - 24,5 млн пикселей для профессионалов
01.12.2008  Киловаттник HIPER M1000 с КПД выше 85%
01.12.2008  AMD впервые снизила цены линейки Radeon HD 4800
01.12.2008  Чистильщики: Wise Registry Cleaner v.3.8.2
01.12.2008  Антивирусы: RemoveIT Pro v4 SE (30.11.2008)
01.12.2008  Корпус ASUS Vento TA-U1 можно поставить вместо новогодней ёлки
01.12.2008  Диагностика: PC Wizard 2008 v.1.871
01.12.2008  Диагностика: NextSensor v.2.7.6.0 Build 1130
01.12.2008  Тестовые приложения: PassMark BurnInTest v.6.0 Build 1000 Beta 15
01.12.2008  Неофициальные драйверы для модемов Motorola
01.12.2008  Драйверы и утилиты для сетевых хранилищ D-Link
 
Полезно

 
Copyright © CompDoc.Ru
При цитировании и перепечатке ссылка на www.compdoc.ru обязательна. Карта сайта.
 
Rambler's Top100