Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 5
Всего онлайн: 5
Зарегистрировано юзеров: 6536
Комментариев на сайте: 647
Новый юзер: FelhagraDral



Последние комментарии
c
Cmertb06 прокомментировал "Урок 1 - Инициализация OpenGL":
Возможно ли рисовать на экране? Например у Screen.Monitors[0] есть свойство Handle?
Aqel прокомментировал "Урок 71 - Работа с сжатыми файлами":
uses ...sevenzip, ... function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall; begin if total then Form1.sprgrsbr1.Max:= value else Form1.sprgrsbr1.Position:= value; Result:= S_OK; end; function Decompress(FileName, DestDir, ArcFname: String; ArcDir: Boolean ): Boolean; var i: Integer; ItP: string; items: array[1..11] of Cardinal; sprgrsbr1: TsProgressBar; begin Result:= False; Application.ProcessMessages; try with CreateInArchive(CLSID_CFormat7z) do begin OpenFile(FileName); SetProgressCallback(sprgrsbr1, ProgressCallback); for i:= 1 to NumberOfItems - 1 do if not ItemIsFolder[i] then //ExtractItem(items[i], Steam, False); - как ей пользоваться в душе не понимаю... ExtractTo(DestDir); end; finally Result:= True; end; end;



Мы в соцсетях
c
Delphi
Использование Alpha Skin

  Сейчас я покажу как использовать компоненты Alpha Skin на примере программы.

Открываем Delphi, создаем проект и первый компонент, который должен появится на форме при использовании Alpha Skin это компонент sSkinManager. Он находится на вкладке Alpha Tools.

После того, как мы поместили компонент на форму, давайте сохраним проект в папку. Я сохраню на рабочий стол. Сейчас кинем в папку файл скина .asz, если вы скачивали Alpha Skin с нашего сайта, то в папке
C:\Program Files (x86)\Borland\Delphi7\Lib\Alpha Skin\AlphaControls7\Skins выберите любой понравившийся вам скин и поместите его в папку с проектом.

Далее в событии FormCreate пишем код:

sSkinManager1.SkinDirectory:=extractfilepath(application.ExeName); //путь до скинов
sSkinManager1.SkinName:='Acryl'; //имя скина без расширения
sSkinManager1.Active:=true; //активируем
Вуаля! Форма изменила свой скин.

Alpha Skin

Вот и всё, Удачи!

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 26 Июля 2012
Просмотров: 11483


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



аватар Добавил(а): eXstra [Новичок] Дата: 2012-08-11
отличная статья




аватар Добавил: Admin [Сэнсэй] vk.com/savelev_a_y Дата: 2012-08-11
Стараюсь.




аватар Добавил(а): Inprise [Новичок] Дата: 2013-07-08




аватар Добавил(а): ynikolenko [Новичок] Дата: 2013-10-01
Будет ли работать на других компах без Дельфи и этого компонента? Я имел ввиду откомпилированную прогу с этим компонентом....




аватар Добавил: Admin [Сэнсэй] vk.com/savelev_a_y Дата: 2013-10-01
Работать будет, но файл скина должен лежать рядом с программой, либо в другой указанной директории.




аватар Добавил(а): spilden01 [Новичок] Дата: 2014-06-22
В событиях нету FormCreate, где оно? Нету у меня такого пункта, HELP