Вверх ↑
Ответов: 3349
Рейтинг: 233
#1: 2010-08-15 14:17:15 ЛС | профиль | цитата
Компонент для создания на форме эффекта стекла.
beta версия.
В отличие от собрата ic из соседней темы выполнен в виде менеджера, и добавлен режим Margins.
Обещаю продолжать разрабатывать данный компонент.
работает только в висте и выше

P.S. Иконку еще не нарисовал.

Новая версия компонента.
Добавлен контроль операционной системы и состояния dwm.
Добавлена информация о цвете прозрачности и её состояние.
Добавлено событие onSetBlur которое возвращает:
0 - Эффект стекла применен
1 - Ошибка, не поддерживаемая операционная система
2 - Ошибка, dwm выключен.

Добавлена иконка.
ScreenShot
[burl=http://hiasm.com//getfile/20046]Скачать[/burl]

Демонстрация как сделать чтобы стекло можно было лепить как Image.
Screen

Add(MainForm,2953706,21,105)
{
Width=570
Height=500
Name="n"
BorderStyle=1
Point(OnHide)
Point(onShow)
link(onCreate,12977171:doSetBlur,[])
link(OnHide,12356378:doWork1,[(58,139)(58,132)])
link(onShow,12356378:doWork2,[(58,146)(58,139)])
}
Add(AeroGlass,12977171,141,119)
{
ControlManager="n"
Mode=1
LeftWidth=-1
RightWidth=-1
TopHeight=-1
BottomHeight=-1
}
Add(ChildForm,16465918,105,126)
{
}
BEGIN_SDK
Add(EditMulti,11059245,21,21)
{
WorkCount=1
VOffset=40
link(doWork1,5137509:doVisible,[(45,67)(45,67)])
}
Add(MainForm,5137509,67,33)
{
Left=35
Top=105
Width=560
Height=470
BorderStyle=0
ShiftLeft=5
ShiftTop=25
TransparentManager="test"
FormFastening="parent.n"
Point(doVisible)
}
Add(TransparentManager,9099922,224,161)
{
Name="test"
FormTranspColor=16711935
}
Add(ChildPanel,15903368,266,119)
{
}
BEGIN_SDK
Add(EditMulti,7455320,21,21)
{
}
Add(Panel,9324458,35,105)
{
Left=25
Top=35
Width=200
Height=130
Color=16711935
WinStyle=1
BorderWidth=0
BevelInner=0
BevelWidth=0
}
END_SDK
Add(ChildPanel,1394463,267,160)
{
}
BEGIN_SDK
Add(EditMulti,7455320,21,21)
{
}
Add(Panel,9324458,35,105)
{
Left=215
Top=265
Width=200
Height=130
Color=16711935
WinStyle=1
BorderWidth=0
BevelInner=0
BevelWidth=0
}
END_SDK
END_SDK
Add(ChanelToIndex,12356378,63,126)
{
link(onIndex,16465918:doWork1,[])
}




Новая версия с динамической линковкой.
[burl=http://www.hiasm.com/xf/attach/cmp/aeroglass.rar]Download[/burl]

карма: 1

4
файлы: 1aeroglass.rar [3KB] [427]
Голосовали:Muz-Tv, Астрамак, Maestroprog, LainX