Вверх ↑
Ответов: 294
Рейтинг: 64
#1: 2008-11-11 21:40:43 ЛС | профиль | цитата
Sniper36
В целом пашет... а если о фишке "Замостить", то там еще параметр TileWallpaper в 1 выставлять надо.

#sha
Add(MainForm,1549148,546,133)
{
Left=20
Top=105
Width=441
Height=209
}
Add(Desktop,6505591,546,91)
{
}
Add(DropFile,815392,427,91)
{
link(onDropFile,835327:doEvent1,[])
}
Add(Label,2307507,301,91)
{
Width=433
Height=35
Align=2
Font=[MS Sans Serif,14,1,0,1]
Caption="Быстрая установка обоев рабочего стола"
}
Add(Label,11131418,350,91)
{
Top=165
Width=433
Height=17
Align=4
Caption="Перетащите картинку в область этого окна"
}
Add(Hub,835327,476,91)
{
link(onEvent1,6505591:doFromFile,[])
link(onEvent2,1549148:doClose,[(527,104)(527,160)])
}
Add(RadioButton,15095354,238,203)
{
Left=10
Top=45
Width=140
Caption="По цетру"
link(onSelect,13002002:doEvent1,[])
}
Add(RadioButton,155522,238,266)
{
Left=10
Top=80
Width=140
Caption="3амостить"
link(onSelect,14792987:doData,[])
}
Add(RadioButton,10676208,238,322)
{
Left=10
Top=115
Width=140
Caption="Растянуть"
link(onSelect,16678613:doEvent1,[])
}
Add(Registry,11887657,476,245)
{
HKey=1
Key="Control PanelDesktop"
Value="WallpaperStyle"
}
Add(Hub,11746221,427,252)
{
InCount=3
link(onEvent1,11887657:doWrite,[])
}
Add(DoData,13309234,336,203)
{
Data=String(0)
link(onEventData,11746221:doEvent1,[(419,209)(419,258)])
}
Add(DoData,14994478,336,329)
{
Data=String(2)
link(onEventData,11746221:doEvent3,[(419,335)(419,272)])
}
Add(Registry,3542199,371,252)
{
HKey=1
Key="Control PanelDesktop"
Value="TileWallpaper"
}
Add(DoData,14792987,280,266)
{
Data=String(1)
link(onEventData,9188790:doEvent2,[])
}
Add(Hub,9188790,329,259)
{
InCount=3
OutCount=1
link(onEvent1,3542199:doWrite,[])
}
Add(Hub,13002002,280,203)
{
link(onEvent1,13309234:doData,[])
link(onEvent2,9188790:doEvent1,[(317,216)(317,265)])
}
Add(Hub,16678613,280,322)
{
link(onEvent1,9188790:doEvent3,[(321,328)(321,279)])
link(onEvent2,14994478:doData,[])
}

карма: 0

0