#sha
Add(MainForm,1549148,322,105)
{
Left=20
Top=105
Width=441
Height=209
}
Add(Desktop,6505591,322,63)
{
}
Add(DropFile,815392,203,63)
{
link(onDropFile,835327:doEvent1,[])
}
Add(Label,2307507,77,63)
{
Width=433
Height=35
Align=2
Font=[MS Sans Serif,14,1,0,1]
Caption="Быстрая установка обоев рабочего стола"
}
Add(Label,11131418,126,63)
{
Top=165
Width=433
Height=17
Align=4
Caption="Перетащите картинку в область этого окна"
}
Add(Hub,835327,252,63)
{
link(onEvent1,6505591:doFromFile,[])
link(onEvent2,1549148:doClose,[(303,76)(303,132)])
}
Add(RadioButton,15095354,77,182)
{
Left=10
Top=45
Width=140
Caption="По цетру"
link(onSelect,13309234:doData,[])
}
Add(RadioButton,155522,77,231)
{
Left=10
Top=80
Width=140
Caption="3амостить"
link(onSelect,1661070:doData,[])
}
Add(RadioButton,10676208,77,280)
{
Left=10
Top=115
Width=140
Caption="Растянуть"
link(onSelect,14994478:doData,[])
}
Add(Registry,11887657,252,217)
{
HKey=1
Key="Control PanelDesktop"
Value="WallpaperStyle"
}
Add(Hub,11746221,203,224)
{
InCount=3
OutCount=1
link(onEvent1,11887657:doWrite,[])
}
Add(DoData,13309234,126,182)
{
Data=String(0)
link(onEventData,11746221:doEvent1,[(195,188)(195,230)])
}
Add(DoData,1661070,126,231)
{
Data=String(1)
link(onEventData,11746221:doEvent2,[])
}
Add(DoData,14994478,126,280)
{
Data=String(2)
link(onEventData,11746221:doEvent3,[(195,286)(195,244)])
}
Ответов: 1088
Рейтинг: 112
|
|||
Делал я схемку на эте тему. Только она не пашет почему-то...
|
|||
карма: 0 |
|